收录日期:2019/04/26 16:32:09 时间: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";

初吻昨晚献出 25了 感到不适应社会了 散分 跪助:各位大狭,能告诉一下,jsp中如何实现打印功能么?急呀! 请问如何使WinForm中的TextBox控件禁止某些字符的输入?谢谢! 求助:在VB通过API函数PostMessage对某窗体任一点按下鼠标,请问这任一点如何给出? 关于session的一些小问题 mysql远程连接得问题。。。急。。高手请进。。。 求检查格式范文,2点结贴,顶者有份 文本输入框如何既可显示字符串又可显示Double 怎样判断程序执行超时? 急!多个项目如何相互调用?如何取消其它项目的虚拟目录?把它们融合在一个解决方案里? 按钮菜单不能显示的问题 请教 TCGauge Class是做什么东西用的啊? 请问这是什么原因:C:\\Documents and Settings\\Administrator\\桌面\\desk\\lmf1\\lmf1Dlg.cpp(274) : error C2676: binary \'*\' : \'class CSt \'中伊战前阎世铎提出惟一要求 为国家的荣誉而战\'--国家荣誉都让你们丢光了!为自已荣华富贵而战还好一点... 滚动条对象的问题 如何获取修改后的IP包(急!!!!!!!!) 请教高人:ADO中如何连接DAT类型的数据库 大家看看个combo1怎么弄呀 关于时间的where条件如何写? 文件改名为什么会失败? Pocket PC 2002 emulator 中如何 显示中文 dropdownlist的问题 不能使用 \'\';文件已在使用中。 一个STRUTS的错误,请大家指点。 在JSP里可调用第三方类,但移植到JavaBean就无法import。 VSS版本控制的问题 谁来救救我的editplus?! 1.0升级到1.1出问题 在linux下,原来windows下测试正常的数据库添加及修改操作就报如下错误,mysql4.0 linux9平台,请问如何解决? 如何用SQL语句实现:从表A中选择部分字段插入到表B中去?(急啊!)