#!/usr/bin/perl use strict; use Time::Zone; use Date::Format; use Date::Parse; my $TZ = 'America/New_York'; my $now = scalar localtime time() + tz_offset($TZ); my $today = time2str( "%m-%d-%Y \@ %H:%M:%S", $now); # I am trying to format the result like this = 09-30-2010 @ 21:45:06 print "Today: $today\n";
In reply to Dynamic Time Zone Help by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |