perl取得当前系统时间
perl有两个取得时间的函数:localtime和gmtime
两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间
#!/usr/bin/perl
#get local time
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
其中： $sec代表秒数[0,59] $min代表分数[0,59] $hour代表小时数[0,23] $mday代表是在这个月的第几天[1,31] $mon代表月数[0,11],要将$mon加1之后，才能符合实际情况。$year从1990年算起的年数谢谢syq的提醒，$year是从1900年算起的年数，所以要再加上1900才能得出正确的年份， $wday从星期六算起，代表是在这周中的第几天[0-6] $yday从一月一日算起，代表是在这年中的第几天[0,365] $isdst只是一个flag 知道这些变量之后，就可以在CGI应用程序中拿来应用了。此外，也可以用下面这一行指令在UNIX系统下取得系统的时间。为了避免错误发生，最好用绝对路径的方法来取得系统时间，如果绝对路径不清楚的话可以用”which data”这个指令来得知。最后要提字符的话，就不能正确执行系统的程序了。 $data=’/usr/bin/data’; 而在perl5版本中，也可以用下面这一行指令来取得系统时间。 $data=localtime(time);
hello,syq：
谢谢你的提醒，我测试了下，确实是从1900年开始的，我测试的脚本是：
#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print($year);
print(”\n”);
print($year+1900);
print(”\n”);
好像$year从1900年算起的年数，版本5.0