perl - 使用 Perl，我如何以 YYYY-MM-DD 的形式比较日期？

Question

我有一个数组 n格式为 YYYY-MM-DD 的字符串(例如，“2010-10-31”)。

如何将日期与此数组中的字符串进行比较？

比如删除30多天前的字符串？

Answer 1

use strict; use warnings;
use DateTime ();
use DateTime::Duration ();
use DateTime::Format::Natural ();

my $parser = DateTime::Format::Natural->new;
my $now    = DateTime->now;
my $delta  = DateTime::Duration->new( days => 30 );
my $cutoff = $now->subtract_duration( $delta );

my @new_dates = map  { $_->[1] }
                grep { -1 == $_->[0] }
                map  { 
                    chomp;
                    [
                        DateTime->compare(
                            $parser->parse_datetime( $_ ),
                            $cutoff
                        ),
                        $_ 
                    ]
                } <DATA>;

print "@new_dates";

__DATA__
2010-07-31
2010-08-31
2010-09-30
2010-10-31