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";