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

Posted f-ck-need-u

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl处理数据:tr和y///相关的知识,希望对你有一定的参考价值。

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

以上是关于Perl处理数据:tr和y///的主要内容,如果未能解决你的问题,请参考以下文章

perl编程:正则匹配

perl中的队列

hash 在 perl 中的用法(转载)

算法总结数据结构

PowerShell tr​​y/catch/finally

perl中tr的用法(转载)