perl - Perl时间解析和“加天：小时：分钟”的差异计算

Question

我有一个带有时差的字符串，例如：

12:03:22  <- where
 ^  ^  ^
 |  |  +minutes
 |  +hours
 +days

强制性的只有分钟，小时和天可以省略，但这里可以是例如 120:30，所以 120 小时和 30 分钟。

需要计算NOW + Difference 的日期和时间，例如：

when now is "May 20, 13:50" and
the string is "1:1:5"
want get as result: "2012 05 21 14 55" (May 21, 14:55)

我知道 DateTime，但是解析输入字符串的简单方法是什么？我敢肯定，这是一种更好的方法：

use _usual_things_;
my ....
if($str =~ m/(.*):(.*):(.*)/) {
   $d = $1; $h = $2; $m = $3;
}
elsif( $str =~ m/(.*):(.*)/ ) {
   $h = $1; $m = $2;
} elsif ($str =~ m/\d+/ ) {
   $m = $1;
}
else {
  say "error";
}

以及如何将解析的天数、小时数、分钟数添加到当前日期？

Answer 1

如何使用reverse来避免检查格式？

my ($m, $h, $d) = reverse split /:/, $str;

要将其添加到当前日期，只需使用 DateTime：

print DateTime->now->add(days    => $d // 0,
                         hours   => $h // 0,
                         minutes => $m);

Answer 2

解析可以进行一次，但基于否进行分支。令牌是无法避免的。这是示例实现。

$Str = '12:03:22' ;

@Values = ($Str=~/\G(\d\d):?/g) ;

print "error with input" if not @Values;

if( @Values == 3) { print "Have all 3 values\n" }
elsif( @Values == 2) { print "Have 2 values\n" }