List of gctr0/gctr-ex0.cgi

Fri Jun 22 06:51:50 2018

戻る

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

#!/usr/mesh/bin/perl5

# gctr-ex0.cgi
# (C) 1997 がま 
# E-mail addr : gama@mvg.biglobe.ne.jp
#
# 1997/9/25 Ver0.00
#

#/////////////////////////////////////////////////////
open(FCTR,"+<gctr0.dat");
$num=<FCTR> + 1;
seek(FCTR, 0, 0);
printf(FCTR "%d", $num);
close(FCTR);

$num = sprintf("%6.6d", $num);
system("./gctr0.cgi $num elec.gif");

戻る