How to get local time using PERL?

[pzqwpo]

How to get local time using PERL while the server I am using is in a different time zone? For example, my local time is 9 am August 17th. But the server is in 9pm August 16th time zone. How do I write PERL code to get my local time?

 

[RageD]

How to get local time using PERL while the server I am using is in a different time zone? For example, my local time is 9 am August 17th. But the server is in 9pm August 16th time zone. How do I write PERL code to get my local time?

Have you tried using:

localtime(time);

?

E.g:

#!/usr/local/bin/perl
@time = localtime(time);
print join('',@time);

-RageD

 

[qbert220]

Perl uses the TZ environmental variable to determine which timezone to use. Try adding the following to the top of the script:

$ENV{TZ}="UTC";

Set "UTC" to your timezone. Use timeanddate.com to work out the timezone for your location.