Public Pastes
Guest

How do I determine the current timezone a machine is set to with Perl

By: a guest on Jan 28th, 2012  |  syntax: None  |  size: 0.20 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  1. use POSIX;
  2. print strftime("%Z", localtime()), "n";
  3.        
  4. use POSIX;
  5. localtime();
  6. my ($std, $dst) = POSIX::tzname();
  7.        
  8. use DateTime::TimeZone;
  9.  
  10. print DateTime::TimeZone->new( name => 'local' )->name();
create a new version of this paste RAW Paste Data