open(DATA,"+< access.txt");#読み書きモード @data=<DATA>; $data[0]++; print $data[0]; seek(DATA,0,0);#ファイルカーソル移動 print DATA $data[0]; close (DATA); access.txtには下記のように数字を入れておく 100018
アクセスカウンター
トラックバック(0)
トラックバックURL: http://www.adg7.com/mt/mt-tb.cgi/535
open(DATA,"+< access.txt");#読み書きモード @data=<DATA>; $data[0]++; print $data[0]; seek(DATA,0,0);#ファイルカーソル移動 print DATA $data[0]; close (DATA); access.txtには下記のように数字を入れておく 100018
トラックバックURL: http://www.adg7.com/mt/mt-tb.cgi/535
コメントする