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