Hi Monks !!
I am facing issue with Data::Manip::ParseDate function on perl
5.10.1 as its adding extra one hour.
#!/usr/bin/perl
use Time::Local qw(timelocal timegm timegm_nocheck);
use POSIX qw(strftime);
use Date::Manip;
&dateTimeFormat;
sub dateTimeFormat
{
my($iSec,$iMin,$iHour,$iMday,$iMon,$iYear,$iWday,$iYday,$iIsds
+t) = localtime(time);
$iYear += 1900;
$iMon++;
my $tDate = sprintf('%04d-%02d-%02d',$iYear,$iMon,$iMday);
my $tTime = sprintf('%02d:%02d:%02d',$iHour,$iMin,$iSec);
my $cZone = strftime("%Z", localtime());
my $cString = $tDate.$tTime.$cZone;
my $cParsedate = ParseDate($cString);
my $tNewdate = UnixDate($cParsedate, "%Y-%f-%d");
my $tNewtime = UnixDate($cParsedate, "%H:%M:%S");
my($tYear,$tMonth,$tDd) = split(/-/,$tNewdate);
$tNewdate = sprintf('%04d-%02d-%02d',$tYear,$tMonth,$tDd);
my($HH,$MM,$SS) = split(/:/,$tNewtime);
$tNewtime = sprintf('%02d:%02d:%02d',$HH,$MM,$SS);
my $cDatetime = $tNewdate." ".$tNewtime;
print $cDatetime;
}
Below is the output of the program
[denzil@local ~]# perl 1.pl
2014-10-10 12:16:12
[denzil@local ~]# date
Fri Oct 10 11:16:13 GMT 2014
[root@cjjeiprodb ~]#
Can you please help me to fix this?