╧σ≡σ∞σφφ√σ.

• ╩εφ≥σΩ±≥
• ╤Ωαδ ≡φ√σ τφα≈σφΦ 
• ╩εφ±≥≡≤Ω≥ε≡√ ±Ωαδ ≡εΓ
• ╩εφ±≥≡≤Ω≥ε≡√ ±∩Φ±ΩεΓ
• ╥Φ∩ typeglobs

┬ Perl ±≤∙σ±≥Γ≤σ≥ ≥≡Φ ≥Φ∩α ±≥≡≤Ω≥≤≡ Σαφφ√⌡: ±Ωαδ ≡√, ∞α±±ΦΓ√ ±Ωαδ ≡εΓ Φ ⌡σ°Φ (hashes) - α±±ε÷Φα≥ΦΓφ√σ ∞α±±ΦΓ√ ±Ωαδ ≡εΓ. ╬ß√≈φε ²δσ∞σφ≥√ ∞α±±ΦΓεΓ ΦφΣσΩ±Φ≡≤■≥±  ÷σδ√∞Φ ≈Φ±δα∞Φ, ∩σ≡Γ√Θ ²δσ∞σφ≥ - φ≤δσΓεΘ. ╬≥≡Φ÷α≥σδⁿφεσ τφα≈σφΦσ ΦφΣσΩ±α εßετφα≈ασ≥ φε∞σ≡ ∩ετΦ÷ΦΦ ²δσ∞σφ≥α ± Ωεφ÷α. ╒σ°Φ ΦφΣσΩ±Φ≡≤■≥±  ±≥≡εΩα∞Φ ±Φ∞ΓεδεΓ.

╚∞σφα ±Ωαδ ≡φ√⌡ ∩σ≡σ∞σφφ√⌡ Γ±σπΣα φα≈Φφα■≥±  ± ±Φ∞Γεδα '$' Σαµσ ΩεπΣα εßετφα≈α■≥ ²δσ∞σφ≥ ∞α±±ΦΓα.

╧≡Φ∞σ≡:

	$var1		# ╧≡ε±≥εΘ ±Ωαδ ≡ 'var1'
	$var1[0]	# ╧σ≡Γ√Θ ²δσ∞σφ≥ ∞α±±ΦΓα 'var1'
	$var1{'first'}	# ▌δσ∞σφ≥ ± ΦφΣσΩ±ε∞ 'first'

┬ ±δ≤≈ασ Φ±∩εδⁿτεΓαφΦ  Φ∞σφΦ ∞α±±ΦΓα "÷σδΦΩε∞" ΦδΦ σπε "±≡στα" ∩σ≡σΣ Φ∞σφσ∞ ∞α±±ΦΓα ±≥αΓΦ≥±  ±Φ∞Γεδ '@'.

╧≡Φ∞σ≡:

	@var1		# ┬±σ ²δσ∞σφ≥√ ∞α±±ΦΓα var1 ( $var1[0], $var1[1], ... $var1[n])
	@var1[1,3,10]	# ▌δσ∞σφ≥√ $var1[1], $var1[3], $var1[10]
	@var1{'first','last'} # ≥ε µσ ≈≥ε Φ ( $var1{'first'}, $var1{'last'} )

╒σ° "÷σδΦΩε∞" φα≈Φφασ≥±  ± ±Φ∞Γεδα '%'.

╧≡Φ∞σ≡:

	%var, %key, %years

╚∞σφα ∩εΣ∩≡επ≡α∞∞ φα≈Φφα■≥±  ±Φ∞Γεδε∞ '&', σ±δΦ Φτ Ωεφ≥σΩ±≥α φσ ΓΦΣφε, ≈≥ε ²≥ε ∩εΣ∩≡επ≡α∞∞α.

╧≡Φ∞σ≡:

	&sub1, &test_prog, test(12)

╚∞σφα ≥αßδΦ÷ ±Φ∞ΓεδεΓ Γ±σπΣα φα≈Φφα■≥±  ±Φ∞Γεδε∞ '*'.

