[megoldva] UTC átalakítása Perlben localtime-má

Sziasztok!

A DateTime és annak almoduljaival próbáltam a pl. a 2015-05-15 06:29:32 időbélyeget localtime-má alakítani de nem jártam sikerrel.

Természetesen úgy alakítom át a dátum+idő formátumot, ahogyan akarom.

Van ötletetek, miképpen követhetném el ezt profán módon?

Előre is köszönöm a válaszokat.

Hozzászólások


use DateTime;

$date = '2015-05-17 11:04:00';

if($date=~/^(\d{4})\-(\d{2})\-(\d{2}) (\d{2}):(\d{2}):(\d{2})$/)
{
$year=$1;
$month=$2;
$day=$3;
$hour=$4;
$min=$5;
$sec=$6;
}
else
{
die "valami van a palacsintaban...";
}

my $dt=DateTime->new(
year=>$year,
month=>$month,
day=>$day,
hour=>$hour,
minute=>$min,
second=>$sec,
time_zone=>"UTC"
);

print $dt."\n";

$dt->set_time_zone('Europe/Budapest');
print $dt."\n";