[ 永遠的UNIX::UNIX技術資料的寶庫 ]   GB | BIG5
首頁 > 編程技術 > 源碼天堂 > 正文
Perl源碼:日歷CGI程序淺解
本文出自:http://gzdzw.51.net 作者: 思維 (2001-08-23 09:00:01)
下面是一段非常簡單但又很實用的日歷CGI程序，此程序在很多網站上都在使用。通過該程序我們可對CGI程序有一個進一步的認識，對CGI程序的入門者很有幫助。程序如下：
#!/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

按這裡試運行此程序，看看效果
(http://www.fanqiang.com)     進入【UNIX論壇】
相關文章

===閩===
 

★  樊強制作 歡迎分享  ★