╩αµΣ√Θ ≥Φ∩ ∩σ≡σ∞σφφ√⌡ Φ∞σσ≥ ±Γε■ εßδα±≥ⁿ ∩α∞ ≥Φ ∩ε²≥ε∞≤ $var1 Φ $var1[0] ±εΓσ≡°σφφε ≡ατφ√σ ∩σ≡σ∞σφφ√σ, ⌡ε≥  $var1[0] ≈α±≥ⁿ ∞α±±ΦΓα @var1. ╥αΩ µσ @var1 Φ %var1 - ≡ατφ√σ ∞α±±ΦΓ√ ∩σ≡σ∞σφφ√⌡.

╚∞σφα ∩σ≡σ∞σφφ√⌡ ∞επ≤≥ ±εΣσ≡µα≥ⁿ δ■ß√σ ß≤ΩΓσφφε-÷Φ⌠≡εΓ√σ ±Φ∞Γεδ√ τα Φ±Ωδ■≈σφΦσ∞ ∩≡εßσδα Φ ≥αß≤δ ÷ΦΦ. ▌≥Φ ±Φ∞Γεδ√ Φ±∩εδⁿτ≤■≥±  Γ Ωα≈σ±≥Γσ ≡ατΣσδΦ≥σδσΘ. ┴εδⁿ°Φσ Φ ∞αδ√σ ß≤ΩΓ√ ≡ατδΦ≈α■≥±  ∩ε²≥ε∞≤ $var1 Φ $Var1 - ≡ατφ√σ ∩σ≡σ∞σφφ√σ. ┬ Perl ∩ε ≤∞εδ≈αφΦ■ Φ∞σφα ∞σ≥εΩ Φ ≤Ωατα≥σδσΘ ⌠αΘδεΓ ∩Φ°≤≥ ßεδⁿ°Φ∞Φ ß≤ΩΓα∞Φ.

╩εφ≥σΩ±≥.

┴εδⁿ°εσ τφα≈σφΦσ Σδ  ∩≡αΓΦδⁿφεπε ≤∩ε≥≡σßδσφΦ  Γ±≥≡εσφφ√⌡ ⌠≤φΩ÷ΦΘ Φ∞σσ≥ Ωεφ≥σΩ±≥ Φ±∩εδⁿτεΓαφΦ  ≡στ≤δⁿ≥α≥α ²≥Φ⌡ ⌠≤φΩ÷ΦΘ, ≥.Ω. Γ ∩≡ε≥ΦΓφε∞ ±δ≤≈ασ εφΦ ΓετΓ≡α∙α■≥ ±εΓσ≡°σφφε "φσ∩εφ ≥φ√Θ" ≡στ≤δⁿ≥α≥. ┬ Perl Φ∞σσ≥±  ΣΓα πδαΓφ√⌡ Ωεφ≥σΩ±≥α: ±Ωαδ ≡φ√Θ Φ ±∩Φ±εΩ (list). ╧≡ε∙σ πεΓε≡ , σ±δΦ Γ δσΓεΘ ≈α±≥Φ Γ√≡αµσφΦ  Φ∞σσ≥±  ΓΓΦΣ≤ εΣφε σΣΦφ±≥Γσφφεσ τφα≈σφΦσ, ≥ε ²≥ε ±Ωαδ ≡φ√Θ Ωεφ≥σΩ±≥. ┼±δΦ ∞φεµσ±≥Γε τφα≈σφΦΘ - ±∩Φ±εΩ.

╧≡Φ∞σ≡:

	$var1 = <>;	# ╧≡ε≈Φ≥α≥ⁿ εΣφ≤ ±≥≡εΩ≤ ⌠αΘδα
	@var1 = <>;	# ╧≡ε≈Φ≥α≥ⁿ Γ±σ ±≥≡εΩΦ ⌠αΘδα Γ ∞α±±ΦΓ @var1
	$var1 = (1,2,3); # $var = 3 - ΩεδΦ≈σ±≥Γε ²δσ∞σφ≥εΓ
	@var1 = (1,2,3); # ╤ετΣαφΦσ ∞α±±ΦΓα @var1 ± ²δσ∞σφ≥α∞Φ 1,2,3

╤Ωαδ ≡φ√σ τφα≈σφΦ .

