тНПЛЮРШ.

б Perl ПЕЮКХГНБЮМ СДНАМШИ ЛЕРНД ЯНГДЮМХЪ ТНПЛЮРХПНБЮММШУ НРВЕРНБ. я ОНЛНЫЭЧ НОЕПЮРНПЮ format БШ НОХЯШБЮЕРЕ ГЮЦНКНБЙХ, ПЮГЛЕПШ ОНКЕИ, СЙЮГШБЮЕРЕ ОНКНФЕМХЕ ДЮММШУ МЮ КХЯРЕ Б СДНАМНИ РЕЙЯРНБНИ ТНПЛЕ. гЮРЕЛ БШОНКМЪЕРЕ ЙНЛЮМДС write(ТЮИК), ЙНРНПЮЪ БШБНДХР НРТНПЛЮРХПНБЮММШЕ ДЮММШЕ Б СЙЮГЮММШИ ТЮИК.

нОЕПЮРНП format ХЛЕЕР ЯКЕДСЧЫХИ ЯХМРЮЙЯХЯ:

	format ХЛЪ =
	FORMLIST
	.

нАПЮРХРЕ БМХЛЮМХЕ МЮ РН, ВРН НОХЯЮМХЕ ТНПЛЮРЮ ХДЕР ОНЯКЕ ЯРПНЙХ format Х ГЮЙЮМВХБЮЕРЯЪ ЯХЛБНКНЛ '.' Б МЮВЮКЕ ЯРПНЙХ.

гДЕЯЭ 'ХЛЪ' - ЩРН ХЛЪ ТНПЛЮРЮ, РЮЙНЕ ФЕ ЙЮЙ Х ХЛЪ СЙЮГЮРЕКЪ БШУНДМНЦН ТЮИКЮ. еЯКХ 'ХЛЪ' НРЯСРЯРБСЕР РН ГМЮВЕМХЕ ОН СЛНКВЮМХЧ - STDOUT.

FORMLIST - ЩРН ЯРПНЙХ ТНПЛЮРЮ. нМХ АШБЮЧР РПЕУ РХОНБ:

  1. йНЛЛЕМРЮПХИ. яРПНЙЮ МЮВХМЮЕРЯЪ ЯХЛБНКНЛ '#'.
  2. нОХЯЮРЕКЭ ОНКЕИ ДЮММШУ (picture).
  3. яРПНЙЮ ЮПЦСЛЕМРНБ ХЯОНКЭГСЕЛШУ НОХЯЮРЕКЕЛ.

нОХЯЮРЕКЭ - ЩРН ЯРПНЙЮ, ЙНРНПЮЪ БШБНДХРЯЪ Б БХДЕ "ЙЮЙ ЕЯРЭ" ГЮ ХЯЙКЧВЕМХЕЛ ЯОЕЖХЮКЭМН НАНГМЮВЕММШУ ТНПЛЮРНБ ОНКЕИ ДЮММШУ. йЮФДНЕ ОНКЕ МЮВХМЮЕРЯЪ КХАН ЯХЛБНКНЛ '@', КХАН '^'. б НОХЯЮРЕКЭМНИ ЯРПНЙЕ СЙЮГШБЮЕРЯЪ РНКЭЙН ОНКНФЕМХЕ Х БХД БШБНДХЛШУ ДЮММШУ, МН МЕ ХЛЕМЮ ОНКЕИ Х ОЕПЕЛЕММШУ. дКЪ ЩРНЦН ОПЕДМЮГМЮВЕМЮ ЯКЕДСЧЫЮЪ ЯРПНЙЮ ЮПЦСЛЕМРНБ ЙНРНПЮЪ ЯКЕДСЕР БЯЕЦДЮ ОНЯКЕ НОХЯЮРЕКЪ Х ЯНДЕПФХР ХЛЕМЮ ОЕПЕЛЕММШУ ХКХ ЖЕКШЕ БШПЮФЕМХЪ Б ОНПЪДЙЕ СЙЮГЮММНЛ НОХЯЮРЕКЕЛ.

пЮГЛЕП Х БХД ОНКЪ Б НОХЯЮРЕКЕ НАНГМЮВЮЕРЯЪ ЯКЕДСЧЫХЛХ ЯХЛБНКЮЛХ:

"<<<<" - БШПЮБМХРЭ ГМЮВЕМХЕ ОН ОПЮБНЛС ЙПЮЧ.
">>>>" - -//- ОН КЕБНЛС.
"||||" - -//- ОН ЖЕМРПС.
"####.###" - ТНПЛЮР ВХЯКЮ Я РНВЙНИ.
"@*" - ЛМНЦНЯРПНВМЮЪ ЯРПНЙЮ. дЮММШЕ БШБНДЪРЯЪ Б ЙНКНМЙС.

