PERL TIME LOCALTIME

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
$year=$year+1900; PERL 时间 日期 LOCALTIME TIME HTTP::DATE
$ss=sprintf("%04d%02d%02d%02d%02d%02d",$year,$mon+1,$mday,$hour,$min,$sec);

折腾半天，年倒是简单，看到105感觉应该加1900，可是实在是猜不透为什么月要加1

print localtime(0)."\n";

Thu Jan  1 08:00:00 1970
00700001080000

真是够无聊的

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年算起的年数 $wday从星期六算起，代表是在这周中的第几天[0-6] $yday从一月一日算起，代表是在这年中的第几天[0,365] $isdst只是一个flag 知道这些变量之后，就可以在CGI应用程序中拿来应用了。此外，也可以用下面这一行指令在UNIX系统下取得系统的时间。为了避免错误发生，最好用绝对路径的方法来取得系统时间，如果绝对路径不清楚的话可以用”which data”这个指令来得知。最后要提字符的话，就不能正确执行系统的程序了。 $data=’/usr/bin/data’; 而在perl5版本中，也可以用下面这一行指令来取得系统时间。 $data=localtime(time);

 localtime EXPR
               Converts a time as returned by the time function to a 9-element list with the time analyzed for
               the local time zone.  Typically used as follows:
                   #  0    1    2     3     4    5     6     7     8
                   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
               All list elements are numeric, and come straight out of the C 鈥榮truct tm鈥?  $sec, $min, and
               $hour are the seconds, minutes, and hours of the specified time.  $mday is the day of the month,
               and $mon is the month itself, in the range 0..11 with 0 indicating January and 11 indicating
               December.  $year is the number of years since 1900.  That is, $year is 123 in year 2023.  $wday
               is the day of the week, with 0 indicating Sunday and 3 indicating Wednesday.  $yday is the day
               of the year, in the range 0..364 (or 0..365 in leap years.)  $isdst is true if the specified
               time occurs during daylight savings time, false otherwise.

               Note that the $year element is not simply the last two digits of the year.  If you assume it is,
               then you create non-Y2K-compliant programs--and you wouldn鈥檛 want to do that, would you?
               The proper way to get a complete 4-digit year is simply:         $year += 1900;

               And to get the last two digits of the year (e.g., 鈥?1鈥?in 2001) do:   $year = sprintf("%02d", $year % 100);

               If EXPR is omitted, "localtime()" uses the current time ("localtime(time)").
        In scalar context, "localtime()" returns the ctime(3) value:

                   $now_string = localtime;  # e.g., "Thu Oct 13 04:54:34 1994"

               This scalar value is not locale dependent but is a Perl builtin. For GMT instead of local time
               use the "gmtime" builtin. See also the "Time::Local" module (to convert the second, minutes,
               hours, ... back to the integer value returned by time()), and the POSIX module鈥檚 strftime(3) and
               mktime(3) functions.

               To get somewhat similar but locale dependent date strings, set up your locale environment vari-
               ables appropriately (please see perllocale) and try for example:

                   use POSIX qw(strftime);
                   $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
                   # or for GMT formatted appropriately for your locale:
                   $now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime;

               Note that the %a and %b, the short forms of the day of the week and the month of the year, may
               not necessarily be three characters wide.