┬±σ Σαφφ√σ Γ Perl ²≥ε ±Ωαδ ≡√, ∞α±±ΦΓ√ ±Ωαδ ≡εΓ Φ ⌡σ°Φ ±Ωαδ ≡εΓ. ╤Ωαδ ≡φ√σ ∩σ≡σ∞σφφ√σ ∞επ≤≥ ±εΣσ≡µα≥ⁿ ≈Φ±δα, ±≥≡εΩΦ Φ ±±√δΩΦ. ╧≡σεß≡ατεΓαφΦσ ≈Φ±δα - ±≥≡εΩΦ ∩≡εΦ±⌡εΣΦ≥ αΓ≥ε∞α≥Φ≈σ±ΩΦ ∩ε ≤∞εδ≈αφΦ■. ╤Ωαδ ≡ ∞εµσ≥ Φ∞σ≥ⁿ ≥εδⁿΩε εΣφε σΣΦφ±≥Γσφφεσ τφα≈σφΦσ, ⌡ε≥  ²≥ε ∞εµσ≥ ß√≥ⁿ ±±√δΩα φα ∞α±±ΦΓ ±Ωαδ ≡εΓ. ╥αΩ ΩαΩ Perl ±α∞ ∩≡σεß≡ατεΓ√Γασ≥ ≈Φ±δα Γ ±≥≡εΩΦ Φ φαεßε≡ε≥, ≥ε ∩≡επ≡α∞∞Φ±≥≤ φσ≥ φσεß⌡εΣΦ∞ε±≥Φ Σ≤∞α≥ⁿ ε ≥ε∞, ≈≥ε ΓετΓ≡α∙ασ≥ ⌠≤φΩ÷Φ .

┬ Perl φσ ±≤∙σ±≥Γ≤σ≥ ≥Φ∩εΓ "±≥≡εΩα" ΦδΦ "≈Φ±δε" ΦδΦ "⌠αΘδ" ΦδΦ ≈≥ε-≥ε σ∙σ. ▌≥ε Ωεφ≥σΩ±≥φε ταΓΦ±Φ∞√Θ ∩εδΦ∞ε≡⌠φ√Θ  τ√Ω Σδ  ≡αßε≥√ ± ≥σΩ±≥α∞Φ.

╤Ωαδ ≡ Φ∞σσ≥ δεπΦ≈σ±Ωεσ τφα≈σφΦσ "TRUE" (Φ±≥Φφα), σ±δΦ ²≥ε φσ φ≤δσΓα  ±≥≡εΩα ΦδΦ ≈Φ±δε φσ ≡αΓφεσ 0.

┬ Perl ±≤∙σ±≥Γ≤σ≥ ΣΓα ≥Φ∩α φ≤δσΓ√⌡ (null) ±Ωαδ ≡εΓ - ε∩≡σΣσδσφφ√σ (defined) Φ φσε∩≡σΣσδσφφ√σ (undefined). ═σε∩≡σΣσδσφφεσ τφα≈σφΦσ ΓετΓ≡α∙ασ≥± , ΩεπΣα ≈≥ε-≥ε φσ ±≤∙σ±≥Γ≤σ≥. ═α∩≡Φ∞σ≡, φσΦτΓσ±≥φα  ∩σ≡σ∞σφφα , Ωεφσ÷ ⌠αΘδα ΦδΦ ε°ΦßΩα. ╤ ∩ε∞ε∙ⁿ■ ⌠≤φΩ÷ΦΦ defined() Γ√ ∞εµσ≥σ τα≡αφσσ εßφα≡≤µΦ≥ⁿ ∩εΣεßφεσ ±ε±≥ε φΦσ.

