perl 对时间的操作

Localtime： （秒，分，时，日，月，年，周日，年日，isdst）=localtime();
               月份：0 表示一月份
               年：   从1900 算起
               周日：0 表示星期天
               年日 ：0 表示一月一日
              isdst  ：夏令时为真。
my $time=localtime 1465026125;
   $time 的值是将epoch时间转换为本地时间，默认为+8区

Time：：Local  （本地时间转换为 epoch时间）
                     use Time::Local;
                  $TIME = timegm($sec, $min, $hours, $mday, $mon, $year);#$TIME 的值是linux时间戳utc，