Perl 格式化日期

Question

use Date::Calc qw(:all);
use Time::Piece;
use POSIX qw(strftime);
$a1 = '01.01.1963';
($year, $month, $day) = Decode_Date_US($a1);
print "$year $month $day\n";
$formatted = strftime('%m/%d/%Y',$month,$day,$year);
print "$formatted\n";

我正在尝试使用 POSIX(strftime) 以一致的格式格式化日期。我不确定输入格式可能是什么。我正在使用 Decode_Date_US 来提取相关的年月日信息。然后我尝试使用 strftime 以一致的方式格式化日期。我收到以下错误 用法：POSIX::strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) at test_dates.pl line 60

任何帮助将不胜感激。 “use Time::Piece”最终将用于对日期进行排序。

谢谢

Answer 1

只需使用Time::Piece 和strptime

#!/usr/bin/env perl
use strict;
use warnings;

use Time::Piece;

my $date = '01.01.1963';
my $timestamp = Time::Piece->strptime( $date, "%m.%d.%Y" );
print $timestamp -> strftime( "%m/%d/%Y")

但是，如果格式不一致，那么您就输了 - 对于初学者来说，有很多地方可以转换日/月顺序，或者将年份表示为两位数（有时会与月或日发生冲突）。

它本质上是模棱两可的。您最多可以通过抓取数字组并假设它们的顺序一致来应用一些非常粗略的猜测。

例如

my ( $day, $month, $year ) = m/(\d{2}).*(\d{2}).*(\d{4})/; 

$timestamp = Time::Piece -> strptime ( "$year-$month-$day", "%Y-%m-%d" ); 

但是你会被10/11/12 这样的日期绊倒，因为你根本不知道哪个数字是哪个字段。您可以通过evalstrptime 尝试猜测，然后重试不同的格式，直到您得到一个确实 解码为有效的格式。

正如您所指出的 - Decode_Date_US 基本上是这样做的：

use strict;
use warnings;
use Date::Calc qw(:all);
use Time::Piece;
my $a1 = '01.01.1963';
my ($year, $month, $day) = Decode_Date_US($a1);
my $time = Time::Piece -> strptime("$year/$month/$day", "%Y/%m/%d");
print $time->strftime("%Y-%m-%d"),"\n";

还有 - use strict; use warnings; 很好。

还有 - 一个 correct way to write dates。如果您要重新格式化，那么不模棱两可的就是最好的选择。

Answer 2

我最终使用了 DateTime 模块的 strftime 函数，它可以处理早于 1970 年的日期。 “崩溃”-Perl 命令行解释器已停止工作。如果有帮助，我正在使用 Windows 机器和一个非常罕见的 perl 用户。

这对我有用

use Date::Calc qw(:all);
use DateTime;
$dateformat = "%m/%d/%Y";
($year, $month, $day) = Decode_Date_US($date);
$date = DateTime->new(
                  year=>$year,
                  month=>$month,
                  day=>$day,            
        );
$date = $date->strftime($dateformat);