╩εδΦ≈σ±≥Γε ²δσ∞σφ≥εΓ ∞α±±ΦΓα ≥αΩ µσ  Γδ σ≥±  ±Ωαδ ≡ε∞ Φ φα≈Φφασ≥±  ±Φ∞Γεδα∞Φ $# ∩εΣεßφε Φφ≥σ≡∩≡σ≥α≥ε≡≤ csh. ╘αΩ≥Φ≈σ±ΩΦ $#var1 - ²≥ε ΦφΣσΩ± ∩ε±δσΣφσπε ²δσ∞σφ≥α ∞α±±ΦΓα. ═≤µφε ∩ε∞φΦ≥ⁿ, ≈≥ε ∩σ≡Γ√Θ ²δσ∞σφ≥ Φ∞σσ≥ ΦφΣσΩ± 0, ∩ε²≥ε∞≤ ΩεδΦ≈σ±≥Γε ²δσ∞σφ≥εΓ ε∩≡σΣσδ σ≥±  ΩαΩ $#var1+1 . ╧≡Φ±ΓεσφΦσ τφα≈σφΦ  $#var1 Φτ∞σφΦ≥ ΣδΦφ≤ ∞α±±ΦΓα Φ ≡ατ≡≤°Φ≥ "ε±≥αΓδσφφ√σ" τφα≈σφΦ . ╧≡Φ±ΓεσφΦσ τφα≈σφΦ  ²δσ∞σφ≥≤ ∞α±±ΦΓα ± ΦφΣσΩ±ε∞ ßεδⁿ°σ ≈σ∞ $#var1 ≤ΓσδΦ≈Φ≥ ≡ατ∞σ≡ ∞α±±ΦΓα, α ∩≡Φ±ΓεσφΦσ σ∞≤ φ≤δσΓεπε ±∩Φ±Ωα -εßφ≤δΦ≥.

┬ ±Ωαδ ≡φε∞ Ωεφ≥σΩ±≥σ Φ∞  ∞α±±ΦΓα ΓετΓ≡α∙ασ≥ σπε ΣδΦφ≤ (Σδ  ±∩Φ±Ωα ΓετΓ≡α∙ασ≥±  ∩ε±δσΣφΦΘ ²δσ∞σφ≥).

╧≡Φ∞σ≡:

	@var1 = (4, 3, 2, 1);	# ╧≡Φ±ΓεσφΦσ τφα≈σφΦ  ²δσ∞σφ≥α∞ ∞α±±ΦΓα
	$i = @var1;		# ╚±∩εδⁿτεΓαφΦσ ±Ωαδ ≡φεπε Ωεφ≥σΩ±≥α
	print $i;		# ╧σ≈α≥ⁿ ≡στ≤δⁿ≥α≥α 4 - Ωεδ-Γε ²δσ∞σφ≥εΓ
	print @var1;		# ╤∩Φ±ΩεΓ√Θ Ωεφ≥σΩ±≥, ∩σ≈α≥ⁿ Γ±σ⌡ ²δσ∞σφ≥εΓ.

─δ  ∩≡Φφ≤ΣΦ≥σδⁿφεπε ∩εδ≤≈σφΦ  ±Ωαδ ≡φεπε τφα≈σφΦ  ≤Σεßφε ∩≡Φ∞σφ ≥ⁿ ⌠≤φΩ÷Φ■ scalar().

╧≡Φ∞σ≡:

	print scalar(@var1);	# ┬√ΓεΣ ΣδΦφ√ ∞α±±ΦΓα α φσ σπε τφα≈σφΦΘ

╒σ° Γ ±Ωαδ ≡φε∞ Ωεφ≥σΩ±≥σ ΓετΓ≡α∙ασ≥ "true", σ±δΦ ±≤∙σ±≥Γ≤σ≥ ⌡ε≥  ß√ εΣφα ∩α≡α "Ωδ■≈-τφα≈σφΦσ". ╘αΩ≥Φ≈σ±ΩΦ ΓετΓ≡α∙ασ≥±  ±≥≡εΩα ≥Φ∩α 2/8 πΣσ 8 - ΩεδΦ≈σ±≥Γε Γ√Σσδσφφ√⌡ " ≈σσΩ" ∩α∞ ≥Φ, α 2 - ΩεδΦ≈σ±≥Γε Φ±∩εδⁿτεΓαφφ√⌡.

╩εφ±≥≡≤Ω≥ε≡√ ±Ωαδ ≡εΓ.

