程嶏清单12-7.txt

< linux网络编程工具>>配套源码

format  ADDRESSLABEL =
*******************************
| @<<<<<<<<<<<<<<<<<<<<<<<< |
$name
| @<<<<<<<<<<<<<<<<<<<<<<<< |
$address
| @<<<<<<<<<<, @<<<<< @<<<< |
$city,           $state,    $zip
*******************************
.
open (ADDRESSLABEL,＂>labels-to-print＂) || die＂can't create＂;
open (ADDRESSES,＂addresses＂) || die＂can't open addresses＂;
while (<ADDRESS>)
{
   chomp;  # 将换行去掉
   ($name,$address,$city,$state,$zip) = split ( /:/);  # 分隔，载入全局变量
   write (ADDRESSLABEL)； # 输出
}