如何在Perl中将date/时间转换为纪元时间(又名unix time – 1970年以来的秒数)?

给定date/时间作为(年,月,日,时,分,秒)数组,将如何将其转换为纪元时间,即自1970-01-01 00:00:00 GMT以来的秒数?

奖金问题:如果将date/时间作为一个string给出,您将如何首先将其parsing为(y,m,d,h,m,s)数组?

  • 在正则expression式中如何嵌套捕获组?
  • Perl有枚举types吗?
  • 我怎样才能让LWPvalidationSSL服务器证书?
  • Perl的常见问题?
  • 在正则expression式中转义正斜杠
  • 如何在Perlreplace运算符的replace侧使用variables?
  • 什么正则expression式可以匹配相同字符的序列?
  • 我如何打印Perl中的哈希内容?
  • 12 Solutions collect form web for “如何在Perl中将date/时间转换为纪元时间(又名unix time – 1970年以来的秒数)?”

    如果你使用的是DateTime模块,你可以调用DateTime对象的epoch()方法,因为这就是你所想象的unix时间。

    使用DateTimes可以让你很容易地从纪元转换到date对象。

    另外, localtime和gmtime会将一个纪元转换为一个包含日月和年的数组, Time :: Local模块中的 timelocal和timegm将做相反的处理,将时间元素(秒,分,…,天) ,月等)进入一个时代。

    这是获取unix时间最简单的方法:

    use Time::Local; timelocal($second,$minute,$hour,$day,$month-1,$year); 

    请注意参数的相反顺序,1月份是月份0.有关更多选项,请参阅CPAN中的DateTime模块。

    至于parsing,请参阅CPAN中的Date :: Parse模块。 如果你真的需要用dateparsing, Date :: Manip可能会有所帮助,虽然它自己的文档警告你远离它,因为它带有很多的包袱(它知道像普通的商业假期等)和其他解决scheme要快得多。

    如果您碰巧知道date/时间的格式,那么可以使用一个简单的正则expression式,但是您最好使用适当的CPAN模块。 例如,如果您知道date将始终处于YMDHMS顺序,请使用CPAN模块DateTime :: Format :: ISO8601 。


    对于我自己的参考,如果没有别的,下面是一个函数,我使用的应用程序,我知道date将始终在YMDHMS顺序全部或部分“HMS”部分可选。 它接受任何分隔符(例如“2009-02-15”或“2009.02.15”)。 它会返回相应的unix时间(自1970-01-01 00:00:00 GMT以来的秒数),如果无法parsing,则返回-1(这意味着您最好确保永远不会合法地parsingdate1969- 12-31 23:59:59)。 它也假定两位数的年份XX到69是指“20XX”,否则“19XX”(例如,“50-02-15”是指2050-02-15,但“75-02-15”是指1975- 02-15)。

     use Time::Local; sub parsedate { my($s) = @_; my($year, $month, $day, $hour, $minute, $second); if($s =~ m{^\s*(\d{1,4})\W*0*(\d{1,2})\W*0*(\d{1,2})\W*0* (\d{0,2})\W*0*(\d{0,2})\W*0*(\d{0,2})}x) { $year = $1; $month = $2; $day = $3; $hour = $4; $minute = $5; $second = $6; $hour |= 0; $minute |= 0; $second |= 0; # defaults. $year = ($year<100 ? ($year<70 ? 2000+$year : 1900+$year) : $year); return timelocal($second,$minute,$hour,$day,$month-1,$year); } return -1; } 

    要parsing一个date,请看CPAN中的Date :: Parse 。

     $ENV{TZ}="GMT"; POSIX::tzset(); $time = POSIX::mktime($s,$m,$h,$d,$mo-1,$y-1900); 

    从CPAN获取date:: Manip ,然后:

     use Date::Manip; $string = '18-Sep-2008 20:09'; # or a wide range of other date formats $unix_time = UnixDate( ParseDate($string), "%s" ); 

    编辑:

    Date :: Manip很大很慢,但parsing非常灵活,而且是纯粹的perl。 如果您在编写代码时很匆忙,可以使用它,并且您知道在运行代码时不会太急。

    例如,使用它在启动时parsing命令行选项,但不要使用它在繁忙的Web服务器上parsing大量数据。

    看作者的评论 。

    (感谢下面第一条评论的作者)

    我知道这是一个古老的问题,但我想我会提供另一个答案。

    Time::Piece是Perl 5.9.5的核心

    这允许通过strptime方法parsing任意格式的时间。

    例如:

     my $t = Time::Piece->strptime("Sunday 3rd Nov, 1943", "%A %drd %b, %Y"); 

    有用的部分是 – 因为它是一个重载的对象,你可以用它来进行数字比较。

    例如

     if ( $t < time() ) { #do something } 

    或者,如果您在string上下文中访问它:

     print $t,"\n"; 

    你得到:

     Wed Nov 3 00:00:00 1943 

    有一堆访问器方法允许一些其他有用的基于时间的变换。 https://metacpan.org/pod/Time::Piece

    我最喜欢的date时间分析器是DateTime :: Format :: ISO8601一旦你有了这个工作,你将有一个DateTime对象,可以很容易地转换为时代秒(epoch)

    CPAN上有许多Date操作模块。 我最喜欢的是DateTime ,你可以使用strptime模块以任意格式parsingdate。 CPAN上还有很多用于处理专用date格式的DateTime :: Format模块,但是strptime是最通用的。

    为了进一步的参考,可以应用在例如!#/bin/sh脚本中。

     EPOCH="`perl -e 'use Time::Local; print timelocal('${SEC}','${MIN}','${HOUR}','${DAY}','${MONTH}','${YEAR}'),\"\n\";'`" 

    只要记住要避免八进制值!

    可能是“有更多的方法去做”的更好的例子之一,有或没有CPAN的帮助。

    如果你可以控制你作为一个'date/时间'传递的东西,我会build议去DateTime路由,要么使用特定的Date :: Time :: Format子类,要么使用DateTime :: Format :: Strptime if没有一个支持你古怪的date格式(查看date时间常见问题的更多细节)。 一般来说,如果你想做一些严重的事情,Date :: Time就是要走的路,结果是:CPAN上的几门课非常具有肛门保守性和迷幻精确性。

    如果你期望奇怪的自由格式的东西,把它扔在Date :: Parse的str2time()方法,这将给你一个秒钟以来的时代价值,你可以有你的邪恶的方式,没有date的开销: :Manip 。

    在标准input上将各种ISO相关格式中的任何date(以及在阅读Mighty Kuhn 的着作之后使用什么其他内容)转换为标准输出中的时间为秒的时间的filter可以用于说明这两个部分:

     martind@whitewater:~$ cat `which isoToEpoch` #!/usr/bin/perl -w use strict; use Time::Piece; # sudo apt-get install libtime-piece-perl while (<>) { # date --iso=s: # 2007-02-15T18:25:42-0800 # Other matched formats: # 2007-02-15 13:50:29 (UTC-0800) # 2007-02-15 13:50:29 (UTC-08:00) s/(\d{4}-\d{2}-\d{2}([T ])\d{2}:\d{2}:\d{2})(?:\.\d+)? ?(?:\(UTC)?([+\-]\d{2})?:?00\)?/Time::Piece->strptime ($1, "%Y-%m-%d$2%H:%M:%S")->epoch - (defined ($3) ? $3 * 3600 : 0)/eg; print; } martind@whitewater:~$ 

    如果你只是在寻找一个命令行工具(即不会从其他函数调用的东西),试试这个脚本。 它假定存在GNUdate(几乎存在于任何Linux系统上):

     #! /usr/bin/perl -w use strict; $_ = (join ' ', @ARGV); $_ ||= <STDIN>; chomp; if (/^[\d.]+$/) { print scalar localtime $_; print "\n"; } else { exec "date -d '$_' +%s"; } 

    这是如何工作的:

     $ Time now 1221763842 $ Time yesterday 1221677444 $ Time 1221677444 Wed Sep 17 11:50:44 2008 $ Time '12:30pm jan 4 1987' 536790600 $ Time '9am 8 weeks ago' 1216915200