#!/usr/bin/perl
print "Content-Type: text/html; charset=Shift_JIS\n\n";
print "<html>\n";
print "<head><title>サンプル</title></head>\n";
print "<body>\n";
if (open(FH, "+>serial.txt")) {
print "<p>これまでの実行回数は：<br>\n";
while ($line = <FH>) {
print "$line<br>";
$i = $line + 1; #実行回数の記録を1個上げる。
}
Print FH $line; #ファイルに数値書き込み
close(FH);
} else {
print "ファイルエラー";
}
print "</body>\n";
print "</html>\n";
exit;
1
1
2
いやーありがとうございました。
2012/07/28 13:45:27