Question

我如何转换＆＃34; 11 am＆＃34;和＆＃34;晚上10点＆＃34;进入＆＃34; 11：00：00＆＃34;和＆＃34; 22：00：00＆＃34;？在perl中有一种简单的方法来转换它吗？

Answer 1

自2007年Perl 5.10以来，

Time::Piece一直是Perl的标准组成部分。

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Time::Piece;

for (qw[11am 10pm]) {
  my $time = Time::Piece->strptime($_, '%H%p');
  say $time->strftime('%H:%M:%S');
}

Answer 2

Time :: Piece的文档声称%p的定义基于您的语言环境。因此，根据文档，Time :: Piece的%p无法可靠地用于处理am和pm，因此您不应该使用它。

另一方面，Time :: Piece的行为与记录的不同，%p将可靠地处理am和pm，因此它可以在技术上用于解决您的问题，尽管文档相反。

我个人避免那个巨大的混乱（以及所有Time :: Piece的其他问题）并使用以下更轻，更简单和更清晰的代码：

my ($h, $ampm) = /^([0-9]+)(am|pm)\z/;
$h = 0 if $h == 12;
$h += 12 if $ampm eq 'pm';
my $hms = sprintf("%d:00:00", $h);   # or %02d if you want 00:00:00

在perl中将12小时时间格式转换为24小时格式？

2 个答案: