use Time::Format;
use Time::Local;
use strict;
use Date::Calc qw(Mktime);
use Data::Dumper;
my $timeStr = '20170502215358';
my $year = substr($timeStr,0,4);
my $mon = substr($timeStr,4,2);
my $day = substr($timeStr,6,2);
my $hour = substr($timeStr,8,2);
my $min = substr($timeStr,10,2);
my $sec = substr($timeStr,12,2);
print $mon;
print "\n";
print $min;
print "\n";
#格式:Tue May 2 21:53:58 2017
#my $time = Mktime('2011','05','25','11','05','12');
my $time = Mktime($year,$mon,$day,$hour,$min,$sec);
print localtime($time) . "\n";
#print localtime(time()) . " ";
#格式:1496411638
my $TIME = timelocal($sec, $min, $hour, $day, $mon, $year);
my $TIME1 = timegm($sec, $min, $hour, $day, $mon, $year);
print $TIME . " ". "\n";
print $TIME1 . " ". "\n";
use Time::Local;
use strict;
use Date::Calc qw(Mktime);
use Data::Dumper;
my $timeStr = '20170502215358';
my $year = substr($timeStr,0,4);
my $mon = substr($timeStr,4,2);
my $day = substr($timeStr,6,2);
my $hour = substr($timeStr,8,2);
my $min = substr($timeStr,10,2);
my $sec = substr($timeStr,12,2);
print $mon;
print "\n";
print $min;
print "\n";
#格式:Tue May 2 21:53:58 2017
#my $time = Mktime('2011','05','25','11','05','12');
my $time = Mktime($year,$mon,$day,$hour,$min,$sec);
print localtime($time) . "\n";
#print localtime(time()) . " ";
#格式:1496411638
my $TIME = timelocal($sec, $min, $hour, $day, $mon, $year);
my $TIME1 = timegm($sec, $min, $hour, $day, $mon, $year);
print $TIME . " ". "\n";
print $TIME1 . " ". "\n";