程嶏清单15-7.txt

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

程序清单15-7：count2.pl
#!/usr/bin/perl
#Change Variables
$count = 'count.dat';
$base_url = '\\countpic\\pic\\';
$gif = '.gif';
##############################################
open (COUNT, "$count");
$counter = <COUNT>;
close (COUNT);
open (COUNT, ">$count");
$counter += 1;
print COUNT "$counter";
@indivual = split(//, $counter);
foreach $number (@indivual) {
$output = "<img src=\"$base_url$number$gif\" alt=\"$CNum\">";
print $output;
}
close (COUNT);