Time-> epochを特定のタイムゾーンから取得する方法

Question

utimeを使用してファイルを特定のタイムスタンプに更新しようとしています。これを行うには、タイムスタンプの文字列バージョンを「時間オブジェクト」に変換し、次にエポックメソッドを使用してエポックを取得してタイムファイルを更新します。

my $yyyymmddhhmmss; # variable holding string version of time. example: 20150512:150632  
my $fileTime = Time::Piece->strptime($yyyymmddhhmmss, '%Y%m%d:%H%M%S'); 
utime $fileTime->epoch, $fileTime->epoch, $outfile; 

はしかし、私たちがしている時間帯と異なるUTCにファイルのタイムスタンプを設定している。手動で余分な秒を追加するほかに、エポックを持っているが、別の方法は、私たちのために秒を押し出していますタイムゾーン？

Answer 1

$yyyymmddhhmmssはローカルタイムではありません。

localtime->strptime($yyyymmddhhmmss, '%Y%m%d:%H%M%S')