Perl 字符串转换成UNIX时间戳

最近遇到一个需求，调用perl脚本，由于自己不会perl硬着头皮上

实现的功能是，下一周任一时间发送上一周一周报

#!/usr/bin/perl -w #检测是否是闰年#输入参数年：数值类型#如：2017sub is_leap_year{    my ($year) = @_;    my $flag = 0;    if((($year) %4 == 0 && ($year) % 100 != 0) || ($year) % 400 == 0){        $flag = 1;    }else{        $flag = 0;    }    return $flag;}#返回偏移后的unix时间戳#参数：年，月，日，偏移日期(可正可负)，数值类型#如：2017,9,15,-3,返回2017-9-12-0；00：00的unix时间戳sub getOffsetTimeSecond{    my $ii = 0;    my $j = 0 ;    my $sec = 0;    my ($year,$month,$day,$offsetday) = @_;         my @days = (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);         for($ii =1970;$ii < $year; $ii = $ii + 1 )    {        my $gg = is_leap_year($ii);        my $flag = 1;           if($gg == $flag){            $sec += 31622400;        }else{            $sec += 31536000;        }          }    for( $j = 1; $j < $month; $j = $j + 1)    {        my $mm = 2;        my $ll = is_leap_year($year);        my $flagg = 1;        $sec += $days[$j] * 86400;        if( $j == $mm && $flagg == $ll)        {            $sec += 86400;        }    }    $sec += ($day- 1) * 86400;    $sec -= 28800;    $sec += 86400 * $offsetday;     return $sec;} my $txdate;my $jobname;$txdate = $ARGV[2];$jobname = $ARGV[1]; my $y=substr($txdate, 0, 4) + 0;my $m=substr($txdate,4,2) + 0;my $d=substr($txdate,6,2) + 0;     my $mysecondtest = getOffsetTimeSecond($y,$m,$d,0);my ($tsec1,$tmin1,$thour1,$tmday1,$tmon1,$tyear_off1,$twday1) = localtime($mysecondtest); if($twday1 == 0){    $twday1 += 7;}my $lastsecond = getOffsetTimeSecond($y,$m,$d,-6-$twday1); my($sec,$min,$hour,$day,$mon,$year) = localtime($lastsecond);   $mon++;$year += 1900;   $txdate = sprintf("%04d%02d%02d",$year,$mon,$day); #print "$txdate\n"; #发送报表 周报RP_SOHU_AD_WEEKLYmy $code=system("/bin/sh /opt/dwetl/tableau/sh/tableau_mail.sh 'RP_AD_WEEKLY' '$txdate'");exit $code/256;