perl - 在 perl 中，我如何从通过文本文件并在 dd-Month-YYYY(01-jan-1990) 中输出的日期中减去 10 天

Question

在 perl 中有一种方法可以从文本文件中传递的日期中减去 10 天，并且输出应该是 01-jan-1999 格式。

我正在使用以下代码读取文件并获取日期，之后我对减去日期感到震惊。

日期.txt

2013 年 1 月 25 日

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

my $inp= "date.txt";
my $todate;
my $fromdate;

open(date,"$inp");
while(<date>)
{
$todate = $_ ;
print "$todate \n";
}

$fromdate = $todate - 10 days ;

Answer 1

这是使用 DateTime 的答案。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use DateTime::Format::Strptime;
use DateTime;

my $parser = DateTime::Format::Strptime->new(
  pattern => '%d-%B-%Y'
);

my $input = '25-jan-2013';

my $todate = $parser->parse_datetime($input);

my $fromdate = $todate->clone;
$fromdate->subtract(days => 10);
say 'From: ', $fromdate->strftime('%d-%B-%Y');
say 'To: ', $todate->strftime('%d-%B-%Y');