List of ctr-ex0.cgi

このファイルは、実行が許可されています。
Fri Dec 13 04:46:32 2024
戻る

TEXTAREA で表示（カット＆ペーストむき）
#!/usr/local/bin/perl5

# ctr-ex0.cgi
# (C) 1997,1998 がま 
# E-mail addr : gama@mvg.biglobe.ne.jp

$ctrdat="ctr-ex0.dat";

open(FCTR,"+<$ctrdat");
$num=<FCTR> + 1;
seek(FCTR, 0, 0);
printf(FCTR "%d", $num);
close(FCTR);

print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>access counter ex.0</TITLE></HEAD>";
print "<BODY>\n";
print "<CENTER>\n";
print "<H1>";
print $num, "番目のアクセスです。";
print "</H1>";
print "</CENTER>\n";
print "</BODY>\n";
print "</HTML>\n";
戻る