#!/usr/mesh/bin/perl5 # gctr-ex1t.cgi # (C) 1997 がま # E-mail addr : gama@mvg.biglobe.ne.jp # # 1997/09/25 Ver0.00 # 1997/10/03 Ver0.01 12 時過ぎても、AM 表示だったのを修正(^^;;; # # -------------------------------------------------------- ($sec,$min,$hour,$mday,$mon,$year)=localtime; if ( $hour >= 12 ) { $ampm="P"; $hour=$hour-12; } else { $ampm="A"; } $time = sprintf "%2.2d\:%2.2d\:%2.2d%s", $hour, $min, $sec, $ampm; system("./gctr1.cgi $time strip.gif");