perl中tr的用法(转载)

Posted ^-馒头-^

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl中tr的用法(转载)相关的知识,希望对你有一定的参考价值。

转载:http://blog.sina.com.cn/s/blog_4a0824490101hncz.html

(1)/c表示把匹配不上的字符进行替换.

$temp="AAAABCDEF";

$count=$temp=~tr/A/H/c;

print "$temp\t$count\n";

结果:AAAAHHHHH 5

(2)/d:表示把匹配上的字符全部替换

$temp="AAAABCDEF";

$count=$temp=~tr/A/H/d;

print "$temp\t$count\n";

结果:HHHHBCDEF 4

(3)/s:表示如果要替换的字符中出现连续多个一样的字符,则去冗余:

$temp="AAAABCDEF";

$count=$temp=~tr/A/H/ds;

print "$temp\t$count\n";

结果:HBCDEF 4

$temp="AAAABCDEF";

$count=$temp=~tr/A/H/cs;

print "$temp\t$count\n";

结果:AAAAH 5

=============================================================

另外,我再总结一下tr的用处:

$count=$temp=~tr/A//; #表示计算$temp中出现A的次数,$temp并不改变值

$count=$temp=~tr/A/A/; #表示计算$temp中出现A的次数,$temp并不改变值 和上面的意思一样的


$temp="AAAABCDEF";

$count=$temp=~tr/[A-Z]/[a-z]/; #表示进行大小写转换

print "$temp\t$count\n";

结果:aaaabcdef 9 
如果写成$count=$temp=~tr/[A-Z]/[A-Z]/; 则$temp不会改变,仅统计$temp里面大写字母的个数
结果:AAAABCDEF 9

以上是关于perl中tr的用法(转载)的主要内容,如果未能解决你的问题,请参考以下文章

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

perl中数组的序列化用法

关于perl bignum模块用法

Perl命令行常见用法及技巧

tr的用法

perl中数组的序列化用法