PerlでDateTimeフィールドをフォーマットする

Question

文字列の日付を使用して、 "％Y％m％d_％H％M"として正しく出力するようにしています。日を除いてすべてが正確に出力されています。それは実際に翌日に戻ってきて、私はそれがなぜなのか全く分かりません。以下はコードと出力です。

my $currentTime = strftime("%Y%m%d_%H%M\n", gmtime(time)); 
my $hashTime = strftime("%Y%m%d_%H%M\n", gmtime(UnixDate($user->{'add_date'}, "%s"))); 

$self->Print($user->{'add_date'} ."\n". $currentTime . "\n" . $hashTime); 

出力：

2016-12-02 20:35:43 # Date from the Database 
20161202_2046 # Current GMTime 
20161203_0235 # This should be 20161202_2035? 

それが03として出力していますどのように来ますか？

Answer 1

私はそれを理解しました。不思議な人には、新しいコードは以下の通りです。あなたが言うことができるように、$ hashTimeの下で、UnixDateを（）を使用する場合

my $currentTime = strftime("%Y%m%d_%H%M\n", gmtime(time)); 
my $hashTime = UnixDate($user->{'add_date'}, "%Y%m%d_%H%M"); 

$self->Print($user->{'add_date'} ."\n". $currentTime . "\n" . $hashTime); 

、あなたはそれがすでにそれをあなたがそれを必要とする方法をフォーマットしているためにstrftimeを使用する必要はありません。