请教时间转换

saicom

如有某个时间：
14:20:03   5/9/2006 (HH:MM:SS   DD/MM/YY)
格式大概如上，可以帮我调整一下格式（这格式我自己看都有点别扭，不过还没想到用哪种格式比较好用）
将上面的时间转换成从1970年1月1日0时0分0秒开始算起到上面时间结束的总秒数。
perl里面是不是有个模块专门处理时间的？

saicom

自己顶～
希望大家帮帮忙，谢谢

ulmer

原帖由 saicom 于 2006-9-21 17:30 发表
如有某个时间：
14:20:03   5/9/2006 (HH:MM:SS   DD/MM/YY)
格式大概如上，可以帮我调整一下格式（这格式我自己看都有点别扭，不过还没想到用哪种格式比较好用）
将上面的时间转换成从1970年1月1日0时0分0秒开 ...

see CPAN module Time::Local

use Time::Local;
my $date_string = "14:20:03   5/9/2006";
my ($time, $date) = split /\s+/, $date_string;
my ($hour, $min, $sec) = split /:/,  $time;
my ($mday, $mon, $year) = split /\//,  $date;
$times = timelocal($sec,$min,$hour,$mday,$mon,$year);

--ulmer

yagas

time::gmtime 也可以呀

lei8c8

pay attention to your time zone.
The result of the builtin timelocal returns GMT0 time number.

saicom

原帖由 ulmer 于 2006-9-21 22:33 发表


see CPAN module Time::Local

use Time::Local;
my $date_string = "14:20:03   5/9/2006";
my ($time, $date) = split /\s+/, $date_string;
my ($hour, $min, $sec) = split /:/,  $time;
...

用Time::Local时，$mon要减1，因为Time::Local定义的月份是0～11，而不是1～12。
下面是我的方法：
my $date_string = "14:20:03   5/9/2006";
my $time=`date +%s -d '$date_string'`;