perl「DateTime」模塊打印錯誤時間

Question

我正在使用DateTime模塊。但是它提供了錯誤的時間。請考慮下面的代碼：

#!/usr/bin/perl -w 
use strict; 

use Time::localtime; 
my $now = ctime(); 
print $now."\n"; 

print "------------------------------\n"; 

use DateTime; 
my $dt = DateTime->now; 
print $dt."\n"; 

，其輸出是：

Wed Dec 26 22:11:52 2012 
------------------------------ 
2012-12-27T06:11:52 

所以，你可以看到，DateTime輸出8小時，這是錯誤的領導。這裏是Linux date命令的輸出：

# date 
Wed Dec 26 22:13:17 PST 2012 

因此，date命令的輸出與time::localtime輸出相匹配。

你能幫我理解我在使用DateTime模塊時出錯的地方嗎？

- 謝謝。

UPDATE：

從興田CPAN文檔：

DateTime->now(...) 

This class method is equivalent to calling from_epoch() with the value returned from Perl's time() function. Just as with the new() method, it accepts "time_zone" and "locale" parameters. 

By default, the returned object will be in the UTC time zone. 

所以，看來返回的時間爲UTC。但是，我在PST的時區。可能這就是爲什麼我看到不同的時間。

Answer 1

我順利通過了區信息，現在完美的作品：

#!/usr/bin/perl -w 
use strict; 

use Time::localtime; 
my $now = ctime(); 
print $now."\n"; 

print "------------------------------\n"; 

use DateTime; 
my $dt = DateTime->now (time_zone => 'America/Los_Angeles'); 
print $dt."\n"; 

輸出：

Wed Dec 26 22:28:44 2012 
------------------------------ 
2012-12-26T22:28:44 

爲東海岸

my $dateF = DateTime->now(time_zone => 'America/New_York')->ymd;