Perl中使用tr替换但忽略前两个字符的实现方法

可以通过以下几种方式实现仅替换字符串从第三个字符开始的内容：

方法一：拆分字符串后处理（直观易懂） #

拆分出前两个字符和剩余部分，单独对剩余部分执行替换后再拼接：

my $foo = '101100';
my $first_two = substr($foo, 0, 2);  # 获取前两个字符 '10'
my $rest = substr($foo, 2);          # 获取从第三个字符开始的部分 '1100'
$rest =~ tr/10/ab/;                  # 替换剩余部分的1→a、0→b，得到 'aabb'
$foo = $first_two . $rest;           # 拼接结果为 '10aabb'

方法二：正则表达式结合e修饰符 #

利用正则捕获前两个字符和剩余部分，通过e修饰符在替换时对剩余部分执行转换：

my $foo = '101100';
$foo =~ s/^(.{2})(.*)/$1 . do{ my $s = $2; $s =~ tr/10/ab/; $s }/e;

这里e修饰符允许替换部分是Perl代码，我们在代码块中对捕获的剩余部分执行tr转换后返回结果。

方法三：直接操作子字符串（最简洁） #

Perl中substr可以作为左值使用，直接对从第三个字符开始的子字符串执行tr替换：

my $foo = '101100';
(substr $foo, 2) =~ tr/10/ab/;  # 直接修改原字符串的子部分，结果为 '10aabb'

这种方式无需额外变量，一步完成修改，是最简洁的实现方式。

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