╫Φ±δα ∩Φ°≤≥±  ±≥αφΣα≡≥φε:

	123
	123.123
	0.12
	.12E-10
	0xABCD		# ╪σ±≥φαΣ÷α≥Φ≡Φ≈φα  τα∩Φ±ⁿ
	0377		# ┼±δΦ 0 Γ φα≈αδσ - Γε±ⁿ∞σ≡Φ≈φα 
	123_456_123	# ╥αΩ ≥εµσ ∞εµφε Σδ  ≤Σεß±≥Γα ≈≥σφΦ .

	'╨αΓφ Θ±ⁿ, ±∞Φ≡φε!'
	"╧ε±≥≡εΦ∞±  Φ ±∩α±σ∞± ."

╤∩ε±εßεΓ εßετφα≈σφΦ  ±≥≡εΩ ε≈σφⁿ ∞φεπε. ╤∞ε≥≡Φ≥σ ε∩Φ±αφΦσ ε∩σ≡α≥ε≡α qq.

┬ ⌡σ°σ ∞εµφε ε∩≤±Ωα≥ⁿ ΩαΓ√≈ΩΦ, σ±δΦ ΦφΣσΩ± φσ ±εΣσ≡µΦ≥ ∩≡εßσδεΓ.

╧≡Φ∞σ≡:

	$var1{first} ≥ε µσ ≈≥ε Φ $var1{'first'}

╬ß≡α≥Φ≥σ ΓφΦ∞αφΦσ φα ≥ε, ≈≥ε ∩σ≡σΣ ∩σ≡ΓεΘ εΣΦφα≡φεΘ ΩαΓ√≈ΩεΘ Σεδµσφ ±≥ε ≥ⁿ ∩≡εßσδ, Φφα≈σ ±≥≡εΩα Γε±∩≡Φ∞σ≥±  ΩαΩ Φ∞  ∩σ≡σ∞σφφεΘ, ≥. Ω. Γ Φ∞σφα⌡ ≡ατ≡σ°σφε Φ±∩εδⁿτεΓαφΦσ εΣΦφα≡φ√⌡ ΩαΓ√≈σΩ. ╟α∩≡σ∙ασ≥±  Γ ΩαΓ√≈Ωα⌡ ∩≡Φ∞σφ ≥ⁿ τα≡στσ≡ΓΦ≡εΓαφφ√σ δΦ≥σ≡αδ√ __LINE__ (φε∞σ≡ ≥σΩ≤∙σΘ ±≥≡εΩΦ ∩≡επ≡α∞∞√), __FILE__ (≥σΩ≤∙ΦΘ ⌠αΘδ). ─δ  εßετφα≈σφΦ  Ωεφ÷α ∩≡επ≡α∞∞√ ∞εµφε ∩≡Φ∞σφ ≥ⁿ δΦ≥σ≡αδ __END__ ┬σ±ⁿ ∩ε±δσΣ≤■∙ΦΘ ≥σΩ±≥ Φπφε≡Φ≡≤σ≥± , φε σπε ∞εµφε ∩≡ε≈Φ≥α≥ⁿ Φ±∩εδⁿτ≤  ≤Ωατα≥σδⁿ ⌠αΘδα DATA.

╤δεΓα Γ ∩≡επ≡α∞∞σ, φσ ∩εΣΣα■∙Φσ±  φΦΩαΩεΘ Φφ≥σ≡∩≡σ≥α÷ΦΦ, Γε±∩≡ΦφΦ∞α■≥±  ΩαΩ ±≥≡εΩΦ Γ ΩαΓ√≈Ωα⌡, ∩ε²≥ε∞≤ ≡σΩε∞σφΣ≤σ≥±  Φ∞σφα ∞σ≥εΩ Φ ≤Ωατα≥σδσΘ ⌠αΘδεΓ ∩Φ±α≥ⁿ ßεδⁿ°Φ∞Φ ß≤ΩΓα∞Φ Γε ΦτßσµαφΦσ Γετ∞εµφεπε "Ωεφ⌠δΦΩ≥α" ± τα≡στσ≡ΓΦ≡εΓαφφ√∞Φ ±δεΓα∞Φ.

