注册
个人空间
#!/usr/bin/perl #这是CGI解释程序的位置
($sec,$min,$hour,$day,$mon,$year,$wan)=localtime(time);#读系统时间并将秒赋值给变量$sec;将分赋值给变量$min
#将时赋值给变量$hour;将日赋值给变量$day;将月赋值给变量$mon;将年赋值给变量$year;将星期赋值给变量$wan
$year=$year+1900;#为解决千年问题所设。
$mon=$mon+1;#因为代表月数[0，11]，要将$mon加一之后才能符合实际情况。
@Wanday=("星期日","星期一","星期二","星期三","星期四","星期五","星期六");#将星期日等7个字符串赋给数组@Wanday
$date=sprintf("%04d年%02d月",$year,$mon);#将4位数的年和2位数的月的显示格式的字串赋给变量$date
$Fontcolor="#FFCC99";#将颜色代码赋给变量$Fontcolor
if (($wan == 6)||($wan==0)) {$Fontcolor="#FF6633";}#盼断语句,当星期6或星期日(此时$wan=0)时,日期的显示颜色设置
print "Content-type:text/html","\n\n";#设置输出格式为html格式
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="$Fontcolor" size="5"><b>$day</b></font><br>$Wanday[$wan]</div></td></tr></table>
EOF
按这里试运行此程序，看看效果
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18) |
| TAG标签: | 程序 源码 变量 mon wan year CGI Fontcolor 格式 星期日 |
