On 07/05/2010 04:19 AM, Lyle wrote:
> Hi All,
> I've just produced the following code, I'm sure there is a simple was
> to have done it, but it's very late (that's my excuse and I'm sticking
> to it). It works, but I thought I'd post it here for criticism.
>
> Requirement was to produce date formatted as "YYYY-MM-DD HH:MM:SS ±OO:OO".
>
>
> use Time::Local 'timegm';
> my $gmtime = time;
> my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
> localtime($gmtime);
> my $localtime = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
>
> my $adjust = {
> hours => 0,
> mins => 0,
> prefix => '+',
> };
> if ( $gmtime> $localtime ) {
> my $adjust_secs = $gmtime - $localtime;
> my $adjust_mins = $adjust_secs / 60;
> $adjust->{hours} = int( $adjust_mins / 60 );
> $adjust->{mins} = $adjust_mins - $adjust->{hours} * 60 if (
> $adjust_mins % 60 );
> $adjust->{prefix} = '-';
> }#if
> elsif ( $localtime> $gmtime ) {
> my $adjust_secs = $localtime - $gmtime;
> my $adjust_mins = $adjust_secs / 60;
> $adjust->{hours} = int( $adjust_mins / 60 );
> $adjust->{mins} = $adjust_mins - $adjust->{hours} * 60 if (
> $adjust_mins % 60 );
> }#elsif
>
> my $formatted = sprintf("%04d-%02d-%02d %02d:%02d:%02d %s%02d:%02d",
> $year, $mon, $mday, $hour, $min, $sec, $adjust->{prefix},
> $adjust->{hours}, $adjust->{mins});
POSIX::strftime is your friend.
$ perl -MPOSIX=strftime -E'say strftime "%Y-%m-%d %H:%M:%S %z", localtime'
2010-07-05 06:44:39 +0100
Dave...
_______________________________________________
BristolBathPM mailing list
[email protected]
http://mailman.bristolbath.org/mailman/listinfo/bristolbathpm