┬ Perl σ±≥ⁿ Γετ∞εµφε±≥ⁿ Γ±≥αΓδ ≥ⁿ ≥σΩ±≥ ΣεΩ≤∞σφ≥α ∩≡ ∞ε Γ ∩≡επ≡α∞∞≤. ╥αΩ φατ√Γασ∞√Θ "here-doc" (τΣσ±ⁿ ≥σΩ±≥) ∞σ≥εΣ. ╬ßετφα≈ασ≥±  ±Φ∞Γεδα∞Φ << τα Ωε≥ε≡√∞Φ ΦΣσ≥ ±δεΓε-επ≡αφΦ≈Φ≥σδⁿ.

╧≡Φ∞σ≡:

	print <<EOF;	# ┬±σ ±≥≡εΩΦ Σε EOF - ≥σΩ±≥ Σδ  ∩σ≈α≥Φ.
	▌Θ Γ√ ≥≡εσ, ΦΣΦ≥σ ΣΓεσ ±■Σα!
	╫≥ε ±≥εΦ°ⁿ! ▀ ≥σßσ πεΓε≡■!!
		╧εδΩεΓφΦΩ ╤αΓεφⁿΩΦφ.
	EOF

╩εφ±≥≡≤Ω≥ε≡√ ±∩Φ±ΩεΓ.

╤∩Φ±εΩ - ∞φεµσ±≥Γε τφα≈σφΦΘ, ∩σ≡σ≈Φ±δσφφ√⌡ ≈σ≡στ τα∩ ≥≤■ Φ ταΩδ■≈σφφ√⌡ Γ Ω≡≤πδ√σ ±ΩεßΩΦ. ┬ ±∩Φ±ΩεΓε∞ Ωεφ≥σΩ±≥σ ±∩Φ±εΩ ΓετΓ≡α∙ασ≥ ∩ε±δσΣφΦΘ ²δσ∞σφ≥ ±∩Φ±Ωα.

╧≡Φ∞σ≡:

	@var1 = (1, 2, '∩≡ΦΓσ≥', 1.2); # ╧≡Φ±ΓεΦ≥ⁿ τφα≈σφΦσ ²δσ∞σφ≥α∞.

		$var1[0] = 1,
		$var1[1] = 2,
		$var1[2] = '∩≡ΦΓσ≥'
		$var1[3] = 1.2
	$var1 = (1, 2, '∩≡ΦΓσ≥', 1.2);

─ε∩≤±Ωασ≥±  ∩≡Φ∞σφ ≥ⁿ Γ ±∩Φ±Ωσ Σ≡≤πΦσ ±∩Φ±ΩΦ, φε Γ ∩εδ≤≈σφφε∞ ±∩Φ±Ωσ ≤µσ φσΓετ∞εµφε ≡ατδΦ≈Φ≥ⁿ φα≈αδε Φ Ωεφσ÷ ΓΩδ■≈σφφ√⌡ ±∩Φ±ΩεΓ.

╧≡Φ∞σ≡:

	@s1 = (1, 2, 3); # 	╧σ≡Γ√Θ ±∩Φ±εΩ
	@s2 = (6, 7, 8);	# ┬≥ε≡εΘ
	@s = (0, @s1, 4, 5, @s2, 9, 10); # ┬Ωδ■≈ασ∞ ±∩Φ±ΩΦ @s1 Φ @s2
	print @s;	# ╨στ≤δⁿ≥α≥: 012345678910  - τφα≈σφΦ  ßστ ∩≡εßσδεΓ.

╤∩Φ±εΩ ßστ ²δσ∞σφ≥εΓ εßετφα≈ασ≥±  ΩαΩ () Φ φατ√Γασ≥±  φ≤δⁿ-±∩Φ±Ωε∞. ╤∩Φ±ΩεΓεσ Γ√≡αµσφΦσ ∞εµφε ≤∩ε≥≡σßδ ≥ⁿ ΩαΩ Φ∞  ∞α±±ΦΓα, φε ∩≡Φ ²≥ε∞ σπε φ≤µφε ß≡α≥ⁿ Γ Ω≡≤πδ√σ ±ΩεßΩΦ.

╧≡Φ∞σ≡:

	print (' φΓα≡ⁿ','⌠σΓ≡αδⁿ','∞α≡≥')[1];

