perl 字符串格式转化为时间格式，时间戳，epchotime

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