|
$~ = "ADDRESSLABEL"; # sets format for current FILEHANDLE to ADDRESSLABEL
|
|
$FORMAT_NAME = "ADDRESSLABEL"; if use English
|
|
FILEHANDLE->format_name("ADDRESSLABEL"); if use FileHandle
|
|
format ADDRESSLABEL =
|
|
====================================
|
|
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
|
|
$name
|
|
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
|
|
$address
|
|
| @<<<<<<<<<<<<<<<<, @< @<<<<<<<<<<<<<< |
|
|
$city, $state,$zip
|
|
====================================
|
|
.
|
|
@ followed by N <'s specifies left justified field with N+1 characters in it.
|
|
write ; # outputs current values of $name,$address,$city,$state,$zip into 5 line template on currently selected file.
|
