Re^7: Parsing/regex question

ow! Lookup table!!!

my %tz_lkup = (
    ny => "America/New_York",
    ln => "Europe/London",
    tk => "Asia/Tokyo",
    hk => "Asia/Hong_Kong",
    se => "Asia/Seoul",
    mo => "Europe/Moscow",
);

my $today_dt     = DateTime->now( time_zone => $tz_lkup{$region} );
my $tomorrow_dt  = $today_dt->add( days => 1 );
my $yesterday_dt = $today_dt->subtract( days => 1 );

print "It is now $today_dt in ", uc($region), "\n";
...
[download]

Comment on Re^7: Parsing/regex question Download Code

Replies are listed 'Best First'.
Re^8: Parsing/regex question by vxp (Pilgrim) on Jul 08, 2009 at 19:04 UTC
awesome, much thanks! I'm always interested in seeing 'other ways' of accomplishing things, so I appreciate it. If you're really bored - here's the current version of the script.. Would you take a quick glance? :) It all works, but perhaps you'd spot something else (even simple stuff like the hash you suggested - simple, great, and reduces amount of lines :) ). Read more... (39 kB)	[reply] [d/l] [select]