大家来看看能不能把时间转成整数

wbc1223

use POSIX qw(strftime);

@time_=qw(1330566649 1330533577);

while(<@time_>)
{
$_=~/\d\d\d\d\d\d\d\d\d\d/;
print strftime("%m/%d/%Y        %H:%M:%S",localtime($&-8*60*60))."\n";
}

输出结果：
          03/01/2012      01:50:49
              02/29/2012      16:39:37


我现在想把：         
          03/01/2012      01:50:49
              02/29/2012      16:39:37
再变成：1330566649
           1330533577
不知道哪个函数能实现？

sjdy521

Time::Local这个模块提供的函数timelocal可以把时间转成整数

Cu_fans

试下mktime

Perl_Er

3.2.1. ProblemYou want to convert a date, a time, or both with distinct values for day, month, year, etc. to Epoch seconds.

3.2.2. SolutionUse the timelocal or timegm functions in the standard Time::Local module, depending on whether the date and time is in the current time zone or in UTC.

use Time::Local;$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);$TIME = timegm($sec, $min, $hours, $mday, $mon, $year);

回复 1# wbc1223