0377Β # ΠΡΠ»ΠΈ 0 Π² Π½Π°ΡΠ°Π»Π΅ β Π²ΠΎΡΡΠΌΠ΅ΡΠΈΡΠ½Π°Ρ
123_456_123 # Π’Π°ΠΊ ΡΠΎΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π΄Π»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΡΠ΅Π½ΠΈΡ.
Π‘ΡΡΠΎΠΊΠΈ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΠ²Π°ΡΡΡΡ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΡΠΌΠΈ (') ΠΈΠ»ΠΈ Π΄Π²ΠΎΠΉΠ½ΡΠΌΠΈ (") ΠΊΠ°Π²ΡΡΠΊΠ°ΠΌΠΈ:
'Π ΠΎΠ²Π½ΡΠΉΡΡ, ΡΠΌΠΈΡΠ½ΠΎ!'
Β«ΠΠΎΡΡΡΠΎΠ΅ΠΌΡΡ ΠΈ ΡΠΏΠ°ΡΠ΅ΠΌΡΡ.Β»
Π‘ΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΡΠΎΠΊ ΠΎΡΠ΅Π½Ρ ΠΌΠ½ΠΎΠ³ΠΎ. ΠΠ»ΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΡΠΌΠΎΡΡΠΈΡΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° qq.
Π Ρ Π΅ΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠΏΡΡΠΊΠ°ΡΡ ΠΊΠ°Π²ΡΡΠΊΠΈ Π΅ΡΠ»ΠΈ ΠΈΠ½Π΄Π΅ΠΊΡ Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠ².
ΠΡΠΈΠΌΠ΅Ρ:
$var1{first} ΡΠΎ ΠΆΠ΅ ΡΡΠΎ ΠΈ $var1{'first'}
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π½Π° ΡΠΎ ΡΡΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΠΎΠΉ ΠΊΠ°Π²ΡΡΠΊΠΎΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΡΠΎΡΡΡ ΠΏΡΠΎΠ±Π΅Π» ΠΈΠ½Π°ΡΠ΅ ΡΡΡΠΎΠΊΠ° Π²ΠΎΡΠΏΡΠΈΠΌΠ΅ΡΡΡ ΠΊΠ°ΠΊ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠ°ΠΊ-ΠΊΠ°ΠΊ Π² ΠΈΠΌΠ΅Π½Π°Ρ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΡΡ ΠΊΠ°Π²ΡΡΠ΅ΠΊ.
ΠΠ°ΠΏΡΠ΅ΡΠ°Π΅ΡΡΡ Π² ΠΊΠ°Π²ΡΡΠΊΠ°Ρ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ Π»ΠΈΡΠ΅ΡΠ°Π»Ρ __LINE__ (Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΡΡΠΎΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ), __FILE__ (ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠ°ΠΉΠ»).
ΠΠ»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ Π»ΠΈΡΠ΅ΡΠ°Π» __END__
ΠΠ΅ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ΅ΠΊΡΡ ΠΈΠ³Π½ΠΎΡΠΈΡΡΠ΅ΡΡΡ, Π½ΠΎ Π΅Π³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠΈΡΠ°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° DATA.
Π‘Π»ΠΎΠ²Π° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π½Π΅ ΠΏΠΎΠ΄Π΄Π°ΡΡΠΈΠ΅ΡΡ Π½ΠΈ ΠΊΠ°ΠΊΠΎΠΉ ΠΈΠ½ΡΠ΅ΠΏΡΠ΅ΡΠ°ΡΠΈΠΈ Π²ΠΎΡΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ ΠΊΠ°ΠΊ ΡΡΡΠΎΠΊΠΈ Π² ΠΊΠ°Π²ΡΡΠΊΠ°Ρ ΠΏΠΎΡΡΠΎΠΌΡ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΈΠΌΠ΅Π½Π° ΠΌΠ΅ΡΠΎΠΊ ΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Π΅ΠΉ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΠΈΡΠ°ΡΡ Π±ΠΎΠ»ΡΡΠΈΠΌΠΈ Π±ΡΠΊΠ²Π°ΠΌΠΈ Π΄Π»Ρ ΠΈΠ·Π±Π΅ΠΆΠ°Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΠ³ΠΎ Β«ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠ°Β» Ρ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ.
Π ΠΠ΅ΡΠ» Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΡΠ°Π²Π»ΡΡΡ ΡΠ΅ΠΊΡΡ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° ΠΏΡΡΠΌΠΎ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π’Π°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠΉ "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);
Π° Π·Π΄Π΅ΡΡ $var1 = 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
ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Ρ => .
ΠΡΠΈΠΌΠ΅Ρ:
%Π΄Π½ΠΈ_ΠΌΠ΅ΡΡΡΠ° = (
ΡΠ½Π²Π°ΡΡ => 31,
ΡΠ΅Π²ΡΠ°Π»Ρ => 30,
);
Π ΠΠ΅ΡΠ» ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠΉ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΠΉ ΡΠΈΠΏ typeglog Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° Π²ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ . Π’Π°ΠΊΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π° '*'. ΠΡ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ ΡΡΡΠ»ΠΎΠΊ Π½Π° ΠΌΠ°ΡΡΠΈΠ²Ρ ΠΈ Ρ Π΅ΡΠΈ, Π½ΠΎ Π² Π΄Π°Π½Π½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΠ΅ΡΠ» ΡΠΆΠ΅ Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡ ΡΡΡΠ»ΠΊΠΈ ΠΏΠΎΡΡΠΎΠΌΡ ΡΡΠΎ Π΄Π΅Π»Π°Π΅ΡΡΡ ΠΎΡΠ΅Π½Ρ ΡΠ΅Π΄ΠΊΠΎ. ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎ Π³Π΄Π΅ ΡΡΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°ΠΊ ΡΡΠΎ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΡΠΎ ΡΡΡΠ»ΠΊΠ°ΠΌΠΈ Π½Π° ΡΠ°ΠΉΠ»Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ Π΅ΡΠ»ΠΈ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΡΡΠ»ΠΊΡ Π½Π° ΡΠ°ΠΉΠ» Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΡΠΎ ΡΡΠΎ Π»ΡΡΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ ΡΠ°ΠΊ:
sub new_sub
{ local *IN; # Π‘ΡΡΠ»ΠΊΠ° Π½Π° ΡΠ°ΠΉΠ»
open (IN, Β«testΒ») || return undef;Β # ΠΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ». ΠΠΎΠ·Π²ΡΠ°Ρ ΠΏΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅.
.........
return;
}
ΠΠΎΠ»Π΅Π΅ ΠΏΠΎΠ΄ΡΠΎΠ±Π½ΠΎ ΡΡΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΎ Π² Π³Π»Π°Π²Π΅ Π‘ΡΡΠ»ΠΊΠΈ.
ΠΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΠ΅ΡΠ»
ΠΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π² Π΄Π°Π½Π½ΠΎΠΉ Π³Π»Π°Π²Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΈΠΌΠ΅ΡΡ Π² ΠΠ΅ΡΠ» ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
ΠΠ½ΠΈ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°ΡΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π½Π΅ΠΏΡΠΈΠ²ΡΡΠ½ΠΎ Π΄Π»Ρ Β«Π³Π»Π°Π·Π°Β» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ² Ρ.ΠΊ. ΡΠΎΡΡΠΎΡΡ ΠΎΠ±ΡΡΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ· Π΄Π²Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΏΡΠΈΡΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΡΠΎ '$' ΡΠΈΠΌΠ²ΠΎΠ»ΠΎ Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΠΈΠΌΠ΅Π½Π° Π²ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΠΉ ΡΠ°ΡΡΠΎ Π½Π΅ Π±ΡΠΊΠ²Π΅Π½Π½ΠΎ-ΡΠΈΡΡΠΎΠ²ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ». ΠΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΈΡ Β«Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌΠΈΒ» Π±ΡΠΊΠ²Π΅Π½Π½ΡΠΌΠΈ ΡΠΈΠ½ΠΎΠ½ΠΈΠΌΠ°ΠΌΠΈ ΡΠΎ Π²Π°ΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ Π² Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
use English;
Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊΒ ΠΆΠ΅Β Π΅ΡΠ»ΠΈ Π²Ρ Π·Π°Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ:
use FileHandle;
ΠΏΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΡΠΎ ΠΏΠΈΡΠ°ΡΡ:
ΠΌΠ΅ΡΠΎΠ΄ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
ΠΈΠ»ΠΈ
ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ -> ΠΌΠ΅ΡΠΎΠ΄(Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅)
ΠΠΈΠΆΠ΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡΡΡ ΠΈΠΌΠ΅Π½Π° ΠΊΠ°ΠΊ Π² ΠΊΠΎΡΠΎΡΠΊΠΎΠΉ ΡΠ°ΠΊ ΠΈ Π² Π΄Π»ΠΈΠ½Π½ΠΎΠΉ (ΡΠ»ΠΎΠ²Π΅ΡΠ½ΠΎΠΉ) ΡΠΎΡΠΌΠ΅.
ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ· Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏ ΡΠΎΡΠΊΠΎ Π½Π° ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΡΡΠΎΠΌΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΠΎ Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ.
$_
$ARG
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ β ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Π²Π²ΠΎΠ΄Π° ΠΈ ΠΏΠΎΠΈΡΠΊΠ°. Π’ΠΎ Π΅ΡΡΡ Π΅ΡΠ»ΠΈ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° Π½Π΅ ΡΠΊΠ°Π·Π°Π½Π° Π½ΠΈΠΊΠ°ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠ°.
$ΡΠΈΡΡΠ°
Π‘ΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π°ΠΉΠ΄Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΡ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΌ ΠΏΠΎΠΈΡΠΊΠ΅ ΠΊΠΎΠ³Π΄Π° ΡΠ°Π±Π»ΠΎΠ½ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠ΅ΡΠ°ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π² ΠΊΡΡΠ³Π»ΡΡ ΡΠΊΠΎΠ±ΠΊΠ°Ρ . Π¦ΠΈΡΡΠ° Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π½ΠΎΠΌΠ΅Ρ ΡΠΊΠΎΠ±ΠΎΠΊ. ΠΠ΅ΡΠ²Π°Ρ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ Π½ΠΎΠΌΠ΅Ρ 1.
$&
$MATCH
ΠΠ°ΠΉΠ΄Π΅Π½Π½Π°Ρ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ° Π² ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΌ ΠΏΠΎΠΈΡΠΊΠ΅ ΠΏΠΎ ΡΠ°Π±Π»ΠΎΠ½Ρ.
$`
ΠΠΎΠ΄ΡΡΡΠΎΠΊΠ° ΠΏΡΠ΅Π΄ΡΠ΅Π²ΡΡΠ²ΡΡΡΠ°Ρ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠ΅.
$'
$POSTMATCH
ΠΠΎΠ΄ΡΡΡΠΎΠΊΠ° ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ°Ρ Π·Π° Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠΎΠΉ.
$+
$LAST_PAREN_MATCH
ΠΠΎΠ΄ΡΡΡΠΎΠΊΠ° Π½Π°ΠΉΠ΄Π΅Π½Π½Π°Ρ Π² ΠΏΠΎΠΈΡΠΊΠ΅ Ρ Π²ΡΠ±ΠΎΡΠΎΠΌ ΠΏΠΎ Β«ΠΈΠ»ΠΈΒ».
$*
$MULTILINE_MATCHING
ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΠ°Π²Π½ΡΠΌ 1 ΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠΈΡΠΊ Π±ΡΠ΄Π΅Ρ ΡΡΠΈΡΠ°ΡΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΡΡΠΎΡΠΎΡΠ½ΠΎΠΉ Ρ.Π΅. ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠΈΠΌΠ²ΠΎΠ»Ρ '\n' β ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ ΡΡΡΠΎΠΊΠΈ. ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅ΠΈΠ΅ ΡΠ°Π²Π½ΠΎ 0 ΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΡΠΈΡΠ°Π΅ΡΡΡ ΠΎΠ΄Π½ΠΎΡΡΡΠΎΡΠ½ΠΎΠΉ. Π ΠΠ΅ΡΠ» Π²Π΅ΡΡΠΈΠΈ 5 ΠΈ Π²ΡΡΠ΅ Π½Π΅ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ.
$.
$INPUT_LINE_NUMBER
$NR
ΠΠΎΠΌΠ΅Ρ ΠΏΡΠΎΡΠΈΡΠ°Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Π²Π²ΠΎΠ΄Π°. ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Π²ΡΠ·ΡΠ²Π°Π΅Ρ ΠΎΡΠΈΡΡΠΊΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
$/
$RS
$INPUT_RECORD_SEPARATOR
Π‘ΠΈΠΌΠ²ΠΎΠ» β ΠΏΡΠΈΠ·Π½Π°ΠΊ ΠΊΠΎΠ½ΡΠ° Π²Ρ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΡΡΠΎ '\n'
$|
$OUTPUT_AUTOFLUSH
ΠΡΠ»ΠΈ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π½Π΅ Π½ΡΠ»Π΅Π²ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ±ΡΠΎΡ Π±ΡΡΠ΅ΡΠ° Π²ΡΠ²ΠΎΠ΄Π° ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π²ΡΠ²ΠΎΠ΄Π°. ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ -0
$,
$OFS
$OUTPUT_FIELD_SEPARATOR
Π‘ΠΈΠΌΠ²ΠΎΠ» Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΡΠΉΒ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠΌ print ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ².
$\
$ORS
$OUTPUT_RECORD_SEPARATOR
Π‘ΠΈΠΌΠ²ΠΎΠ» Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΡΠΉ print ΠΏΠΎΡΠ»Π΅ Π²ΡΠ²ΠΎΠ΄Π° Π²ΡΠ΅Ρ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ².
$"
$LIST_SEPARATOR
ΠΠ½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅Π½ Β«$,Β» Π½ΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΊΠ°Π·Π°Π½ΠΎΠΎΠ³ΠΎ Π² Β«....Β».
$;
$SUBSEP
$SUBSCRIPT_SEPARATOR
Π‘ΠΈΠΌΠ²ΠΎΠ» β ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ Π΄Π»Ρ ΡΠΌΡΠ»ΡΡΠΈΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π² Ρ Π΅Ρ ΠΌΠ°ΡΡΠΈΠ²Π°Ρ . ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ '\034'.
$#
$OFMT
Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠΈΡΠ΅Π».
$%
$FORMAT_PAGE_NUMBER
Π€ΠΎΡΠΌΠ°Ρ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π½ΠΎΠΌΠ΅ΡΠΎΠ² ΡΡΡΠ°Π½ΠΈΡ.
$=