#!/usr/bin/perl #シンプルカウンター #データ保存用ファイルcount.datを同じフォルダにいれておく。 # 今までのカウンタ数を読み込んで変数に代入 open(COUNT,"count.dat") || die "file 'count.dat' Open Error." ; $count = ; close(COUNT); #カウントアップ $count++; # カウント書き込み open(COUNT,">count.dat"); print COUNT "$count"; close(COUNT); # 出力ブラウザにカウントアップした値を表示。 #「printf」は書式を付けてプリントする命令。 #「f」は書式（フォーマット）の意味。 #"%04d"が書式の指定です。 #"%04d"と書くと「４桁で先頭に０を付けて値を入れる」という意味。 print "Content-type: text/html\n\n"; print "\n"; printf("%04d\n", $count); print "\n"; __END__