file.pl

来自「用perl语言编写的CGI webserver页面」· PL 代码 · 共 12 行

$CountFile = "counter";
open (COUNT, $CountFile);
$Counter = <COUNT>;

close (COUNT);
open (COUNT, ">$CountFile");

$Counter += 1;
print COUNT $Counter;
close (COUNT);
print $Counter;