. format ,
,
. write()
.
:
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.
Last-modified: Thu, 24 Apr 1997 17:46:23 GMT