Perl中MST转America/Los_Angeles时区不生效及DST处理咨询

代码看起来转换失效，本质是两个认知偏差导致的：

• 三字母时区缩写并非动态时区标识
  传入的"MST" 不会被解析为会随季节切换夏令时的美国山地时区，而是被DateTime模块识别为 固定偏移、无夏令时规则的静态时区：即永远保持UTC-7的时间偏移，不会随日期调整时差。
  你测试的2021-04-01这个时间点，美国山地时区已经进入夏令时（UTC-6，MDT），洛杉矶太平洋时区处于夏令时（UTC-7，PDT）。因为你给源时间绑定的是固定UTC-7的静态MST，和当时洛杉矶时区的偏移完全一致，所以set_time_zone之后输出的时间数值没有变化，才会给人一种转换完全不生效的错觉。如果更换到冬季时间测试，你会发现偏移量完全不符合实际：2021年1月洛杉矶是冬季太平洋标准时间（UTC-8），静态MST（UTC-7）转过去的时间会比真实时差早1小时。
• 三字母缩写本身存在强歧义
  同样是MST缩写，可以对应山地标准时间、马来西亚标准时间、毛里塔尼亚标准时间等完全不同的时区，偏移量从UTC-7到UTC+8不等，模块只会匹配内置的默认固定偏移，不会自动判断你实际要使用的时区范围。

1. 所有时区参数统一使用IANA标准时区标识符，禁止使用三字母缩写作为正式时区配置：
   • 如果你的源时间属于会自动切换夏令时的美国山地时区（如科罗拉多州区域），将Strptime里的time_zone从"MST"替换为"America/Denver"
   • 如果你的源时间属于全年无夏令时的山地时区（如亚利桑那州大部分区域），替换为"America/Phoenix"
   • 如果确实需要固定偏移的时间，可直接使用UTC-7这类明确的固定偏移写法，不要使用易混淆的缩写
2. set_time_zone 方法本身逻辑完全正确：它会保留同一个绝对时间点，按照目标时区的规则计算对应本地时间，无需额外修改。

修正后的可运行代码示例：

use DateTime;
use DateTime::Format::Strptime;

my $apptStartDateTime = "20210401100000";
my $formatter = DateTime::Format::Strptime->new(
    pattern   => "%Y%m%d%H%M%S",
    time_zone => "America/Denver" # 替换原有的MST缩写
);
my $dt_obj = $formatter->parse_datetime($apptStartDateTime);
# 输出源时区的本地时间：20210401100000，对应UTC时间为2021-04-01 16:00
print $dt_obj->strftime("%Y%m%d%H%M%S"), "\n";

# 转换到洛杉矶时区
$dt_obj->set_time_zone("America/Los_Angeles");
# 正确输出转换后的本地时间：20210401090000（夏令时期间两个时区差1小时）
print $dt_obj->strftime("%Y%m%d%H%M%S"), "\n";

只要使用完整的IANA时区标识符，DateTime及配套的时区数据模块会内置所有时区的历史、未来夏令时切换规则，可以自动完成夏令时的偏移计算，无需手动处理。
只有当你使用三字母缩写对应的静态固定偏移时区时，才不会自动适配夏令时切换。

内容的提问来源于stack exchange，提问作者Rakesh