n4.pl

来自「simple perl programs to understand suse 」· PL 代码 · 共 25 行

#! /usr/bin/perl
print "Content-type:text/html\n\n";
$count_file='/usr/local/bin/count.txt';
if(open(FILE,"<".$count_file))
{
$access_count=<FILE>;
close(FILE);
if(open(FILE,">".$count_file))
{
$access_count++;
print FILE $access_count;
close(FILE);
print $access_count;
}
else
{
print "Cant write";
}
}
else
{
print "Cant read";
}
exit(0);