Bilashi Sahu wrote:
> Hi,
> I am trying to convert UTC (In seconds) time to local Time.
> I will appreciate if anybody has some hints to do this.
> I have code like this, it does not work properly
> Here cds_date is in UTC seconds and $cmpn_date is in local time
> Just comparing if both of the same
You're starting to piss me off dude. You didn't follow my suggestions
at all when it comes to posting a problem. This will be my last reply
if you don't learn to post properly and save us all some work on your
problems.
> #check date
> sub checkDate () {
^^ Why are you using prototyping () ?
> my ($cds_date, $cmpn_date, $fhlog, $result) = @_;
> my ($g_day, $g_mon, $g_year, $g_hr, $g_min, $g_sec, $g_msec, $g_ampm) =
> split(/[-\s\.]/, $cmpn_date); $g_year += 2000;
> my @abbr = qw( JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC );
> my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime($cds_date);
> $year += 1900;
> if($g_ampm eq "PM") {
> $g_hr += 12;
> }
> $g_hr = 0 if($g_ampm eq "AM" && $g_hr == 12);
> $hour = ($hour + 7) if ($g_hr < 17);;
What's the above line for ?
> if ($g_year == $year &&
> ($g_day == $mday) &&
> ($abbr[$mon] eq $g_mon)
> && $g_hr == $hour && $g_min == $min && $g_sec == $sec) {
> #$g_hr == $hour && $g_min == $min && $g_sec == $sec) {
> } else {
> $$result = "F";
> }
Please post properly with a COMPLETE test case:
use strict;
use warnings;
use IO::Handle;
my $dbg = 1;
my $io = new IO::Handle;
my $fhlog = $io->fdopen(fileno (STDOUT), "w") or die;
my $cds_date = time;
my @t = localtime; # for debug
# I'm forcing a match in time here:
my $cmpn_date = sprintf "14-AUG-08 %u %u %u.001 PM",
$t[2] > 12 ? $t[2] - 12 : $t[2], $t[1], $t[0];
my $result = 0;
checkDate ($cds_date, $cmpn_date, $fhlog, \$result);
$fhlog->print("result='$result'\n");
exit;
# check date
sub checkDate {
my ($cds_date, $cmpn_date, $fhlog, $result) = @_;
my @abbr = qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC);
my ($g_day, $g_mon, $g_year, $g_hr, $g_min, $g_sec, $g_msec, $g_ampm) =
split /[-\s\.]/, $cmpn_date;
$g_year += 2000;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (
$cds_date);
$year += 1900;
$g_hr += 12 if $g_ampm eq 'PM';
$g_hr = 0 if $g_ampm eq 'AM' && $g_hr == 12;
# $hour = $hour + 7 if $g_hr < 17; # whats this for ?
$$result = 'F';
if ($g_year == $year && $g_day == $mday && $abbr[$mon] eq $g_mon &&
$g_hr == $hour && $g_min == $min && $g_sec == $sec) {
$$result = 'T';
}
}
__END__
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
