6.7. Date::Manip

 
use Date::Manip;

sub _time_limit {
    my ($self, $date, $limit) = @_;
    my $now = localtime(time());
    my $current_date = ParseDate($now);
    my $pub_date = ParseDate($date);
    my $limit_date = DateCalc($current_date, "-$limit month");
    $pub_date =~ s/\:.*$//;
    $limit_date =~ s/\:.*$//;
    if ($pub_date > $limit_date) {
        return 1;
    }else{
        return 0;
    }
 

原文出处：Netkiller 系列 手札
本文作者：陈景峯
转载请与作者联系，同时请务必标明文章原始出处和作者信息及本声明。