. '^' . : "^####" - . : "^<<<<<" - , . : #!/usr/local/bin/perl # # # $ = " "; $_ = " "; $ = ", . , 38"; $ = " ! , ."; format STDOUT = ---------------------------------------------------------------------- : @<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $, $ | ^||||||||||||||||||||||||||||||| $ : @<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $_, $ | ^||||||||||||||||||||||||||||||| $ :@<<<<<<<<<<<<<<<<<<<<<<<<<< | ^||||||||||||||||||||||||||||||| $, $ | ^||||||||||||||||||||||||||||||| $ | ^||||||||||||||||||||||||||||||| $ | ^||||||||||||||||||||||||||||||| $ ---------------------------------------------------------------------- 38 . write(); # . exit 0; # : ---------------------------------------------------------------------- : | ! | : | | :, . , 38 | , | | . | ---------------------------------------------------------------------- 38 : $~ - . $^ - . $% - . $= - . : use FileHandle; # format_name _; # . format_top_name _; # . write(); # . '' open(); ( ) format_name.  * *  . '-d' . , , , - . . . h - . T - s - . n - . r - . c - . c - . <CR> - n s. l min+incr - incr+1 min. l min-max - min max. l - . l - . - - . w - . . l - . // - . ?? - . L - . S - . t - . b [ ] - . b [ ] - . d - . D - . a - ( . "" - . A - . < - . > - . V [] - . ! '$' . X [] - V , . ! - . ! - - . H - n - n . q ^D - . - . p - . BEGIN , : $DB::single =1; . .  * *  "Perl Programmers Reference Guide". : Programming Perl (the Camel Book) Learning Perl (Llama Book)  * - *   USENET : comp.lang.perl.announce - . comp.lang.perl.misc - . comp.lang.perl.modules - . comp.lang.perl.tk - Tcl/tk. WWW : http://www.perl.org http:///www.perl.org - - http://www.ora.com http://www.ora.com - O`Reily ftp://ftp.perl.com ftp://ftp.perl.com - FTP http://franz.ww.tu-berlin.de/modulelist http://franz.ww.tu-berlin.de/modulelist/