perl - 在 Perl 中，如何解析日期字符串并从它表示的日期中减去天数？

Question

我在 $str1="20120704" 中有一个字符串日期。我想从该日期减去 1 天，并将日期的值作为字符串存储在 $str2 中。我该怎么做？

Answer 1

这与您几天前提出的另一个问题非常相似。因此，不出所料，解决方案也非常相似。

Time::Piece 和 Time::Seconds 自版本 5.10.0 以来一直是标准 Perl 发行版的一部分。你应该使用它们。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Time::Piece;
use Time::Seconds;

my $format = '%Y%m%d';
my $str1 = '20120704';

my $dt1 = Time::Piece->strptime($str1, $format);
my $dt2 = $dt1 - ONE_DAY;
my $str2 = $dt2->strftime($format);
say $str2;