2021-12-08 统计两个日期天数

#!/usr/bin/perl -w

use strict;

use Time::Piece qw();

#######

my $today = &GetToday()

my days =  &Days( 2020-10-5 ,$today);

########### 抓取今天的时间 2021-12-08 #####

sub GetToday{

        my ($year,$mon,$day)=(localtime)[5,4,3];

        $year+=1900;

        $mon+=1;

        $day-=0;

        my $yymmdd = sprintf(“%04u-%02u-%02u”,$year,$mon,$day);

        return $yymmdd;

}

########## 算日期天数 #########

sub Days{

        my $st = shift; # start

        my $en = shift; # end time

        my $tt1 = Time::Piece->strptime($st, %Y-%m-%d );

        my $tt2 = Time::Piece->strptime($en, %Y-%m-%d );

        my $seconds = $tt2 – $tt1;

        my $long = $seconds->days();

        return  $long;

}

###############