CGI講座

まずはカウンタを作ってみましょう。

#!/usr/local/bin/perl
print “Content-type: text/plain”, “\n\n”;

#書き込むファイル名　cgiにすることで直で読めない
$c_file= “./count.cgi”;

open(FILE,”<$c_file”);
$number = <FILE>;
close(FILE);

open(FILE,”>$c_file”);
$number++;
print FILE $number;
close(FILE);
print $number;
exit;

これで出来上がりです。