Perl中修剪回车符(\r)的正则不生效问题咨询

核心原因 #

• 哈希键遍历的拷贝限制：Perl 中keys %$structure返回的是所有哈希键的副本，你对循环变量$key做的正则替换不会同步修改原哈希的键名，修改完的$key仅在当前循环上下文有效，原哈希仍然保留带\r的旧键。
• 键值修改逻辑错误：你将$key的\r移除后，再用处理后的$key去访问$structure->{$key}时，哈希中不存在这个无\r的键，因此哈希值的替换逻辑实际也没有生效。
• 正则匹配范围局限：s/\r?$//仅能匹配末尾0~1个\r，如果输入末尾存在多个\r、\r后跟随其他不可见字符，或者行尾是\r\n组合的情况，可能出现匹配不全的问题。

修复方案 #

你需要先读取旧键的值，处理完成后删除旧键，再将处理后的键值对插入哈希，示例代码如下：

foreach my $old_key (keys %$structure) {
    # 处理键尾的回车，支持批量清除多组回车/换行
    (my $new_key = $old_key) =~ s/[\r\n]+$//;
    # 处理值尾的回车
    my $new_val = $structure->{$old_key};
    $new_val =~ s/[\r\n]+$//;
    
    # 替换旧键值对
    delete $structure->{$old_key};
    $structure->{$new_key} = $new_val;
}

可选排查方案 #

如果替换仍不生效，可以先打印键的字符编码确认待清除字符是否为标准\r（ASCII 13）：
printf "Key hex code: %vX\n", $old_key;
如果输出包含0D则为标准\r，如果是其他编码值可以针对性调整正则匹配规则。

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