程嶏清单15-6.txt

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

程序清单15-6：count1.pl
#!/usr/bin/perl
#Change Variables
$count = 'count.dat';
##############################################
open (COUNT, "$count")||die("Can't open count.dat\n");
$counter = <COUNT>;
close (COUNT);
open (COUNT, ">$count");
$counter += 1;
print COUNT "$counter";
@indivual = split(//, $counter);
foreach $number (@indivual) {
$output = "$number";
print $output;
}
close (COUNT);