|
#!/usr/bin/perl print"Content-type:text/html\n\n"; $ttime="second,min,hour,mday,mon,year,wday,yday,isdst"; $thisday=(Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime)[6]]; print "Today : $thisday<br>"; @tt=split(",",$ttime); @t=localtime(time); $v = $t[0] % 4; print "Mod result: $v<br>$tt[0] = ",$t[0],"<hr>"; if ($v eq 1) { print "one<br>";} if ($v > 2) { print "three"; } else { print "zero or one or two"; } print "<hr>"; if ($v eq 0) { print "zero"; } elsif ($v eq 1) { print "one"; } elsif ($v eq 2) { print "two"; } else { print "three"; } |