б Perl ЮЯЯНЖХЮРХБМНЯРЭ Х ОПХНПХРЕРМНЯРЭ НОЕПЮРНПНБ ЮМЮКНЦХВМЮ ЪГШЙС я. мХФЕ ОЕПЕВХЯКЕМШ БЯЕ НОЕПЮРНПШ Б ОНПЪДЙЕ СЛЕМЭЬЕМХЪ ОПХНПХРЕРЮ, Б МЮВЮКЕ ЯРПНЙХ СЙЮГЮМЮ ЮЯЯНЖХЮРХБМНЯРЭ.
ЮЯЯНЖ. | НОЕПЮРНПШ |
---|---|
КЕБЮЪ | РЕПЛШ Х КЕБНЯРНПНММХЕ ЯОХЯЙНБШЕ НОЕПЮРНПШ |
КЕБЮЪ | -> |
- | ++ -- |
ОПЮБЮЪ | ** |
ОПЮБЮЪ | ! ~ \ СМЮПМШЕ + Х - |
КЕБЮЪ | =~ !~ |
КЕБЮЪ | * / % x |
КЕБЮЪ | + - . |
КЕБЮЪ | << >> |
- | ХЛЕМНБЮММШЕ СМЮПМШЕ НОЕПЮРНПШ |
- | < > <= >= lt gt le ge |
- | == != <=> eq ne cmp |
КЕБЮЪ | & |
КЕБЮЪ | | ^ |
КЕБЮЪ | && |
КЕБЮЪ | || |
- | .. |
ОПЮБЮЪ | ?: |
ОПЮБЮЪ | = += -= *= Х Р.Д. |
КЕБЮЪ | , => |
- | ОПЮБНЯРНПНММХЕ ЯОХЯЙНБШЕ НОЕПЮРНПШ |
КЕБЮЪ | not |
КЕБЮЪ | and |
КЕБЮЪ | or xor |
рЕПЛШ Х КЕБНЯРНПНММХЕ ЯОХЯЙНБШЕ НОЕПЮРНПШ.
кЧАНИ РЕПЛ ХЛЕЕР ЯЮЛШИ БШЯНЙХИ ОПХНПХРЕР. й РЕПЛС НРМНЯЪРЯЪ ОЕПЕЛЕММШЕ, ЙЮБШВЙХ Х ХУ НОЕПЮРНПШ, ЮПХТЛЕРХВЕЯЙХЕ Х КНЦХВЕЯЙХЕ БШПЮФЕМХЪ Б ЯЙНАЙЮУ, КЧАШЕ ТСМЙЖХХ Я ОЮПЮЛЕРПЮЛХ Б ЯЙНАЙЮУ. тЮЙРХВЕЯЙХ РЮЙХУ ТСМЙЖХИ МЕР, РЮЙ ЙЮЙ ЩРН ОПНЯРН СМЮПМШЕ Х ЯОХЯЙНБШЕ НОЕПЮРНПШ. оПНЯРН НМХ БЕДСР ЯЕАЪ ОНДНАМН ТСМЙЖХЪЛ Я ОЮПЮЛЕРПЮЛХ Б ЯЙНАЙЮУ. оНДПНАМН ЯЛНРПХ ЦКЮБС тСМЙЖХХ.
еЯКХ ОНЯКЕ КЧАНЦН ЯОХЯЙНБНЦН НОЕПЮРНПЮ ( print(), Х Р.Д.) ХКХ СМЮПМНЦН НОЕПЮРНПЮ (chdir(), Х Р.Д.) ЯКЕДСЕР КЕБЮЪ ЙПСЦКЮЪ ЯЙНАЙЮ, РН НОЕПЮРНПШ БМСРПХ ЯЙНАНЙ ХЛЕЧР МЮХБШЯЬХИ ОПХНПХРЕР. рЮЙ ФЕ ЙЮЙ Х НАШВМШЕ ТСМЙЖХХ.
еЯКХ ЯЙНАЙХ НРЯСРЯРБСЧР, РН ОПХНПХРЕР ЯОХЯЙНБШУ НОЕПЮРНПНБ ХКХ МЮХБШЯЬХИ ХКХ МЮХЛЕМЭЬХИ Б НРМНЬЕМХХ НОЕПЮРНПНБ ЯОПЮБЮ ХКХ ЯКЕБЮ НР МЕЦН.
мЮОПХЛЕП:
@i = ('a ','b ', print 'c ', 'd '); print "\n",@i,"\n";
пЕГСКЭРЮР:
c d a b 1
гДЕЯЭ ЛШ ХЛЕЕЛ ЯОХЯЙНБШИ НОЕПЮРНП print. дКЪ ГЮОЪРШУ ЯКЕБЮ НР МЕЦН НМ ХЛЕЕР МЮХЛЕМЭЬХИ ОПХНПХРЕР, МН ОНБШЬЮЕР ОПХНПХРЕР ОПЮБНИ ГЮОЪРНИ. оНЩРНЛС ОПЮБЮЪ ГЮОЪРЮЪ БНЯОПХМХЛЮЕРЯЪ ЙЮЙ ОЮПЮЛЕРП ДКЪ print Х ОЕВЮРЮЕРЯЪ 'c d', Ю КЕБЮЪ ОПНЯРН ГЮОХЯШБЮЕР ЙНД ГЮБЕПЬЕМХЪ НОЕПЮЖХХ Б ЛЮЯЯХБ @i Х ОНЯКЕДМХИ print ОНЙЮГШБЮЕР ЩРН.
нОЕПЮРНП '->'
рЮЙ ФЕ ЙЮЙ Б я ХКХ я++ ЩРН ХМТХЙЯМШИ НОЕПЮРНП ОЕПЕЮДПЕЯЮЖХХ. еЯКХ ЯОПЮБЮ НР МЕЦН ЯРНХР [...] ХКХ {...} БШПЮФЕМХЕ, РН ОПЮБЮЪ ВЮЯРЭ ЛНФЕР АШРЭ МЕОНЯПЕДЯРБЕММНИ ХКХ ЯХЛБНКХВЕЯЙНИ ЯЯШКЙНИ МЮ ЛЮЯЯХБ ХКХ УЕЬ. б ОПНРХБМНЛ ЯКСВЮЕ ОПЮБЮЪ ЯРНПНМЮ ЩРН ЛЕРНД ХКХ ОПНЯРНИ ЯЙЮКЪП, ЯНДЕПФЮЫХИ ХЛЪ ЛЕРНДЮ, Ю ОПЮБЮЪ - ХКХ НАЗЕЙР ХКХ ХЛЪ ЙКЮЯЯЮ. оНДПНАМН ЯЛНРПХ ЦКЮБС йКЮЯЯШ.
нОЕПЮРНПШ ++ (ХМЙПЕЛЕМР) Х -- (ДЕЙПЕЛЕМР).
щРХ НОЕПЮРНПШ ПЮАНРЮЧР РЮЙ ФЕ ЙЮЙ Х Б я. еЯКХ НОЕПЮРНП ЯРНХР ОЕПЕД ОЕПЕЛЕММНИ, РН ГМЮВЕМХЕ ОЕПЕЛЕММНИ ХГЛЕМЪЕРЯЪ МЮ 1 Х ОНКСВЕММНЕ ГМЮВЕМХЕ ХЯОНКЭГСЕРЯЪ. еЯКХ ОНЯКЕ ОЕПЕЛЕММНИ - РН ЕЕ БЕКХВХМЮ ХГЛЕМЪЕРЯЪ ОНЯКЕ ОПХЛЕМЕМХЪ.
сОНРПЕАКЕМХЕ ХМЙПЕЛЕМРЮ Й ЯРПНЙНБШЛ ОЕПЕЛЕММШЛ Б Perl ХЛЕЕР НДМС НЯНАЕММНЯРЭ. йЮФДШИ ЯХЛБНК НЯРЮЕРЯЪ Б ЯБНЕЛ ЙКЮЯЯЕ (АНКЭЬХЕ, ЛЮКШЕ, ЖХТПШ) Х СВХРШБЮЕРЯЪ ОЕПЕМНЯ ОПЕДШДСЫЕЦН ЯХЛБНКЮ. рЮЙХЛ НАПЮГНЛ ЯРПНЙНБШЕ ОЕПЕЛЕММШЕ Я ЖХТПЮЛХ ПЮАНРЮЧР ЙЮЙ ВХЯКНБШЕ ОЕПЕЛЕММШЕ.
оПХЛЕП:
print ++($i = "09"); # пЕГСКЭРЮР "10" print ++($i = "a9"); # "b0" print ++($i = "az"); # "ba" print ++($i = "aZ"); # "bA"
нОЕПЮРНП ** (БНГБЕДЕМХЕ Б ЯРЕОЕМЭ)
оПХЛЕП:
print 4**2 # пЕГСКЭРЮР 16 print -4**2 # пЕГСКЭРЮР -16 Р.Е. -(4**2)
'!' | - КНЦХВЕЯЙНЕ НРПХЖЮМХЕ |
'-' | - ЮПХТЛЕРХВЕЯЙХИ ЛХМСЯ |
'~' | - ОНАХРМЮЪ ХМБЕПЯХЪ (ДНОНКМЕМХЕ ДН 1) |
'+' | - ЮПХТЛЕРХВЕЯЙХИ ОКЧЯ |
'\' | - ОНКСВЕМХЕ ЯЯШКЙХ МЮ ОЕПЕЛЕММСЧ (ЙЮЙ & Б я) |
нОЕПЮРНПШ "ОПХБЪГЙХ" =~ Х != .
щРХ "МЕНАШВМШЕ", Ъ АШ ДЮФЕ ЯЙЮГЮК, НПХЦХМЮКЭМШЕ НОЕПЮРНПШ ХЛЕЧР НВЕМЭ ЬХПНЙНЕ ОПХЛЕМЕМХЕ Б Perl. лНФМН ДЮФЕ МЮГБЮРЭ ХУ "НПХЦХМЮКЭМШЛ" ПЕЬЕМХЕЛ. нОЕПЮРНП =~ КНЦХВЕЯЙХ ЯБЪГШБЮЕР КЕБСЧ ВЮЯРЭ БШПЮФЕМХЪ Я ОЮРЕПМНЛ (pattern - НАПЮГЕЖ, ЬЮАКНМ, ЛНДЕКЭ) Б ОПЮБНИ. оН СЛНКВЮМХЧ ОНХЯЙ ХКХ ХГЛЕМЕМХЕ ОН ОЮРЕПМС БШОНКМЪЕРЯЪ Б ОЕПЕЛЕММНИ $_ нОЕПЮРНПШ ОПХБЪГЙХ ОНГБНКЪЧР ДЕКЮРЭ ЩРН Я КЧАНИ ОЕПЕЛЕММНИ, СЙЮГЮММНИ Б КЕБНИ ВЮЯРХ. кНЦХВЕЯЙХЛ ПЕГСКЭРЮРНЛ АСДЕР СЯОЕУ НОЕПЮЖХХ. еЯКХ Б ОПЮБНИ ВЮЯРХ БЛЕЯРН ОЮРЕПМЮ ОПХЯСРЯРБСЕР БШПЮФЕМХЕ, РН ПЕГСКЭРЮР ЩРНЦН БШПЮФЕМХЪ БНЯОПХМХЛЮЕРЯЪ ЙЮЙ ОЮРЕПМ. нДМЮЙН ЩРН МЕ НВЕМЭ ЩТТЕЙРХБМН, Р.Й. ОЮРЕПМ АСДЕР ЙНЛОХКХПНБЮРЭЯЪ БН БПЕЛЪ ХЯОНКМЕМХЪ ОПНЦПЮЛЛШ, ВРН ГЮЛЕРМН ЯМХГХР АШЯРПНДЕИЯРБХЕ. нОЕПЮРНП != ЮМЮКНЦХВЕМ =~, РНКЭЙН ПЕГСКЭРЮР ЯНБОЮДЕМХЪ ХМБЕПРХПСЕРЯЪ (КНЦХВЕЯЙНЕ "МЕР"). оНДПНАМНЕ ОПХЛЕМЕМХЕ ЩРХУ НОЕПЮРНПНБ ОПХБНДХРЯЪ Б ЦКЮБЕ оЮРЕПМШ.
'*' | - ЮПХТЛЕРХВЕЯЙНЕ СЛМНФЕМХЕ |
'/' | - ЮПХТЛЕРХВЕЯЙНЕ ДЕКЕМХЕ |
'%' | - ЮПХТЛЕРХВЕЯЙХИ ЛНДСКЭ |
'x' | - НОЕПЮРНП ОНБРНПЕМХЪ |
б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ БНГБПЮЫЮЕР ЯРПНЙС КЕБНИ ВЮЯРХ, ОНБРНПЕММСЧ БЕКХВХМНИ, СЙЮГЮММНИ Б ОПЮБНИ ВЮЯРХ. б ЯОХЯЙНБНЛ ЙНМРЕЙЯРЕ, ЕЯКХ Б КЕБНИ ВЮЯРХ ЯОХЯНЙ, РН Б ЙПСЦКШУ ЯЙНАЙЮУ - ОНБРНПЕММШИ ЯОХЯНЙ.
оПХЛЕП:
print '*' x 5; # пЕГСКЭРЮР '*****' print (1,2) x 3; # пЕГСКЭРЮР 121212
'+' | - ЮПХТЛЕРХВЕЯЙХИ ОКЧЯ |
'-' | - ЮПХТЛЕРХВЕЯЙХИ ЛХМСЯ |
'.' | - ЙНМЙЮРЕМЮЖХЪ (НАЗЕДХМЕМХЕ) ЯРПНЙ |
'<<' | - яДБХЦЮЕР ОНАХРМН БКЕБН ГМЮВЕМХЕ БШПЮФЕМХЪ Б КЕБНИ ВЮЯРХ |
МЮ ЙНКХВЕЯРБН АХР СЙЮГЮММНЕ Б ОПЮБНИ. | |
'>>' | - яДБХЦЮЕР ОНАХРМН БОПЮБН ГМЮВЕМХЕ БШПЮФЕМХЪ Б КЕБНИ ВЮЯРХ |
МЮ ЙНКХВЕЯРБН АХР СЙЮГЮММНЕ Б ОПЮБНИ. |
хЛЕМНБЮММШЕ СМЮПМШЕ НОЕПЮРНПШ.
тЮЙРХВЕЯЙХ ЩРН ТСМЙЖХХ Я НДМХЛ ЮПЦСЛЕМРНЛ. йПСЦКШЕ ЯЙНАЙХ ЛНФМН НОСЯЙЮРЭ.
'<' | - ЮПХТЛЕРХВЕЯЙНЕ ЛЕМЭЬЕ |
'>' | - ЮПХТЛЕРХВЕЯЙНЕ АНКЭЬЕ |
'<=' | - ЮПХТЛЕРХВЕЯЙНЕ ЛЕМЭЬЕ ХКХ ПЮБМН |
'>=' | - ЮПХТЛЕРХВЕЯЙНЕ АНКЭЬЕ ХКХ ПЮБМН |
'lt' | - ЯРПНЙНБНЕ ЛЕМЭЬЕ |
'gt' | - ЯРПНЙНБНЕ АНКЭЬЕ |
'le' | - ЯРПНЙНБНЕ ЛЕМЭЬЕ ХКХ ПЮБМН |
'ge' | - ЯРПНЙНБНЕ АНКЭЬЕ ХКХ ПЮБМН |
'==' | ПЕГСКЭРЮР true ЕЯКХ КЕБЮЪ ВЮЯРЭ ПЮБМЮ ОПЮБНИ (ПЮБМН) |
'!=' | - МЕ ПЮБМН |
'<=>' | - -1 ЕЯКХ КЕБЮЪ ВЮЯРЭ ЛЕМЭЬЕ ОПЮБНИ, 0 ЕЯКХ ПЮБМЮ, |
1 ЕЯКХ АНКЭЬЕ. | |
'eq' | - ЯРПНЙНБНЕ ПЮБМН |
'ne' | - ЯРПНЙНБНЕ МЕ ПЮБМН |
'cmp' | - ЙЮЙ Х '<=>' ОПХЛЕМХРЕКЭМН Й ЯРПНЙЮЛ |
'&' | - ОНАХРМНЕ AND |
'|' | - ОНАХРМНЕ OR |
'^' | - ОНАХРМНЕ XOR |
кНЦХВЕЯЙХЕ НОЕПЮРНПШ && (AND) Х || (OR).
'&&' | - ЕЯКХ КЕБНЕ БШПЮФЕМХЕ БНГБПЮЫЮЕР false, ОПЮБНЕ МЕ БШОНКМЪЕРЯЪ. |
'||' | - ЕЯКХ КЕБНЕ БШПЮФЕМХЕ БНГБПЮЫЮЕР true, ОПЮБНЕ МЕ БШОНКМЪЕРЯЪ. |
нРКХВХЕ НР ОНДНАМШУ НОЕПЮРНПНБ Б я ГЮЙКЧВЮЕРЯЪ Б РНЛ, ВРН Б я БНГБПЮЫЮЕЛНЕ ГМЮВЕМХЕ КХАН 0, КХАН 1, РНЦДЮ ЙЮЙ Б Perl БНГБПЮЫЮЕРЯЪ ПЕГСКЭРЮР БШПЮФЕМХЪ.
пЕГСКЭРЮР ПЮАНРШ ДЮММНЦН НОЕПЮРНПЮ ГЮБХЯХР НР ЙНМРЕЙЯРЮ. б ЯОХЯЙНБНЛ ЙНМРЕЙЯРЕ ПЕГСКЭРЮР ЕЯРЭ ЯОХЯНЙ Я ЩКЕЛЕМРЮЛХ, ОЕПБШИ ЩКЕЛЕМР ЙНРНПНЦН ЩРН КЕБНЕ БШПЮФЕМХЕ Х ОНЯКЕДМЕЕ - ОПЮБНЕ. гМЮВЕМХЕ ЙЮФДНЦН ЩКЕЛЕМРЮ БМСРПХ ЯОХЯЙЮ СБЕКХВХБЮЕРЯЪ МЮ 1. дЮММШИ НОЕПЮРНП СДНАЕМ ДКЪ МЕАНКЭЬХУ ЖХЙКНБ, Р.Й. ОЮЛЪРЭ НРБНДХРЯЪ ДКЪ БЯЕЦН ЯОХЯЙЮ ЖЕКХЙНЛ. оНЩРНЛС АСДЭРЕ БМХЛЮРЕКЭМШ Х МЕ ГЮДЮБЮИРЕ ЯКХЬЙНЛ АНКЭЬНИ ДХЮОЮГНМ.
оПХЛЕП:
for $i (1..4) { print "$i "; }
пЕГСКЭРЮР: 1 2 3 4
б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ ПЕГСКЭРЮР - КНЦХВЕЯЙНЕ ГМЮВЕМХЕ. йЮФДЮЪ '..' НОЕПЮЖХЪ СЯРЮМЮБКХБЮЕР ЯБНЕ ЯНАЯРБЕММНЕ ЯНЯРНЪМХЕ. щРН false ДН РЕУ ОНП ОНЙЮ КЕБШИ НОЕПЮМД false. йЮЙ РНКЭЙН КЕБШИ НОЕПЮМД ЯРЮК true ПЕГСКЭРЮР - true ДН РЕУ ОНЙЮ ОПЮБШИ true, ОНЯКЕ ВЕЦН ПЕГСКЭРЮР НОЪРЭ - false. еЯКХ БШ МЕ УНРХРЕ ОПНБЕПЪРЭ ОПЮБШИ НОЕПЮМД, РН ХЯОНКЭГСИРЕ НОЕПЮРНП '...'.
оПЮБШИ НОЕПЮМД МЕ БШВХЯКЪЕРЯЪ ОНЙЮ ПЕГСКЭРЮР false Х КЕБШИ НОЕПЮМД МЕ БШВХЯКЪЕРЯЪ ОНЙЮ ПЕГСКЭРЮР true. оПХНПХРЕРМНЯРЭ НОЕПЮРНПЮ '..' МЕЛМНЦН МХФЕ ВЕЛ '&&' Х '||'. бНГБПЮЫЮЕЛНЕ ГМЮВЕМХЕ ЕЯКХ flase - МСКЕБЮЪ ЯРПНЙЮ, ЕЯКХ true - ОНПЪДЙНБШИ МНЛЕП МЮВХМЮЪ Я 1. оНПЪДЙНБШИ МНЛЕП НАМСКЪЕРЯЪ ДКЪ ЙЮФДНЦН МНБНЦН ДХЮОЮГНМЮ. оНЯКЕДМХИ ОНПЪДЙНБШИ МНЛЕП ДНАЮБКЪЕРЯЪ ЯРПНЙНИ "E0" ЙНРНПЮЪ МЕ ХГЛЕМЪЕР ЕЦН ГМЮВЕМХЕ, МН ОНГБНКЪЕР ТХЙЯХПНБЮРЭ ОНЯКЕДМЕЕ ГМЮВЕМХЕ.
оПХЛЕП:
@ЮКТЮБХР = ('a'..'z'); # лЮЯЯХБ ЛЮКШУ АСЙБ КЮРХМЯЙНЦН ЮКТЮБХРЮ @ЖХТПШ = (0..9); # лЮЯЯХБ ЖХТП
щРНР НОЕПЮРНП ПЮАНРЮЕР РЮЙ ФЕ ЙЮЙ Х Б я. еЯКХ БШПЮФЕМХЕ ОЕПЕД '?' ХЯРХММН, РН БШОНКМЪЕРЯЪ ЮПЦСЛЕМР ОЕПЕД ':' - ХМЮВЕ ОНЯКЕ ':'.
оПХЛЕП:
$i = 1; $i > 1 ? print "АНКЭЬЕ" : print "ЛЕМЭЬЕ";
пЕГСКЭРЮР: ЛЕМЭЬЕ
'=' | - НАШВМШИ НОЕПЮРНП "ОПХЯБНХРЭ" ОПЮБНЕ ГМЮВЕМХЕ ОЕПЕЛЕММНИ ЯКЕБЮ |
бЯЪ ЩРЮ ЦПСООЮ НОЕПЮРНПНБ ОНДНАМЮ НОЕПЮРНПЮЛ я, Р.Е.
$i += 2;
ЩЙБХБЮКЕМРМН
$i = $i + 2;
нЯРЮКЭМШЕ НОЕПЮРНПШ ЩРНИ ЦПСООШ ПЮАНРЮЧР ЮМЮКНЦХВМН. дНОСЯРХЛШ ЯКЕДСЧЫХЕ НОЕПЮРНПШ:
**= |
+=, -=, .= |
*=, /=, %=, x= |
&=, |=, ^= |
<<=, >>= |
&&=, ||= |
оПХНПХРЕР БЯЕИ ЩРНИ ЦПСООШ НОЕПЮРНПНБ ПЮБЕМ ОПХНПХРЕРС '='.
б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ БШОНКМЪЕРЯЪ КЕБШИ ЮПЦСЛЕМР, ПЕГСКЭРЮР ХЦМНПХПСЕРЯЪ, ГЮРЕЛ ОПЮБШИ Х ЕЦН ПЕГСКЭРЮР ЕЯРЭ ПЕГСКЭРЮР ДЕИЯРБХЪ НОЕПЮРНПЮ. б ЯОХЯЙНБНЛ ЙНМРЕЙЯРЕ ЩРН ПЮГДЕКХРЕКЭ ЩКЕЛЕМРНБ ЯОХЯЙЮ, ЙНРНПШИ БЙКЧВЮЕР СЙЮГЮММШЕ ЩКЕЛЕМРШ Б ЯОХЯНЙ.
нОЕПЮРНП КНЦХВЕЯЙНЕ not
(НРПХЖЮМХЕ).
сМЮПМШИ not БНГБПЮЫЮЕР
ОПНРХБНОНКНФМНЕ ГМЮВЕМХЕ,
ОНКСВЕММНЕ БШПЮФЕМХЕЛ ЯОПЮБЮ. нМ
ЩЙБХБЮКЕМРЕМ '!', МН ХЛЕЕР НВЕМЭ
МХГЙХИ ОПХНПХРЕР.
нОЕПЮРНП КНЦХВЕЯЙНЕ and (х).
бШОНКМЪЕР КНЦХВЕЯЙСЧ ЙНМЗЧМЙЖХЧ
ДБСУ БШПЮФЕМХИ. щЙБХБЮКЕМРЕМ
'&&', МН ХЛЕЕР НВЕМЭ МХГЙХИ
ОПХНПХРЕР Х "ЙПЮРЙНЯРЭ"
ДЕИЯРБХЪ, Р. Е. ЕЯКХ КЕБНЕ БШПЮФЕМХЕ
ПЮБМН false - КЕБНЕ МЕ БШОНКМЪЕРЯЪ.
кНЦХВЕЯЙНЕ or (хкх).
бШОНКМЪЕР КНЦХВЕЯЙСЧ ДХГЗЧМЙЖХЧ
ДБСУ БШПЮФЕМХИ. щЙБХБЮКЕМРЕМ '||', МН
ХЛЕЕР НВЕМЭ МХГЙХИ ОПХНПХРЕР Х
"ЙПЮРЙНЯРЭ" ДЕИЯРБХЪ, Р. Е. ЕЯКХ
КЕБНЕ БШПЮФЕМХЕ ПЮБМН true - КЕБНЕ МЕ
БШОНКМЪЕРЯЪ.
кНЦХВЕЯЙНЕ xor (ХЯЙКЧВЮЧЫЕЕ хкх).
бШОНКМЪЕР КНЦХВЕЯЙНЕ ХЯЙКЧВЮЧЫХЕ
ХКХ. бЯЕЦДЮ БШОНКМЪЧРЯЪ НАЮ ОПЮБНЕ
Х КЕБНЕ БШПЮФЕМХЕ.
б Perl НРЯСРЯРБСЧР НОЕПЮРНПШ ЪГШЙЮ я РЮЙХЕ ЙЮЙ:
СМЮПМНЕ & | - ОНКСВХРЭ ЮДПЕЯ. дКЪ ЩРНЦН ОПХЛЕМЪЕРЯЪ '\'. |
СМЮПМШИ * | - ОЕПЕЮДПЕЯЮЖХЪ. |
(TYPE) | - ЯНБЛЕЫЕМХЕ РХОНБ. |
нАШВМН НЦПЮМХВХРЕКЪЛХ ЯРПНЙ ЛШ ЯВХРЮЕЛ КХРЕПЮКШ, МН Б Perl ЩРН НОЕПЮРНПШ БШОНКМЪЧЫХЕ ПЮГМНЦН ПНДЮ ХМРЕПОНКЪЖХЧ Х ОНХЯЙ ОН ЬЮАКНМС. бШ ЛНФЕРЕ ЯЮЛХ ГЮДЮБЮРЭ СДНАМШЕ ДКЪ БЮЯ НЦПЮМХВХРЕКХ. б ЯКЕДСЧЫЕИ РЮАКХЖЕ ОПХБЕДЕМ ОНКМШИ ОЕПЕВЕМЭ БЮПХЮМРНБ. тХЦСПМШЕ ЯЙНАЙХ '{}' НАНГМЮВЮЧР КЧАНИ ЯХЛБНК, ХЯОНКЭГСЕЛШИ ДКЪ НЦПЮМХВХРЕКЪ. б ЯКСВЮЕ ХЯОНКЭГНБЮМХЪ ЯЙНАНЙ (ЙПСЦКШУ '()', ЙБЮДПЮРМШУ '[]', ТХЦСПМШУ '{}', СЦКНБШУ '<>') Б МЮВЮКЕ ЯРЮБХРЯЪ НРЙПШБЮЧЫЮЪЯЪ ЯЙНАЙЮ, Ю Б ЙНМЖЕ ГЮЙПШБЮЧЫЮЪ.
оН СЛНКВЮМХЧ | оНКМНЕ | тСМЙЖХЪ | хМРЕПОНКЪЖХЪ |
---|---|---|---|
'' | q{} | Literal | МЕР |
"" | qq{} | кХРЕПЮК | ДЮ |
`` | qx{} | йНЛЮМДЮ | ДЮ |
qw{} | яОХЯНЙ ЯКНБ | МЕР | |
// | m{} | ьЮАКНМ | ДЮ |
s{}{} | оНДЯРЮМНБЙЮ | ДЮ | |
tr{}{} | рПЮМЯКЪЖХЪ | МЕР |
б ЯРПНЙЮУ ДНОСЯЙЮЧЫХУ ХМРЕПОНКЪЖХЧ ХЛЕМЮ ОЕПЕЛЕММШУ, МЮВХМЮЧЫХЕЯЪ Я ЯХЛБНКНБ '$' ХКХ '@' - ХМРЕПОНКХПСЧРЯЪ, Р.Е. Б ЯРПНЙС БЯРЮБКЪЕРЯЪ ГМЮВЕМХЕ ЯРПНЙХ ХКХ ЛЮЯЯХБЮ. дЮММШЕ ОНЯКЕДНБЮРЕКЭМНЯРХ ЯХЛБНКНБ ХЛЕЧР ЯОЕЖХЮКЭМНЕ ГМЮВЕМХЕ:
\t | ЯХЛБНК РЮАСКЪЖХХ |
\n | ЯХЛБНК МНБНИ ЯРПНЙХ |
\r | БНГБПЮР |
\f | ОЕПЕБНД ТНПЛЮРЮ |
\v | БЕПРХЙЮКЭМЮЪ РЮАСКЪЖХЪ |
\b | backspace (ГЮАНИ) |
\a | ГБНМНЙ |
\e | escape |
\034 | БНЯЭЛЕПХВМШИ ЯХЛБНК |
\x1a | ЬЕЯРМЮДЖЮРЕПХВМШИ ЯХЛБНК |
\c[ | ЯХЛБНК СОПЮБКЕМХЪ |
\l | МХФМХИ ПЕЦХЯРП ЯКЕДСЧЫЕЦН ЯХЛБНКЮ |
\u | БЕПУМХИ ПЕЦХЯРП ЯКЕДСЧЫЕЦН ЯХЛБНКЮ |
\L | МХФМХИ ПЕЦХЯРП ДКЪ БЯЕУ ЯХЛБНКНБ ДН \E |
\U | БЕПУМХИ ПЕЦХЯРП ДКЪ БЯЕУ ЯХЛБНКНБ ДН \E |
\E | НЦПЮМХВХРЕКЭ ЯЛЕМШ ПЕЦХЯРПЮ |
\Q | НРЛЕМЮ ДЕИЯРБХЪ ЛЕРЮЯХЛБНКНБ ДН \E |
ьЮАКНМШ ХМРЕПОНКХПСЧРЯЪ ЙЮЙ ПЕЦСКЪПМШЕ БШПЮФЕМХЪ. щРН БШОНКМЪЕРЯЪ БРНПШЛ ОПНУНДНЛ ОНЯКЕ ХМРЕПОНКЪЖХХ ОЕПЕЛЕММШУ, ОНЩРНЛС Б ЬЮАКНМШ ЛНФМН БЯРЮБКЪРЭ ОЕПЕЛЕММШЕ. дКЪ НРЛЕМШ ХМРЕПОНКЪЖХХ ХЯОНКЭГСИРЕ '\Q'. еЯКХ БШ ОПХЛЕМЪЕРЕ БКНФЕММШЕ НЦПЮМХВХРЕКХ, РН БМСРПЕММХЕ НЦПЮМХВХРЕКХ ПЮАНРЮРЭ МЕ АСДСР.
дЕИЯРБХЕ ЩРНЦН НОЕПЮРНПЮ ЮМЮКНЦХВМН /ЬЮАКНМ/, МН БШОНКМЪЕРЯЪ ДН ОЕПБНЦН ЯНБОЮДЕМХЪ. щРН СДНАМН ДКЪ ОНХЯЙЮ МЮКХВХЪ ЙЮЙНИ-МХАСДЭ ЯРПНЙХ Б НДМНЛ ХКХ ЛМНФЕЯРБЕ ТЮИКНБ. щРН МЕ НВЕМЭ СДЮВМШИ НОЕПЮРНП, ОНЩРНЛС Б ЯКЕДСЧЫХУ БЕПЯХЪУ Perl ЕЦН БНГЛНФМН МЕ АСДЕР.
m/PATERN/gimosx
/PATERN/gimosx
оНХЯЙ Б ЯРПНЙЕ ОН ОЮРЕПМС (ЬЮАКНМС). б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ БНГБПЮЫЮЕР КНЦХВЕЯЙНЕ ГМЮВЕМХЕ true (1) ХКХ false (''). еЯКХ ЯРПНЙЮ МЕ СЙЮГЮМЮ Я ОНЛНЫЭЧ НОЕПЮРНПНБ '=~' ХКХ '!~', ОНХЯЙ БЕДЕРЯЪ Б ЯРПНЙЕ $_ нОЖХХ:
g | - цКНАЮКЭМШИ ОНХЯЙ. оНХЯЙ БЯЕУ БУНФДЕМХИ. |
i | - яПЮБМЕМХЕ МЕ ГЮБХЯХР НР ПЕЦХЯРПЮ (БЕПУМХИ ХКХ МХФМХИ) |
m | - яРПНЙЮ ЛМНЦНЯРПНВМЮЪ. |
o | - НДМНОПНУНДМЮЪ ЙНЛОХКЪЖХЪ |
s | - НДМНЯРПНВМЮЪ ЯРПНЙЮ |
x | - ХЯОНКЭГСЧРЯЪ ПЮЯЬХПЕММШЕ ПЕЦСКЪПМШЕ БШПЮФЕМХЪ. |
еЯКХ '/' - НЦПЮМХВХРЕКЭ, РН МЮВЮКЭМНЕ 'm' ЛНФМН НОСЯРХРЭ. я ОНЛНЫЭЧ МЕЦН Б ЙЮВЕЯРБЕ НЦПЮМХВХРЕКЪ ЛНФЕР АШРЭ КЧАНИ ЯХЛБНК ЙПНЛЕ ОПНАЕКЮ.
PATTERN ЛНФЕР ЯНДЕПФЮРЭ ОЕПЕЛЕММШЕ, ЙНРНПШЕ АСДСР ХМРЕПОНКХПНБЮРЭЯЪ (ОЕПЕЙНЛОХКХПНБЮРЭЯЪ) ЙЮФДШИ ПЮГ Б ЛНЛЕМР БШВХЯКЕМХЪ. оЕПЕЛЕММШЕ $) Х $| МЕ ХМРЕПОНКХПСЧРЯЪ. еЯКХ БШ УНРХРЕ, ВРН АШ РЮЙНИ ЬЮАКНМ ХМРЕПОНКХПНБЮКЯЪ НДХМ ПЮГ - ДНАЮБЭРЕ /o. щРН МЕНАУНДХЛН ДЕКЮРЭ Б ЖХЙКЮУ ОНХЯЙЮ ДКЪ СБЕКХВЕМХЪ АШЯРПНДЕИЯРБХЪ, НДМЮЙН, ЕЯКХ БШ ХГЛЕМХРЕ ГМЮВЕМХЕ ОЕПЕЛЕММНИ, Perl ЩРНЦН ДЮФЕ МЕ ГЮЛЕРХР.
еЯКХ PATERN - МСКЕБЮЪ ЯРПНЙЮ, РН ХЯОНКЭГСЕРЯЪ ОНЯКЕДМЕЕ ПЕЦСКЪПМНЕ БШПЮФЕМХЕ.
б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ БНГБПЮЫЮЕРЯЪ ЯОХЯНЙ ЩКЕЛЕМРШ ЙНРНПНЦН - ПЕГСКЭРЮРШ БШОНКМЕМХЪ БШПЮФЕМХИ Б ЯЙНАЙЮУ ОЮРЕПМЮ ($1, $2, $3...). нАПЮРХРЕ БМХЛЮМХЕ ВРН ОЕПБШИ ЩКЕЛЕМР $1.
оПХЛЕП:
$a = "/usr/local/perl/perl.bin"; # юМЮКХГХПСЕЛЮЪ ЯРПНЙЮ
жЕКЭ: яНГДЮРЭ ЛЮЯЯХБ @dirs
Я ХЛЕМЮЛХ ДХПЕЙРНПХИ.
пЕЬЕМХЕ: яЮЛШИ ОПНЯРНИ
ЯОНЯНА БНЯОНКЭГНБЮРЭЯЪ split('\/') МН Б
ЙЮВЕЯРБЕ ОПХЛЕПЮ ХЯОНКЭГСЕЛ
ЯЙНАЙХ.
@dirs =~ m[/(\w*)/(\w*)/(\w*)/(\w*)]
гДЕЯЭ 'm[' - ХЯОНКЭГНБЮРЭ
ЙБЮДПЮРМШЕ ЯЙНАЙХ ЙЮЙ
НЦПЮМХВХРЕКХ. (\w*)- ЬЮАКНМ
ЮКТЮБХРМН-ЖХТПНБНИ
ОНЯКЕДНБЮРЕКЭМНЯРХ.
б ПЕГСКЭРЮРЕ @dirs ПЮБЕМ ('usr', 'local', 'perl')
q/ЯРПНЙЮ/
'ЯРПНЙЮ'
яРПНЙЮ КХРЕПЮКНБ. мЕ ХМРЕПОНКХПСЕРЯЪ. бМСРПХ ЯРПНЙХ ПЮГПЕЬЮЕРЯЪ ХЯОНКЭГНБЮРЭ \' ХКХ \\ ДКЪ НАНГМЮВЕМХЪ ЯХЛБНКНБ ' Х \ .
оПХЛЕП:
print q#оПХБЕР.#; # пЕГСКЭРЮР оПХБЕР. print 'O\'K'; # O'K
qq/ЯРПНЙЮ/
"ЯРПНЙЮ"
хМРЕПОНКХПСЕЛЮЪ ЯРПНЙЮ.
оПХЛЕП:
$var = 13; print "\$var = $var";
пЕГСКЭРЮР: $var = 13
qx/ЯРПНЙЮ/
`ЯРПНЙЮ`
яМЮВЮКЮ ЯРПНЙЮ ХМРЕПОНКХПСЕРЯЪ, Ю ОНРНЛ БШОНКМЪЕРЯЪ ЙЮЙ ЯХЯРЕЛМЮЪ ЙНЛЮМДЮ.
оПХЛЕП:
print `date`;
пЕГСКЭРЮР: Thu Nov 14 13:36:49 MSK 1996
qw/ЯРПНЙЮ/
бНГБПЮЫЮЕР ЯОХЯНЙ, ЩКЕЛЕМРШ ЙНРНПНЦН - ЯКНБЮ ЯРПНЙХ, ПЮГДЕКЕММШЕ ОПНАЕКЮЛХ.
оПХЛЕП:
print qw/оНЯРПНХЛЯЪ Х ЯОЮЯЕЛЯЪ!/; # ('оНЯРПНХЛЯЪ','Х','ЯОЮЯЕЛЯЪ!')
пЕГСКЭРЮР:
оНЯРПНХЛЯЪХЯОЮЯЕЛЯЪ!
вЮЯРН ОПХЛЕМЪЕРЯЪ ЙЮЙ:
use POSIX qw( setlocale localeconv ) @EXPORT = qw( proc1 var );
s/ЬЮАКНМ/ОНДЯРПНЙЮ/egimosx
оНХЯЙ ОН ЬЮАКНМС Х Б ЯКСВЮЕ СЯОЕУЮ ГЮЛЕМЮ ОНДЯРПНЙНИ. бНГБПЮЫЮЕР ЙНКХВЕЯРБН ОПНХГБЕДЕММШУ ОНДЯРЮМНБНЙ, ХМЮВЕ false (0). еЯКХ ЯРПНЙЮ Б ЙНРНПНИ БЕДЕРЯЪ ОНХЯЙ МЕ СЙЮГЮМЮ (НОЕПЮРНПШ =~ ХКХ != ), РН ХЯОНКЭГСЕРЯЪ ОЕПЕЛЕММЮЪ $_ . еЯКХ Б ЙЮВЕЯРБЕ ПЮГДЕКХРЕКЪ '/' ХЯОНКЭГНБЮРЭ НДХМЮПМСЧ ЙЮБШВЙС ('), РН ХМРЕПОНКЪЖХХ МЕ АСДЕР, ХМЮВЕ ЛНФМН ОПХЛЕМЪРЭ ОЕПЕЛЕММШЕ Б ЬЮАКНМЕ ХКХ ОНДЯРПНЙЕ.
нОЖХХ:
e | - пЮЯЯЛЮРПХБЮРЭ ОПЮБСЧ ВЮЯРЭ ЙЮЙ БШПЮФЕМХЕ. |
g | - цКНАЮКЭМШИ ОНХЯЙ. |
i | - аЕГ ПЮГКХВХЪ ПЕЦХЯРПЮ АСЙБ |
m | - ЛМНЦНЯРПНВМЮЪ ОЕПЕЛЕММЮЪ |
o | - ЙНЛОХКХПНБЮРЭ ЬЮАКНМ НДХМ ПЮГ |
s | - НДМНЯРПНВМЮЪ ОЕПЕЛЕММЮЪ |
x | - ПЮЯЬХПЕММНЕ ПЕЦСКЪПМНЕ БШПЮФЕМХЕ |
пЮГДЕКХРЕКЭ '/' ЛНФМН ГЮЛЕМХРЭ МЮ КЧАНИ ЮКТЮБХРМН-ЖХТПНБНИ ЯХЛБНК ЙПНЛЕ ОПНАЕКЮ.
оПХЛЕП:
$var = "12345"; # ХЯУНДМЮЪ ЯРПНЙЮ $var =~ s/1/0/; # гЮЛЕМХРЭ '1' МЮ '0'. пЕГСКЭРЮР 02345 $var =~ s(5)(.); # гЮЛЕМХРЭ '5' МЮ '.' пЕГСКЭРЮР 0234.
гДЕЯЭ Б ЙЮВЕЯРБЕ ПЮГДЕКХРЕКЪ ОПХЛЕМЕМШ ЯЙНАЙХ, ОНЩРНЛС ОНДЯРПНЙЮ БГЪРЮ Б ДБЕ ЯЙНАЙХ.
$var =~ s/\d*/ЙЮКЮЛАСП/; гЮЛЕМХРЭ БЯЕ ЖХТПШ. пЕГСКЭРЮР 'ЙЮКЮЛАСП.' $var =~ s/Ю/Н/g; # гЮЛЕМХРЭ БЯЕ 'Ю' МЮ 'Н'. пЕГСКЭРЮР 'ЙНКНЛАСП.' $var = "12 34"; # мНБНЕ ГМЮВЕМХЕ $var =~ s/(\d\d) (\d\d)/$2 $1/; # оНЛЕМЪРЭ ЛЕЯРЮЛХ ВХЯКЮ. пЕГСКЭРЮР '34 12'.
tr/РЮАКХЖЮ1/РЮАКХЖЮ2/cds
y/РЮАКХЖЮ1/РЮАКХЖЮ2/cds
гЮЛЕМЮ БЯЕУ ЯХЛБНКНБ ХГ "РЮАКХЖЮ1" МЮ ЯННРБЕРЯРБСЧЫХИ ЯХЛБНК ХГ "РЮАКХЖЮ2". пЕГСКЭРЮР - ЙНКХВЕЯРБН ГЮЛЕМ ХКХ ЯРХПЮМХИ. аЕГ НОЕПЮРНПЮ =~ ХКХ != НОЕПЮЖХЪ БШОНКМЪЕРЯЪ ЯН ЯРПНЙНИ $_. дКЪ ЯНБЛЕЯРХЛНЯРХ Я ОПНЦПЮЛЛНИ sed БЛЕЯРН tr ЛНФМН ОХЯЮРЭ 'y'.
нОЖХХ:
c | - ДНОНКМЕМХЕ "РЮАКХЖЮ1" |
d | - ЯРЕПЕРЭ МЮИДЕММШЕ, МН МЕ ГЮЛЕМЕММШЕ ЯХЛБНКШ. |
s | - "ЯФЮРЭ" ОНБРНПЪЧЫХЕЯЪ ГЮЛЕМЕММШЕ ЯХЛБНКШ. |
еЯКХ СЙЮГЮМЮ НОЖХЪ /d РЮАКХЖЮ2 БЯЕЦДЮ ХМРЕПОПЕРХПСЕРЯЪ ЙЮЙ ОНКНФЕМН. дПСЦХЛХ ЯКНБЮЛХ, ЕЯКХ РЮАКХЖЮ2 ЙНПНВЕ, ВЕЛ РЮАКХЖЮ1, РН ЯХЛБНК ХГ РЮАКХЖШ1 ХМРЕПОПЕРХПСЕРЯЪ БЯЕЦДЮ. еЯКХ РЮАКХЖЮ2 - null, РН БЯЕ ЯХЛБНКШ ЯРПНЙХ НЯРЮЧРЯЪ МЕХГЛЕММШЛХ. щРН СДНАМН ДКЪ ОНДЯВЕРЮ ЙНКХВЕЯРБЮ ЯХЛБНКНБ Б ЯРПНЙЕ НОПЕДЕКЕММНЦН ЙКЮЯЯЮ ХКХ ДКЪ ЯФЮРХЪ ОНБРНПЪЧЫХУЯЪ ЯХЛБНКНБ, МЮОПХЛЕП, ОПНАЕКНБ.
оПХЛЕП:
$s = "hello"; # хЯУНДМЮЪ ЯРПНЙЮ $s =~ tr/a-z/A-Z/; # гЮЛЕМХРЭ ЛЮКШЕ АСЙБШ МЮ АНКЭЬХЕ. пЕГСКЭРЮР # 'HELLO' $s = 'Hel....lo'; $s =~ tr/a-zA-z/_/c; # гЮЛЕМХРЭ БЯЕ МЕ АСЙБШ МЮ '_' # пЕГСКЭРЮР 'Hel____lo' $s =~ tr/_/ /s; # гЮЛЕМХРЭ '_' МЮ ' ' Х ЯФЮРЭ. # пЕГСКЭРЮР 'Hel lo' $s =~ tr/a-zA-Z /a-zA-Z/d; # сДЮКХРЭ БЯЕ МЕ АСЙБШ. пЕГСКЭРЮР 'Hello'
еЯКХ НДХМ Х РНР ФЕ ЯХЛБНК МЕЯЙНКЭЙН ПЮГ СЙЮГЮМ Б РЮАКХЖЕ1, РН ОПХЛЕМЪЕРЯЪ РНКЭЙН ОЕПБЮЪ ГЮЛЕМЮ.
б Perl ЯСЫЕЯРБСЕР МЕЯЙНКЭЙН НОЕПЮРНПНБ ББНДЮ-БШБНДЮ. оЕПБШИ ЩРН ЯЙНАЙХ ХГ ЯХЛБНКЮ '`' - ЮЙЖЕМРЮ. яРПНЙЮ Б ЩРХУ ЯЙНАЙЮУ БНЯОПХМХЛЮЕРЯЪ ЙЮЙ ЯХЯРЕЛМЮЪ ЙНЛЮМДЮ Х ПЕГСКЭРЮР ЕЕ ДЕИЯРБХЪ БНГБПЮЫЮЕРЯЪ ЙЮЙ "ОЯЕБДН" КХРЕПЮК. б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ ЩРН ЯРПНЙЮ ЯНДЕПФЮЫЮЪ БЕЯЭ ПЕГСКЭРЮР, Ю Б ЯОХЯЙНБНЛ - ЯОХЯНЙ, ЩКЕЛЕМРШ ЙНРНПНЦН - ЯРПНЙХ ПЕГСКЭРЮРЮ. яРЮРСЯ БШОНКМЕММНИ ЙНЛЮМДШ УПЮМХРЯЪ Б ОЕПЕЛЕММНИ $? .
яКЕДСЧЫЮЪ ЙНЛЮМДЮ ББНДЮ БШБНДЮ БШЦКЪДХР ЙЮЙ '<ТЮИК>'. бШВХЯКЕМХЕ <ТЮИК> ОПХБНДХР Й ВРЕМХЧ ЯРПНЙХ ХГ ТЮИКЮ. нАПЮРХРЕ БМХЛЮМХЕ, ВРН 'ТЮИК' ГДЕЯЭ МЕ ХЛЪ ТЮИКЮ, Ю СЙЮГЮРЕКЭ ТЮИКЮ, ЙНРНПШИ ЯНГДЮЕРЯЪ ТСМЙЖХЕИ open(). б ЯЙЮКЪПМНЛ ЙНМРЕЙЯРЕ ВХРЮЕРЯЪ НДМЮ ЯРПНЙЮ БЛЕЯРЕ Я ЯХЛБНКНЛ '\n' - ОЕПЕБНДЮ ЯРПНЙХ, Ю Б ЯОХЯЙНБНЛ БЕЯЭ ТЮИК ВХРЮЕРЯЪ Б ЯОХЯНЙ, ЩКЕЛЕМРШ ЙНРНПНЦН ЯСРЭ ЯРПНЙХ ТЮИКЮ. б ЯКСВЮЕ НАМЮПСФЕМХЪ ЙНМЖЮ ТЮИКЮ ПЕГСКЭРЮР НОЕПЮРНПЮ МЕ НОПЕДЕКЕМ Х БНЯОПХМХЛЮЕРЯЪ ЙЮЙ false. еЯКХ МЕ СЙЮГЮМЮ ОЕПЕЛЕММЮЪ ПЕГСКЭРЮРЮ, РН ОН СЛНКВЮМХЧ ЩРН $_. сЙЮГЮРЕКЭ ТЮИКЮ ОН СЛНКВЮМХЧ STDIN - ЯРЮМДЮПРМШИ ББНД.
оПХЛЕП:
while(<>) { print; }; # оПНВХРЮРЭ Х БШБЕЯРХ БЕЯЭ ТЮИК STDIN
с НОЕПЮРНПЮ '<>' ЕЯРЭ НДМЮ НРКХВХРЕКЭМЮЪ НЯНАЕММНЯРЭ. еЯКХ Б ЙНЛЮМДМНИ ЯРПНЙЕ МЕР МХЙЮЙХУ ЮПЦСЛЕМРНБ, РН ВХРЮЕРЯЪ ЯРЮМДЮПРМШИ ББНД, ЕЯКХ ЕЯРЭ ЮПЦСЛЕМРШ, РН НМХ ЯВХРЮЧРЯЪ ХЛЕМЮЛХ ТЮИКНБ, ЙНРНПШЕ ОНЯКЕДНБЮРЕКЭМН ВХРЮЧРЯЪ.
еЯКХ Б СЦКНБШУ ЯЙНАЙЮУ ГЮОХЯЮМЮ ОЕПЕЛЕММЮЪ, РН ЯНДЕПФХЛНЕ ЩРНИ ОЕПЕЛЕММНИ ЯВХРЮЕРЯЪ ХЛЕМЕЛ СЙЮГЮРЕКЪ ТЮИКЮ ХКХ ЯЯШКЙНИ МЮ СЙЮГЮРЕКЭ ТЮИКЮ. еЯКХ РЮЙНЦН СЙЮГЮРЕКЪ МЕ ЯСЫЕЯРБСЕР, РН ЯНДЕПФХЛНЕ ОЕПЕЛЕММНИ БНЯОПХМХЛЮЕРЯЪ ЙЮЙ ЬЮАКНМ ХЛЕМ ТЮИКНБ Х ПЕГСКЭРЮР - ХЛЕМЮ ТЮИКНБ МЮ ДХЯЙЕ, ОНДУНДЪЫХУ ОН ЬЮАКНМС.
оПХЛЕП:
while(<*.pl>) { print;}; # рН ФЕ ВРН Х ls *.pl @files = <*>; # лЮЯЯХБ @files ЯНДЕПФХР ХЛЕМЮ ТЮИКНБ Б ДХПЕЙРНПХХ
МН КСВЬЕ ЯДЕКЮРЭ: @files = glob("*"); Р.Й. БМСРПХ ЯЙНАНЙ ЛНФМН ХЯОНКЭГНБЮРЭ ОЕПЕЛЕММШЕ.
йЮЙ Х я Perl БШОНКМЪЕР БНГЛНФМШЕ БШВХЯКЕМХЪ Б ОЕПХНД ЙНЛОХКЪЖХХ. рЮЙ ОНДЯРЮМНБЙЮ ЯХЛБНКНБ ОНЯКЕ '\' , НОЕПЮЖХЪ ЙНМЙЮРЕМЮЖХХ ЯРПНЙ, ЮПХТЛЕРХВЕЯЙХЕ БШПЮФЕМХЪ, ЯНДЕПФЮЫХЕ РНКЭЙН НДМХ ЙНМЯРЮМРШ, БЯЕ ЩРН ДЕКЮЕРЯЪ Б ЛНЛЕМР ЙНЛОХКЪЖХХ, ВРН ЯСЫЕЯРБЕММН СБЕКХВХБЮЕР ЯЙНПНЯРЭ БШОНКМЕМХЪ ОПНЦПЮЛЛШ.
оН СЛНКВЮМХЧ Perl БШОНКМЪЕР ЮПХТЛЕРХЙС Я ОКЮБЮЧЫЕИ ГЮОЪРНИ, МН ЕЯКХ БШ СЙЮФЕРЕ:
use integer;
РН ЙНЛОХКЪРНП АСДЕР ХЯОНКЭГНБЮРЭ ЖЕКНВХЯКЕММСЧ ЮПХТЛЕРХЙС ДН ЙНМЖЮ РЕЙСЫЕЦН АКНЙЮ, УНРЪ БКНФЕММШИ АКНЙ ЛНФЕР ЩРН Х НРЛЕМХРЭ Б ЯБНХУ ОПЕДЕКЮУ Я ОНЛНЫЭЧ:
no integer;
[мЮГЮД] [яНДЕПФЮМХЕ] [бОЕПЕД]