╤∩Φ±εΩ ∞εµσ≥ ß√≥ⁿ ∩≡Φ±Γεσφ ±∩Φ±Ω≤ ≥εδⁿΩε σ±δΦ ΩαµΣ√Θ ²δσ∞σφ≥ Γ ±∩Φ±Ωσ Γ δσΓεΘ ≈α±≥Φ Γ√≡αµσφΦ  Σε∩≤±≥Φ∞ ∩ε ≥Φ∩≤ ±∩Φ±Ω≤ Γ ∩≡αΓεΘ ≈α±≥Φ.

╧≡Φ∞σ≡:

	($a, $b, $c) = (1, 2, 3); # $a = 1, $b = 2, $c = 3

╧≡Φ±ΓαΦΓαφΦσ ±∩Φ±ΩεΓ Γ ±Ωαδ ≡φε∞ Ωεφ≥σΩ±≥σ ΓετΓ≡α∙ασ≥ ΩεδΦ≈σ±≥Γε ∩≡Φ±Γεσφφ√⌡ ²δσ∞σφ≥εΓ.

╧≡Φ∞σ≡:

	$x = (($a, $b, $c) = (1,2));  # ╨στ≤δⁿ≥α≥ $x=2

┬ ±δ≤≈ασ ∩≡Φ±ΓαΦΓαφΦ  ±∩Φ±Ωα ⌡σ°≤, ±∩Φ±εΩ ≡α±±∞α≥≡ΦΓασ≥±  ΩαΩ ∩α≡√: Ωδ■≈-τφα≈σφΦσ.

╧≡Φ∞σ≡:

	%ΣφΦ_∞σ± ÷α = (' φΓα≡ⁿ', 31, '⌠σΓ≡αδⁿ', 30);

─δ  ≤Σεß±≥Γα τα∩Φ±Φ ∞εµφε Φ±∩εδⁿτεΓα≥ⁿ Γ√≡αµσφΦσ ± => .

╧≡Φ∞σ≡:

	%ΣφΦ_∞σ± ÷α = (
			 φΓα≡ⁿ => 31,
			⌠σΓ≡αδⁿ => 30,
	);

╥Φ∩ typeglobs

┬ Perl Φ±∩εδⁿτ≤σ≥±  ±∩σ÷Φαδⁿφ√Θ Γφ≤≥≡σφφΦΘ ≥Φ∩ typeglog Σδ  τα∩Φ±Φ ∞α±±ΦΓα Γ±σ⌡ ∩σ≡σ∞σφφ√⌡. ╥αΩΦσ ∞α±±ΦΓ√ φα≈Φφα■≥±  ± ±Φ∞Γεδα '*'. ╚⌡ ≤Σεßφε ∩≡Φ∞σφ ≥ⁿ Σδ  ∩σ≡σΣα≈Φ ±±√δεΩ φα ∞α±±ΦΓ√ Φ ⌡σ°Φ, φε Γ ΣαφφεΘ Γσ≡±ΦΦ Perl ≤µσ σ±≥ⁿ Γετ∞εµφε±≥ⁿ ∩≡Φ∞σφ ≥ⁿ ±±√δΩΦ, ∩ε²≥ε∞≤ ²≥ε Σσδασ≥±  ε≈σφⁿ ≡σΣΩε. ┼ΣΦφ±≥Γσφφε πΣσ ²≥ε φσεß⌡εΣΦ∞ε, ≥αΩ ²≥ε Σδ  ≡αßε≥√ ±ε ±±√δΩα∞Φ φα ⌠αΘδ√. ═α∩≡Φ∞σ≡, σ±δΦ Γα∞ φ≤µφε ±ετΣα≥ⁿ δεΩαδⁿφ≤■ ±±√δΩ≤ φα ⌠αΘδ Γ ∩≡ε÷σΣ≤≡σ, ≥ε ²≥ε δ≤≈°σ ±Σσδα≥ⁿ ≥αΩ:

sub new_sub
{ local *IN; # ╤±√δΩα φα ⌠αΘδ
open (IN, "test") || return undef;  # ╬≥Ω≡√≥ⁿ ⌠αΘδ. ┬ετΓ≡α≥ ∩≡Φ ε°ΦßΩσ.
......... 
return;
}