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});
Lyle
_______________________________________________
BristolBathPM mailing list
[email protected]
http://mailman.bristolbath.org/mailman/listinfo/bristolbathpm
