!/usr/bin/perl $data_file=countdata; open(KAZU,"<$data_file")||die "CounterReadError.......\n"; flock(KAZU,2); $counter=; $counter_new=($counter+1); close(KAZU); flock($data_file,8); open(KZ,">$data_file")||die "CounterWriteError.......\n"; flock(KZ,2); print KZ "$counter_new\n"; #print "$counter_new\n"; #これは端末からの確認用。 close(KZ); flock($data_file,8); #-------　実行確認の表示　------- print "Content-type:text/html\n\n"; print "OK\n"; print "\n"; print "\n"; print "

ThankYou.

\n"; print "

---Counter---

\n"; #カウンターの新しい数値の表示。 print "$counter_new\n"; print "\n"; print "\n";