2010-04-23 5 views

Répondre

6

Si vous utilisez Today_and_Now() Je suppose que vous utilisez Date::Calc. Donc, si vous lisez les docs, vous verrez que vous pouvez passer un paramètre à ces deux qui indique que gmtime() doit être utilisé en entrée plutôt que localtime(). Transmettez simplement toute vraie valeur à ces fonctions.

my ($year,$month,$day) = Today(1); 
    my ($year,$month, $day, $hours, $mins, $secs) = Today_and_Now(1); 
+1

Pourquoi ne pas créer un lien directement à Date :: Calc http://search.cpan.org/perldoc/Date::Calc ou http://search.cpan.org/perldoc?Date :: Calc? –

+0

Parce que je voulais pointer vers le module pas les docs? –

2

Je suis devenu plus fan de DateTime chaque fois que je l'utilise.

my $local_tz = DateTime::TimeZone->new(name=> 'local'); 
my $now = DateTime->now(time_zone => $local_tz); 

$now->set_time_zone('UTC'); 
say $now->hour(); ### UTC 

$now->set_time_zone($local_tz); 
say $now->hour(); ### Back to local time 
Questions connexes