Perl处理数据：tr和y///

Posted 2021-01-06 f-ck-need-u

tr和y///是等价的。用来实现一一映射，但也有额外的功能，就像Linux下的tr命令一样。

用法：

tr/SEARCH/REPLACEMENT/cdsr
y/SEARCH/REPLACEMENT/cdsr

其中：
c：取search的补集，将search中未找到的字符全都替换成replacement的最后一个字符
d：删除search中出现的字符
s：压缩重复字符，仅仅只需要压缩不需要替换时，可将replacement指定为空
r：返回的不是替换成功的数量，而是替换成功后的内容，和s///的r修饰符是一样的

例如：

1.映射功能

将小写字母e替换为大写字母E。

$str="abcdef";
$str =~ y/e/E/;
print "$str
";

将小写字母全替换为大写字母。

$str="abcdef";
$str =~ y/[a-z]/[A-Z]/;
print "$str
";

如果对同一个字母指定不同的映射集，那么第一个映射将生效。

$str="aaa ddd eee fff";
$str =~ tr/aaa/xyz/;
print "$str
";   # 输出xxx ddd eee fff

2.使用r返回替换后的结果

该修饰符使得处理数据前会先拷贝一份数据，然后对副本数据进行操作，所以原始数据会保持不变。

$str="abcdef";
print $str =~ y/e/E/r;
print $str,"
";

所以，可以将r修饰符的操作结果赋值给其它变量。

$str="abcde";
$copy = $str =~ y/e/E/r;
print $copy,"
";
print $str,"
";

3.用s修饰符压缩字符

$str="abc    ddd eee    ffff";
print $str =~ tr/ //sr;

可以压缩换行符：

$str1="abc

ddd
eee    fff";
print $str1 =~ tr/
 //sr;

4.d修饰符删除search中有，但replacement中没有的字符

也就是保留replacement的字符，其余删掉。

例如，直接删除某些字符，不指定replacement，那么search中的字符都被删除。

$str="abc ddd eee fff";
$str =~ y/de//d;
print qq("$str");   # 输出："abc   fff"

$str="abc ddd eee fff";
$str =~ y/de/e/d;      # e被保留
print qq("$str");

关于d修饰符，有些复杂。如果search部分指定的不是精确的字符，那么被编译时就不知道是哪些字符需要查找，也就无法从replacement中找到哪些字符需要保留，从而replacement部分变得多余。

$str="abc ddd eee fff";
$str =~ y/[d-f]/e/d;    # e不会被保留
$str =~ y/[def]/e/d;    # e不会被保留
$str =~ y/[df]e/e/d;    # e不会被保留

5.c修饰符取补集，将search中未指定的字符全部替换为replacement中的最后一个字符

$str="aaa bbb ccc ddd";
print $str =~ y/ab/xy/cr;   # aaaybbbyyyyyyyy

注意上面，除了a和b外，全都替换成了y字符，x字符被忽略。

如果replacement比search长，则仍然是取replacement的最后一个字符作为替换字符。所以下面的等价：

y/ab/xy/c;
y/ab/zxy/c

所以，指定一个补集的替换字符即可。

如果同时指定了s修饰符，则补集替换后，再压缩。

$str="aaa bbb ccc ddd";
print $str =~ y/ab/xy/scr;   # aaaybbby

如果指定了d修饰符，则删除所有未在searchlist中的字符，也就是说replacement部分成了多余的：

$str="aaa bbb ccc ddd";
print $str =~ y/ab/xy/dcr;   # aaabbb

6.c和d修饰符一起用时，一个取search的补集保留search，一个删除search，如何处理？

perl的y///是保留search，但不作补集替换，也就是cd修饰符各生效一部分。也因此，replacement部分是多余的。

$str="abc ddd eee fff";
$str =~ y/df/x/cd;
print qq("$str");   # 返回：dddfff