[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