- 论坛徽章:
- 0
|
回复 #1 gaochong 的帖子
源码如下:
#!/usr/bin/perl
use strict;
my ($sec,$min,$hou,$mday,$mon,$year,$wday,$yday)=localtime(time);
$year+=1900;
$mon+=1;
my @wantday=("星期日","星期一","星期二","星期三","星期四","星期五","星期六");
my $date=sprintf("%04d年%02d月",$year,$mon);
my $Fontcolor="#FFCC99";
if (($wday==6) || ($wday==0)) {
$Fontcolor="#FF6633";}
print "Content-type:text/html","\n\n";
print <<EOF;
<table width="67" border="1" cellspacing="0" cellpadding="0"><tr>
<td bgcolor="#00FF00" style="font-size: 9pt" width="65" height="70"><div align="center">$date<br>
<font color="red" size="5"><b>$mday</b></font><br>$wantday[$wday]</div></td></tr></table>
<br>
Today is the $yday day .
EOF |
|