#!/usr/bin/perl require 'jcode.pl'; # #シンプルカウンター # #以下サイトに合わせて変更して下さい。 #著作権表示の削除を禁止します。 #ネットマニア　http://www.netmania.jp # # #-------------設定開始------------------------------------------------------- $log = "log.dat"; #ログの保存先 $bgc = "#000000"; #背景の色 $nuc = "#FFFFFF"; #数字の色 $fsize = "13"; #フォントサイズ #---------------------------------------------------------------------------- open(LOG,"+<$log"); flock(LOG,2); $NO = ; $NO = $NO + 1; truncate(LOG,0); seek(LOG,0,0); print LOG $NO; close(LOG); $count = sprintf("%06d",$NO); #表示する桁数を代える場合は%06dの6の部分を変更してください &read; sub read { print "Content-type: text/html\n\n"; print < Counter $count EOM }