Perl 如何将日期时间（特定时区）转换为历元秒

我有一个特定时区中的datetime对象，即“Asia/Tokyo”。 我使用

$dt=datetime->now（时区=>'Asia/Tokyo'）获得这个datetime
其输出格式为
YYYY-MM-DD'P'HH:MM:ss
（
P
为分隔符）

请使用perl脚本帮助将其转换为datetime到epoch秒

DateTime->now(time_zone => 'Asia/Tokyo')->epoch

当然，如果现在使用
，无论您指定哪个时区，都会得到相同的结果，并且它将与的输出相同


这些都是指同一时间（现在）：

这些是指不同的时间：

>perl -MDateTime::Format::Strptime -E"say DateTime::Format::Strptime->new(pattern => '%F %T', time_zone => 'Asia/Tokyo')->parse_datetime('2011-08-11 13:00:00')->epoch"
1313035200

>perl -MDateTime::Format::Strptime -E"say DateTime::Format::Strptime->new(pattern => '%F %T', time_zone => 'America/New_York')->parse_datetime('2011-08-11 13:00:00')->epoch"
1313082000

当然，如果现在使用
，无论您指定哪个时区，都会得到相同的结果，并且它将与的输出相同


这些都是指同一时间（现在）：

这些是指不同的时间：

>perl -MDateTime::Format::Strptime -E"say DateTime::Format::Strptime->new(pattern => '%F %T', time_zone => 'Asia/Tokyo')->parse_datetime('2011-08-11 13:00:00')->epoch"
1313035200

>perl -MDateTime::Format::Strptime -E"say DateTime::Format::Strptime->new(pattern => '%F %T', time_zone => 'America/New_York')->parse_datetime('2011-08-11 13:00:00')->epoch"
1313082000

$dt->epoch
不适合你吗？
$dt->epoch
不适合你吗？