[Vienna-pm] ZeitZonen
Carl A. Schreiber
gooly at gmx.at
Mon Jan 3 09:42:14 CST 2005
Hallo,
das ist nur indirekt eine Perl Frage, da ich die Zeitzonen
halt mit Perl umrechne, aber irgenwie krieg ich's nicht hin:
PST (Pacific) -> GMT -> PST
PST -> GMT -> MEZ und so weiter..
Ich möchte aus der PST-Zeit wieder eine PST-Zeit machen,
wo liegt mein Denkfehler?
Tipps?
Also:
#! /usr/bin/perl
use Time::ParseDate;
use Time::Zone;
my $s = "Jan-08-05 22:34:48 PST";
@i = split /\s+/, $s;
print join '; ', @i, "\n\n";
$i[0] = "$2 $1 $3" if ($i[0] =~ /(\w+)[\s-](\d+)[\s-](\d+)/);
$time{eDay} = $i[0];
$time{eTime} = $i[1];
$time{eTeZo} = $i[2];
$time{OFF} = tz_offset($i[2]);
$time{gmtSec} = parsedate($time{eDay}.' '.$time{eTime},
ZONE => $time{eTeZo});
$time{xGMT} = scalar localtime($time{gmtSec});
$time{offSek} = $time{gmtSec} - $time{OFF} ;
$time{xEND} = scalar localtime($time{offSek});
foreach (sort keys %time) {
print "\t$_ => \t$time{$_}\n";
}
More information about the Vienna-pm
mailing list