б Perl ПЕЮКХГНБЮМ СДНАМШИ ЛЕРНД ЯНГДЮМХЪ ТНПЛЮРХПНБЮММШУ НРВЕРНБ. я ОНЛНЫЭЧ НОЕПЮРНПЮ format БШ НОХЯШБЮЕРЕ ГЮЦНКНБЙХ, ПЮГЛЕПШ ОНКЕИ, СЙЮГШБЮЕРЕ ОНКНФЕМХЕ ДЮММШУ МЮ КХЯРЕ Б СДНАМНИ РЕЙЯРНБНИ ТНПЛЕ. гЮРЕЛ БШОНКМЪЕРЕ ЙНЛЮМДС write(ТЮИК), ЙНРНПЮЪ БШБНДХР НРТНПЛЮРХПНБЮММШЕ ДЮММШЕ Б СЙЮГЮММШИ ТЮИК.
нОЕПЮРНП format ХЛЕЕР ЯКЕДСЧЫХИ ЯХМРЮЙЯХЯ:
format ХЛЪ = FORMLIST .
нАПЮРХРЕ БМХЛЮМХЕ МЮ РН, ВРН НОХЯЮМХЕ ТНПЛЮРЮ ХДЕР ОНЯКЕ ЯРПНЙХ format Х ГЮЙЮМВХБЮЕРЯЪ ЯХЛБНКНЛ '.' Б МЮВЮКЕ ЯРПНЙХ.
гДЕЯЭ 'ХЛЪ' - ЩРН ХЛЪ ТНПЛЮРЮ, РЮЙНЕ ФЕ ЙЮЙ Х ХЛЪ СЙЮГЮРЕКЪ БШУНДМНЦН ТЮИКЮ. еЯКХ 'ХЛЪ' НРЯСРЯРБСЕР РН ГМЮВЕМХЕ ОН СЛНКВЮМХЧ - STDOUT.
FORMLIST - ЩРН ЯРПНЙХ ТНПЛЮРЮ. нМХ АШБЮЧР РПЕУ РХОНБ:
нОХЯЮРЕКЭ - ЩРН ЯРПНЙЮ, ЙНРНПЮЪ БШБНДХРЯЪ Б БХДЕ "ЙЮЙ ЕЯРЭ" ГЮ ХЯЙКЧВЕМХЕЛ ЯОЕЖХЮКЭМН НАНГМЮВЕММШУ ТНПЛЮРНБ ОНКЕИ ДЮММШУ. йЮФДНЕ ОНКЕ МЮВХМЮЕРЯЪ КХАН ЯХЛБНКНЛ '@', КХАН '^'. б НОХЯЮРЕКЭМНИ ЯРПНЙЕ СЙЮГШБЮЕРЯЪ РНКЭЙН ОНКНФЕМХЕ Х БХД БШБНДХЛШУ ДЮММШУ, МН МЕ ХЛЕМЮ ОНКЕИ Х ОЕПЕЛЕММШУ. дКЪ ЩРНЦН ОПЕДМЮГМЮВЕМЮ ЯКЕДСЧЫЮЪ ЯРПНЙЮ ЮПЦСЛЕМРНБ ЙНРНПЮЪ ЯКЕДСЕР БЯЕЦДЮ ОНЯКЕ НОХЯЮРЕКЪ Х ЯНДЕПФХР ХЛЕМЮ ОЕПЕЛЕММШУ ХКХ ЖЕКШЕ БШПЮФЕМХЪ Б ОНПЪДЙЕ СЙЮГЮММНЛ НОХЯЮРЕКЕЛ.
пЮГЛЕП Х БХД ОНКЪ Б НОХЯЮРЕКЕ НАНГМЮВЮЕРЯЪ ЯКЕДСЧЫХЛХ ЯХЛБНКЮЛХ:
"<<<<" | - БШПЮБМХРЭ ГМЮВЕМХЕ ОН ОПЮБНЛС ЙПЮЧ. |
">>>>" | - -//- ОН КЕБНЛС. |
"||||" | - -//- ОН ЖЕМРПС. |
"####.###" | - ТНПЛЮР ВХЯКЮ Я РНВЙНИ. |
"@*" | - ЛМНЦНЯРПНВМЮЪ ЯРПНЙЮ. дЮММШЕ БШБНДЪРЯЪ Б ЙНКНМЙС. |
пЮГЛЕП ОНКЪ ПЮБЕМ ЙНКХВЕЯРБС
СЙЮГЮММШУ ЯХЛБНКНБ.
яХЛБНК '^' Б МЮВЮКЕ ОНКЪ ХЛЕЕР
ЯОЕЖХЮКЭМНЕ ГМЮВЕМХЕ.
рЮЙ:
ДКЪ ЯРПНВМНЦН ЯЙЮКЪПЮ:
оПХЛЕП:
#!/usr/local/bin/perl # # оПНЦПЮЛЛЮ ОЕВЮРХ ОПХЦКЮЯХРЕКЭМНЦН АХКЕРЮ # $ЙНЛС = "вЮОЮЕБС бЮЯХКХЧ хБЮМНБХВС"; $НР_ЙНЦН = "йНЛОЮМХЪ ллл"; $ЮДПЕЯ = "лНЯЙБЮ, СК. оЕРПНБЙЮ, Д 38"; $РЕЙЯР = "сБЮФЮЕЛШИ бЮЯХКХИ хБЮМНБХВ! йНЛОЮМХЪ ллл ХЛЕЕР ВЕЯРЭ ОПХЦКЮЯХРЭ бЮЯ Х бЮЬХУ АКХГЙХУ МЮ ОПЕГЕМРЮЖХЧ МЮЬХУ МНБШУ УПНЛНБШУ ЯЮОНЦ, ЯДЕКЮММШУ МЮ СПНБМЕ ЛХПНБШУ ЯРЮМДЮПРНБ ЙЮВЕЯРБЮ Х ДХГЮИМЮ."; format STDOUT = о п х ц к ю я х р е к э м ш и а х к е р ---------------------------------------------------------------------- йНЛС: @<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $ЙНЛС, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР нР ЙНЦН: @<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $НР_ЙНЦН, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР юДПЕЯ:@<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $ЮДПЕЯ, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР нРОЕВЮРЮМН Б РХОНЦПЮТХХ хрс 38 . write(); # бШБНД ДЮММШУ. exit 0; # йНМЕЖ ОПНЦПЮЛЛШ
пЕГСКЭРЮР:
о п х ц к ю я х р е к э м ш и а х к е р ---------------------------------------------------------------------- йНЛС: вЮОЮЕБС бЮЯХКХЧ хБЮМНБХВС | сБЮФЮЕЛШИ бЮЯХКХИ хБЮМНБХВ! | йНЛОЮМХЪ ллл ХЛЕЕР ВЕЯРЭ нР ЙНЦН: йНЛОЮМХЪ ллл | ОПХЦКЮЯХРЭ бЮЯ Х бЮЬХУ АКХГЙХУ | МЮ ОПЕГЕМРЮЖХЧ МЮЬХУ МНБШУ юДПЕЯ:лНЯЙБЮ, СК. оЕРПНБЙЮ, Д 38 | УПНЛНБШУ ЯЮОНЦ, ЯДЕКЮММШУ МЮ | СПНБМЕ ЛХПНБШУ ЯРЮМДЮПРНБ | ЙЮВЕЯРБЮ Х ДХГЮИМЮ. | ---------------------------------------------------------------------- нРОЕВЮРЮМН Б РХОНЦПЮТХХ хрс 38
яОЕЖХЮКЭМШЕ ОЕПЕЛЕММШЕ:
еЯКХ БШ УНРХРЕ ХЯОНКЭГНБЮРЭ НДМХ Х РЕ ФЕ ТНПЛЮРШ ДКЪ ПЮГМШУ ТЮИКНБ, РН ЯЮЛШИ ОПНЯРНИ ОСРЭ:
use FileHandle; # сЙЮГЮРЭ Б МЮВЮКЕ ОПНЦПЮЛЛШ format_name ТЮИК ХЛЪ_ТНПЛЮРЮ; # тНПЛЮР ЯНДЕПФХЛНЦН КХЯРЮ. format_top_name ТЮИК ХЛЪ_ТНПЛЮРЮ; # тНПЛЮР ГЮЦНКНБЙЮ КХЯРЮ. write(ТЮИК); # БШБНД ДЮММШУ.
гДЕЯЭ 'ТЮИК' ХЛЕЕРЯЪ ББХДС СЙЮГЮРЕКЭ ТЮИКЮ ОНКСВЕММШИ ЙНЛЮМДНИ open();
еЯКХ БЮЛ МСФМН Б РЕКЕ КХЯРЮ БШБНДХРЭ ПЮГМНЦН ПНДЮ ТНПЛЮРШ (МЮОПХЛЕП ГЮЦНКНБЙХ ЦПСОО ХКХ НРАХБЙС КХЯРЮ), РН ОПХЛЕМЪИРЕ format_name.
[мЮГЮД] [яНДЕПФЮМХЕ] [бОЕПЕД]