perl - 如何在 Perl 中找到比给定日期早三天的日期？

Question

如何在 Perl 中找到比给定日期早 3 天的日期，格式为 YYYY-MM-DD？

Answer 1

Date::Calc 是这里的冠军模块:

use strict;
use warnings;
use Date::Calc qw(Add_Delta_YMD);

my $startDate = '2000-01-01';
my ($startYear, $startMonth, $startDay) = $startDate =~ m/(\d{4}-(\d{2})-\d{2})/;

# 1 year, 2 months, 3 days, after startDate
my $endDate = join('-', Add_Delta_YMD($startYear, $startMonth, $startDay, 1, 2, 3));

该模块有大量的时间转换例程，尤其是那些处理增量的。 DateTime 和 Date::Manip 也值得一试。