[perl]将标准时间(yyyy-mm-dd hh24:mi:ss)转换为时间戳的小程序

#!/usr/bin/perl
use strict;
use Time::Local;
my ($time,$timelc,$sec,$min,$hour,$mday,$mon,$year);
$time = "2007-09-27 10:04:08";
my @time = reverse(split /-|:|\s|\//,$time);
foreach(@time){
s/^0//;
$timelc .= $_.",";
}
$timelc =~ s/,$//;
($sec,$min,$hour,$mday,$mon,$year) = split /,/,$timelc;
$year -= 1900;
$mon -= 1;
$timelc = timelocal($sec,$min,$hour,$mday,$mon,$year);
print $timelc,"\n";

#!/usr/bin/perl
#use strict;
use Time::Local;
sub time_local {
my $time = shift;
my ($sec,$min,$hour,$mday,$mon,$year);
my @time = reverse(split /-|:|\s/,$time);
while((my $t = @time) < 6){unshift @time,00;$t += 1;}
foreach(@time){
s/^0(.){1}/$1/;
$timel .= $_.",";
}
$timel =~ s/,$//;
($sec,$min,$hour,$mday,$mon,$year) = split /,/,$timel;
$timel = timelocal($sec,$min,$hour,$mday,$mon,$year);
return $timel;
}
print "Entry You Res Time:";
chomp(my $time = );
my $datetime = &time_local($time);
print "Your time $time res $datetime\n";