在Perl中使用/ c修饰符的奇数tr ///操作符行为

Question

/c修饰符在我不明白的地方做了些什么。我想知道为什么下面的代码会打印“abc3333”？

#!/usr/bin/perl 
$x = 'abcdefg'; 
$x =~ tr/abc/123/c; 
print $x; 

Answer 1

/c导致搜索列表被补充;即搜索列出的每个字符而不是。

假设你只有在范围\0-\xff字符，这样的：

tr/abc/123/c 

是相同的：

tr/\0-\x60\x64-\xff/123/ 

和更换名单的最后一个字符需要被重复多次以匹配搜索列表中的字符数（不使用/ d时）。因此，“\ 0”变成“1”，“\ 1”变成“2”，“a”，“b”或“c”不变，其他任何字符变为“3”。

用/ c指定替换列表是相当不寻常的;通常/ C是只用于计数：

tr/abc//C# returns number of non-abc characters; string is unchanged 

或删除：

tr/0-9//cd # delete all non-digits 

Answer 2

的/c修改会影响该列表中的字符补充。它主要与/d修饰符一起使用，以删除给定的一组字符以外的所有字符。

my $string = 'ABCdef123'; 
$string =~ tr/a-z//cd; 
print $string; 

输出

def 

Answer 3

/c通常用于修改/d

tr/...//d; # Delete every matching char. 
tr/...//cd; # Delete every char that doesn't match. 

或用于计数。

tr/...//; # Returns number of matching chars. 
tr/...//c; # Returns number of chars that don't match. 

我不能想出它的有用例如与非空替换集，但它是简单的解释：它只是使用了互补，搜索组。该替换的一组的最后一个字符用于字符记住a，b和c是字符0x61，0X62和0x63保持，

tr/abc/123/c; 

因此相当于

tr/\x00-\x60\x64-\x{FFFFFFFFF}/123/;   # Perl with 32bit ints 
    or 
tr/\x00-\x60\x64-\x{FFFFFFFFFFFFFFFFFF}/123/; # Perl with 64bit ints 

铭记在搜索集中没有相应的字符，

• "\x00"变成1
• "\x01"变成2
• 其他所有匹配的成为3。

此行为与tr///所基于的tr命令行工具完全一致。我不确定如果没有/d，/c可能永远不会有用，但也许是tr命令行工具已超过tr///（如字符类）的额外功能。