|
https://freeminderhuni.blogspot.com/2013/09/perl-11-format.html
format ADDRESSLABEL =
=============================
| @<<<<<<<<<<<<<<<<<<<<<< |
$name
| @<<<<<<<<<<<<<<<<<<<<<< |
$address
| @<<<<<<<<<<<<, @< @<<<< |
$city,$state,$zip
============================
.
open (ADDRESSLABEL,">labels-to-print") || die "can't create";
open (ADDRESSES,"addresses") || die "cannot open addresses";
while (<ADDRESSES>){
chomp;
($name,$address,$city,$state,$zip) = split(/:/);
write (ADDRESSLABEL); #출력을 보냄
}
format STDOUT =
Name: @<<<<<<<<<<<< Comment: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name, $comment
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$comment
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$comment
~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$comment
.
format STDOUT =
Name: @<<<<<<<<<<<< Comment: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name, $comment
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$comment
.
$oldhandle = select (LOGFILE);
print “this goes to LOGFILE\n”;
select ($oldhandle);
$^ :: top-of-page
$= :: 페이지 길이
$- :: 페이지 위치
format STDOUT =
@<<<<<<<<<<< @<<<<<< @<<<<<<
$filename, $name , $word
.
:: format STDOUT = --> 시작 , “.” --> 종료
@<<<< … --> 필드의 수 , 길이 , 유형
write;
:: STDOUT을 STDOUT으로 호출으로 합니다.
최초 페이지
format STDOUT_TOP =
Page @<<
$%
Filename Name Word
=============== =============== ====================
:: $% -> 출력된 페이지 수
rename ($filename , “$filename.old” ) || die …
:: rename 함수 -> 이름 변경 |
|
