perl 时间

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time()-3600*17);

$year += 1900;

$mon++;

if($mon <10){

$mon='0'.$mon;

}

if($mday <10){

$mday='0'.$mday;

}

 

if($hour <10){

$hour='0'.$hour;

}

my $today=$year.$mon.$mday;

1天之前的时间

localtime(time() - 86400*1)