人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ある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/1件

▽最新の回答へ

1 ● 匿名回答1号
ベストアンサー

see http://amenti.usamimi.info/perlcounter.html


匿名質問者さんのコメント
いやーありがとうございました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