topic Re: Perl Script /Time function giving different results in Operating System - Microsoft

Perl Script /Time function giving different results

ABS_1 — Mon, 02 Jul 2007 16:50:03 GMT

Hi,

Here is a simple perl script that displays the current system time:
==============================================
($seconds, $minutes, $hour, $dayofmonth, $month, $year, $dayofweek, $dayofyear, $dst) = localtime(time);

print $seconds, " Second\n";
print $minutes, " Minute\n";
print $hour, " Hour\n";
print $dayofmonth, " Day of Month\n";
print $month, " Month\n";
print $year, " Year\n";
print $dayofweek, " Day of week\n";
print $dayofyear, " Day of year\n";
print $dst, " DST\n";
==============================================

When executed on a Windows server, it gives the correct "hour" value, but, when executed on another windows server (which is in the same timezone and physical location as the first server), it gives an "hour" value that is ahead by 5 hours.

Windows Admins are sure that the OS setup (as far as time/timezone/etc) is correct. Why would I be seeing this difference? Would this be something Windows related or the Perl related?

Re: Perl Script /Time function giving different results

A. Clay Stephenson — Mon, 02 Jul 2007 17:02:21 GMT

First, make certain that the two system's time are set correctly by using the Perl gmtime() function rather than localtime(). The output list is exactly the same except for dst -- which should be omitted.

Re: Perl Script /Time function giving different results

James R. Ferguson — Mon, 02 Jul 2007 17:10:04 GMT

Hi:

This is certainly related to your OS configuration and is NOT a Perl "problem".

Perl uses the standard libc library routines which in turn are sensitive to the environment's timezone.

You might examine what each server shows for:

# perl -le 'print join " =L:G= ", scalar localtime, scalar gmtime'

Regards!

...JRF...

Re: Perl Script /Time function giving different results

ABS_1 — Tue, 03 Jul 2007 12:19:27 GMT

Hi Clay,

With localtime(), I get the following output on the problem windows server:

27 Second
6 Minute
18 Hour
3 Day of Month
6 Month
107 Year
2 Day of week
183 Day of year
1 DST

With gmtime(), I get the following output on the problem windows server:

59 Second
6 Minute
17 Hour
3 Day of Month
6 Month
107 Year
2 Day of week
183 Day of year
0 DST

Re: Perl Script /Time function giving different results

ABS_1 — Tue, 03 Jul 2007 12:20:29 GMT

Hi James,

When executing the command you suggested, I get the following error:

F:\usr\OV\conf\OpC>c:\perl\bin\perl -le 'print join " =L:G= ", scalar localtime,
scalar gmtime'
Can't find string terminator "'" anywhere before EOF at -e line 1.

Re: Perl Script /Time function giving different results

Dennis Handly — Tue, 03 Jul 2007 12:28:15 GMT

What is the gmtime on both the good and bad servers?

If you posted your reply within 13 minutes of your run, the gmtime is fine but your timezone for local time is for Europe, 1 hour ahead of GMT. Or 5 hours ahead of EDT.

Re: Perl Script /Time function giving different results

ABS_1 — Tue, 03 Jul 2007 12:37:48 GMT

Hi Dennis,

Here is the gmtime (using the gmtime() function) on the good server:

46 Second
36 Minute
17 Hour
3 Day of Month
6 Month
107 Year
2 Day of week
183 Day of year
0 DST

Here is the gmtime (using the gmtime() function) on the bad server:

42 Second
37 Minute
17 Hour
3 Day of Month
6 Month
107 Year
2 Day of week
183 Day of year
0 DST

Both have been posted here within seconds of running the script.

Re: Perl Script /Time function giving different results

Dennis Handly — Tue, 03 Jul 2007 12:56:10 GMT

>Both have been posted here within seconds of running the script.

Your GMT time on both is fine. If this was a UNIX system, it would mean your timezone setting was bad on the one. Since this is Windows, you should have started your thread there.