カウンタプログラムを読む

以下はカウンタプログラムです。

#!/usr/local/bin/perl

# ファイルcountdataをファイルハンドルCOUNTでオープン
# オープンできないときにはエラーメッセージを表示して強制終了
open (COUNT, "+<countdata") || die "File 'countdata' Open Error.";

# ファイルのロック
flock (COUNT,2);

# 変数$counterにファイルハンドルCOUNTから1行読み込み
$counter = <COUNT>;

# カウントアップ
$counter = $counter + 1;

# ファイルポインタを先頭に戻す
seek (COUNT, 0, 0);

# ファイルハンドルCOUNTに出力（書き込み）
print COUNT $counter;

# ファイルのロック解除
flock (COUNT,8);

# ファイルのクローズ
close (COUNT);

# カウンタの値を表示
print $counter;

解説

countdataファイルを開き、１行読み込みます。読んだ数値に１を足してファイルの１行目に書き出した後に、画面に表示します。

このプログラムを実行する前に、下準備として、半角数字の0を書いたcountdataという名前のファイルをcount.cgiと同じフォルダに準備してください。ファイル拡張子をつけないように注意してください。

「Perlを始めよう」を使って実行してみましょう。実行するたびに一つずつ数字が増えるのを確認してください。