Re: Getting a named DateTime::TimeZone from an offset

Randy J. Ray schreef:
> In fact, since I'm really just after the short names for the sake of
> pretty-printing dates for end-users who aren't impressed by "-08:00"
> where they'd expect "PDT", I can use any of the matching zones. It
> just seems a waste to have to iterate over the whole set to get the
> ones that match a specific offset.

Bad example, as -8:00 is not PDT. PDT is -7:00, but so is MST. Even at 
the same time, as some regions of the US don't observe summer time.

And that even ignores the rest of the world; for example, at this time
of year, -4:00 is known as AST, AMT, GYT, and BOT.

The only way in which you can ever do something like this is to restrict
yourself explicitly to a few timezones, in which case it isn't too hard
to iterate over them:

my $dt = DateTime::Format::ISO8601->parse_datetime( '20080701T000000-0400' );

print map  { $_->short_name_for_datetime($dt) }
      grep { $_->offset_for_datetime($dt) == $dt->offset }
      map  { DateTime::TimeZone->new(name => $_) }
           qw/EST5EDT CST6CDT MST7MDT PST8PDT/;

Eugene