匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

あるPerl・CGIの実行回数を記録するため、実行の度にシリアル番号を1個上げていくプログラムを作成して、そのCGIに埋め込む予定です。(1)同じディレクトリにテキストファイルをおいて、(2)記録した回数(数値)を読み込み、(3)1個数値を上げて再度上書き、という内容にしたいのですが下記うまく書き込まれません。Perl初心者です。どなたかアドバイス、よろしくお願いします。


#!/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人5回まで
  • 13歳以上
  • 登録:2012/07/28 09:34:47
  • 終了:2012/07/28 13:45:50

ベストアンサー

匿名回答1号 No.1

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら
2012/07/28 11:06:06

匿名質問者

いやーありがとうございました。

2012/07/28 13:45:27

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません