收录日期:2019/01/21 20:33:41 时间:2016/05/23 01:58:18 标签:CGI
今天兄弟我第一次写cgi,头头催着要cgi输出当前日期的sample,那位能够帮帮忙

日期格式要求:2003/01/05 07:06:08
忘记说了我这里的环境是iis+perl
sub system_time {
my ($sec, $min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mon++;
$year=$year+1900;
my $systime="$year.$mon.$mday.$hour.$min.$sec";
                  return $systime;
}
sub system_time {
my ($sec, $min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mon++;
$year=$year+1900;
my $systime="$year/$mon/$mday/  $hour  $min  $sec";
                  return $systime;
}
我试着写了一页代码如下:

print "Content-type:text/html\n\n"; 

use Time::localtime;

sub system_time {
my ($sec, $min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mon++;
$year=$year+1900;
my $systime="$year/$mon/$mday/  $hour  $min  $sec";
                  return $systime;
}

print system_time();

exit;

-----------------------------------------------------------------------------
结果如下:
1900/1//      Time::tm=ARRAY(0x18a2520)
localtime() 只是一个转换函数,还要取的当前的时间才行。
当前的时间是 time .

把里面的 localtime() 换成 localtime(time)
#!/usr/bin/perl
($sec, $min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)  = localtime(time);
print "秒: $sec\n";
print "分: $min\n";
print "時: $hour\n";
print "一個月的第幾天: $mday\n";
print "月: $mon 範圍是 0-11,而一月為 0\n";
print "距離 1900 年的第幾年: $year\n";
print "一周內的第幾天: $wday  範圍是 0-6,而星期日為 0\n";
print "一年內的第幾天: $yday\n";

# 如果我只想要當天的日期,
($_,$_,$_, $mday, $mon, $year, $_,$_,$_) = localtime(time);
$year = $year + 1900;
$mon = $mon + 1;
print "今天是西元 $year 年 $mon 月 $mday 日\n";

是不是只要用event,都应该用WeakEventManager来连接listener和source asp.net(vb)做web页面 如何实时显示线啊 ,像股票那样功能 开源:给每个文档计算一个指纹,然后用指纹进行相似度的计算 jq datatables 分页事件问题! 开源:给每个文档计算一个指纹,然后用指纹进行相似度的计算 含源码和可执行程序 BCB6 编译出错 只知道跟output_buffering有关系,不知道具体怎么做。 开源:给每个文档计算一个指纹,然后用指纹进行相似度的计算 含源码和可执行程序 开源:给每个文档计算一个指纹,然后用指纹进行相似度的计算 含源码和可执行程序 XP 系统下QTableWidget表头 显示被按下去了的效果 开源:给每个文档计算一个指纹,然后用指纹进行相似度的计算 含源码和可执行程序 ASP下如何判断用户提交的内容包含简体中文? CSS3 transform:rotate() 浏览器兼容问题。。求各种解决 摸到女人奶子 【求助】一道让我看上去看似简单的题目 Poco线程池问题 移动app开发的选择 为什么有OR比无OR执行效率还高? ant导出war包,project中引用了MyEclipse中自带的jar包 求助:关于pyd文件的调试 修改Contiki源码中的例子,向串口发送一个字符串,pc却只能接收到第一个和最后一个 android输入遮挡问题 谁告诉我这段语句是什么意思。(100分求教) vs2008 C++ MFC操作word 请教下,这个程序为何不能将数据写入文件 Camera4.0.3导入eclipse-------有android4.0.3源码朋友帮帮忙 cortina公司的芯片,cs8203可否移植net-snmp 啊,求大神指点 模拟登陆renren网 2月9号上午7:30回家 org.apache.commons.net.ftp 下载文件程序假死