![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level3.gif) ![Rank: 9](images/default/star_level1.gif)
- UID
- 1
- 威望
- 1240 点
- 金钱
- 10002 金币
- 点卡
- 317 点
|
1#
发表于 2003-12-9 12:05
| 只看该作者
[转帖]CGI程序浅解
转载:思维网
下面是一段非常简单但又很实用的日历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
复制代码 |
我是一个呼吸着现在的空气而生活在过去的人
这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
我已习惯了孤独,爱上孤独
他让我看清了自我,还原了自我
让我再静静的沉思中得到快乐和满足
再孤独的世界里我一遍又一遍
不厌其烦的改写着自己的过去
延伸到现在与未来
然而那只是泡沫般的美梦
产生的时刻又伴随着破灭的到来
在灰飞烟灭的瞬间我看到的是过程的美丽
而不是结果的悲哀。。。
|
|