#!/usr/local/bin/perl5 # ctr-ex1.cgi # (C) 1997 がま # E-mail addr : gama@mvg.biglobe.ne.jp # # 1997/8/11 Ver0.00 $ctrdat=$ARGV[0]; open(FCTR,"+<$ctrdat"); $num=<FCTR> + 1; seek(FCTR, 0, 0); printf(FCTR "%d", $num); close(FCTR); print $num;