将12小时日期/时间转换为24小时日期/时间

Question

我有一个制表符分隔文件,其中每个记录都有一个12小时格式的时间戳字段:

mm/dd/yyyy hh:mm:ss [AM | PM].

我需要快速将这些字段转换为24小时的时间:

mm/dd/yyyy HH:mm:ss.

最好的方法是什么？我在Windows平台上运行,但除了常用的Windows工具之外,我还可以访问sed,awk,perl,python和tcl.

Answer 1

使用Perl和手工制作的正则表达式而不是像strptime这样的工具:

#!/bin/perl -w
while (<>)
{
    # for date times that don't use leading zeroes, use this regex instead:
    # (?:\d{1,2}/\d{1,2}/\d{4} )(\d{1,2})(?::\d\d:\d\d) (AM|PM)
    while (m%(?:\d\d/\d\d/\d{4} )(\d\d)(?::\d\d:\d\d) (AM|PM)%)
    {
        my $hh = $1;
        $hh -= 12 if ($2 eq 'AM' && $hh == 12);
        $hh += 12 if ($2 eq 'PM' && $hh != 12);
        $hh = sprintf "%02d", $hh;
        # for date times that don't use leading zeroes, use this regex instead:
        # (\d{1,2}/\d{1,2}/\d{4} )(\d{1,2})(:\d\d:\d\d) (?:AM|PM)
        s%(\d\d/\d\d/\d{4} )(\d\d)(:\d\d:\d\d) (?:AM|PM)%$1$hh$3%;
    }
    print;
}

这非常挑剔 - 但也可能每行转换多个时间戳.

请注意,将AM/PM转换为24小时并非易事.

• 12:01 AM - > 00:01
• 下午12:01 - > 12:01
• 01:30 AM - > 01:30
• 01:30 PM - > 13:30

现在测试:

perl ampm-24hr.pl <<!
12/24/2005 12:01:00 AM
09/22/1999 12:00:00 PM
12/12/2005 01:15:00 PM
01/01/2009 01:56:45 AM
12/30/2009 10:00:00 PM
12/30/2009 10:00:00 AM
!

12/24/2005 00:01:00
09/22/1999 12:00:00
12/12/2005 13:15:00
01/01/2009 01:56:45
12/30/2009 22:00:00
12/30/2009 10:00:00

补充:

在JavaScript中,在AM/PM时间和24小时时间之间转换的简单方法是什么,为转换提供了另一种算法:

$hh = ($1 % 12) + (($2 eq 'AM') ? 0 : 12);

只需一次测试......可能更整洁.

Answer 2

它是python中的单行内容:

time.strftime('%H:%M:%S', time.strptime(x, '%I:%M %p'))

例:

>>> time.strftime('%H:%M:%S', time.strptime('08:01 AM', '%I:%M %p'))
'08:01:00'
>>> time.strftime('%H:%M:%S', time.strptime('12:01 AM', '%I:%M %p'))
'00:01:00'