Perl使用日期::Parse模块无法以不同格式打印<stdin>date

日期::parse的文档不清楚,但看起来您将值恢复为 localtime() 希望如此。例如,年份似乎是负1900的年份。这意味着月份号将是0到11,而不是1到12。

日期::Parse已超过五年未更新。我建议这几天最好避免。有更好的选择。这些包括 Time::Piece 从5.10.0版开始,它就作为Perl发行版的标准部分提供了。你可以用它 strptime() (字符串分析时间)分析字符串及其 strftime() (字符串格式时间)根据需要设置日期对象格式的方法。

#!/usr/bin/perl

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

use Time::Piece;

print "Enter a date in dd/mm/yyy format: ";
chomp(my $user_date = <STDIN>);

my $tp = Time::Piece->strptime($user_date, '%d/%m/%Y');

say $tp->strftime('%Y/%m/%d');

更新:

而且,这一行应该做什么还不清楚:

print "%Y/%m/%d", @date;

我想你想用 STF() posix.pm中的方法。

print strftime "%Y/%m/%d", @date;

但与 use warnings 这将生成警告,因为中的所有未定义值 @data (在那个模块中,这是一个相当奇怪的设计决策,在我看来,这是另一个避免它的原因)。您可以通过替换:

my @date      = strptime($user_date);

用:

my @date      = map { $_ // 0 } strptime($user_date);