List of gctr0/gctr-ex1d.cgi

Sun Sep 23 12:14:10 2018

戻る

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

#!/usr/mesh/bin/perl5

# gctr-ex1d.cgi
# (C) 1997 がま 
# E-mail addr : gama@mvg.biglobe.ne.jp
#
# 1997/9/25 Ver0.00
# 2000/2/26 Ver0.02 Y2K
#
# ----------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year)=localtime;
$date = sprintf "%2.2d\-%2.2d\-%2.2d", $year%100, $mon+1,$mday;

system("./gctr1.cgi $date katt082.gif");

戻る