List of ctr-ex1.pl

このファイルは、実行が許可されています。
Wed Jan 17 08:10:37 2018

戻る

TEXTAREA で表示(カット&ペーストむき)

#!/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;

戻る