пЮГЛЕП ОНКЪ ПЮБЕМ ЙНКХВЕЯРБС СЙЮГЮММШУ ЯХЛБНКНБ.
яХЛБНК '^' Б МЮВЮКЕ ОНКЪ ХЛЕЕР ЯОЕЖХЮКЭМНЕ ГМЮВЕМХЕ.
рЮЙ:

ДКЪ ЯРПНВМНЦН ЯЙЮКЪПЮ:

оПХЛЕП:

#!/usr/local/bin/perl
#
#	оПНЦПЮЛЛЮ ОЕВЮРХ ОПХЦКЮЯХРЕКЭМНЦН АХКЕРЮ
#
$ЙНЛС = "вЮОЮЕБС бЮЯХКХЧ хБЮМНБХВС";
$НР_ЙНЦН = "йНЛОЮМХЪ ллл";
$ЮДПЕЯ = "лНЯЙБЮ, СК. оЕРПНБЙЮ, Д 38";
$РЕЙЯР = "сБЮФЮЕЛШИ бЮЯХКХИ хБЮМНБХВ! йНЛОЮМХЪ ллл ХЛЕЕР ВЕЯРЭ ОПХЦКЮЯХРЭ
бЮЯ Х бЮЬХУ АКХГЙХУ МЮ ОПЕГЕМРЮЖХЧ МЮЬХУ МНБШУ УПНЛНБШУ ЯЮОНЦ, ЯДЕКЮММШУ
МЮ СПНБМЕ ЛХПНБШУ ЯРЮМДЮПРНБ ЙЮВЕЯРБЮ Х ДХГЮИМЮ.";
format STDOUT =

	о п х ц к ю я х р е к э м ш и      а х к е р
----------------------------------------------------------------------
йНЛС: @<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $ЙНЛС, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР нР ЙНЦН: @<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $НР_ЙНЦН, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР юДПЕЯ:@<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $ЮДПЕЯ, $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР | ^||||||||||||||||||||||||||||||| $РЕЙЯР нРОЕВЮРЮМН Б РХОНЦПЮТХХ хрс 38 . write(); # бШБНД ДЮММШУ. exit 0; # йНМЕЖ ОПНЦПЮЛЛШ 

пЕГСКЭРЮР:

	о п х ц к ю я х р е к э м ш и      а х к е р
----------------------------------------------------------------------
йНЛС: вЮОЮЕБС бЮЯХКХЧ хБЮМНБХВС    |   сБЮФЮЕЛШИ бЮЯХКХИ хБЮМНБХВ!
                                   |     йНЛОЮМХЪ ллл ХЛЕЕР ВЕЯРЭ
нР ЙНЦН: йНЛОЮМХЪ ллл              |  ОПХЦКЮЯХРЭ бЮЯ Х бЮЬХУ АКХГЙХУ
                                   |    МЮ ОПЕГЕМРЮЖХЧ МЮЬХУ МНБШУ
юДПЕЯ:лНЯЙБЮ, СК. оЕРПНБЙЮ, Д 38   |   УПНЛНБШУ ЯЮОНЦ, ЯДЕКЮММШУ МЮ
                                   |    СПНБМЕ ЛХПНБШУ ЯРЮМДЮПРНБ
                                   |       ЙЮВЕЯРБЮ Х ДХГЮИМЮ.
                                   |
----------------------------------------------------------------------
нРОЕВЮРЮМН Б РХОНЦПЮТХХ хрс 38

яОЕЖХЮКЭМШЕ ОЕПЕЛЕММШЕ:

еЯКХ БШ УНРХРЕ ХЯОНКЭГНБЮРЭ НДМХ Х РЕ ФЕ ТНПЛЮРШ ДКЪ ПЮГМШУ ТЮИКНБ, РН ЯЮЛШИ ОПНЯРНИ ОСРЭ:

	use FileHandle;                   # сЙЮГЮРЭ Б МЮВЮКЕ ОПНЦПЮЛЛШ
	format_name ТЮИК ХЛЪ_ТНПЛЮРЮ;     # тНПЛЮР ЯНДЕПФХЛНЦН КХЯРЮ.
	format_top_name ТЮИК ХЛЪ_ТНПЛЮРЮ; # тНПЛЮР ГЮЦНКНБЙЮ КХЯРЮ.
	write(ТЮИК);                      # БШБНД ДЮММШУ.

гДЕЯЭ 'ТЮИК' ХЛЕЕРЯЪ ББХДС СЙЮГЮРЕКЭ ТЮИКЮ ОНКСВЕММШИ ЙНЛЮМДНИ open();

еЯКХ БЮЛ МСФМН Б РЕКЕ КХЯРЮ БШБНДХРЭ ПЮГМНЦН ПНДЮ ТНПЛЮРШ (МЮОПХЛЕП ГЮЦНКНБЙХ ЦПСОО ХКХ НРАХБЙС КХЯРЮ), РН ОПХЛЕМЪИРЕ format_name.

[мЮГЮД] [яНДЕПФЮМХЕ] [бОЕПЕД]