求助：Perl实现字符串指定字符第8位置位及全局复位

原代码存在的问题 #

• 正则表达式错误：/A-I/会匹配字符串"A-I"，而非A到I的单个字符，正确范围匹配应为/[A-I]/。
• Map返回值缺失：第一个map块仅在字符匹配时执行比特置位，但未返回不匹配的字符，导致这些字符被丢弃。
• 复位逻辑不严谨：第二个map直接对所有字符复位第8位，未先判断该位是否已置位，不符合需求。

修复后的完整代码 #

$s = '@ABCDEFGHIJKLMNOPQRS';

# 操作1：将A-I的第8位比特置位（转为0xC1~0xC9）
$s1 = join "", map {
    $_ |= 0x80 if /[A-I]/;
    $_; # 确保所有字符都被返回，避免丢失
} split //, $s;

# 操作2：将第8位已置位的字符复位该位
$s2 = join "", map {
    $_ &= ~0x80 if ord($_) & 0x80; # 先检查第8位是否置位，再执行复位
    $_;
} split //, $s1;

# 输出结果验证
print "原字符串: $s\n";
print "操作1后: $s1\n";
print "操作2后: $s2\n";

关键修改说明 #

1. 正则修正：用[A-I]正确匹配A到I的单个字符，确保仅目标字符被修改。
2. Map返回值保证：在每个map块末尾显式返回$_，无论是否执行比特操作，都保留原字符，避免字符串内容丢失。
3. 复位条件判断：通过ord($_) & 0x80检查字符的第8位是否为1，仅对符合条件的字符执行复位操作，严格贴合需求。

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