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";

結果：aaaabcdef9  如果寫成$count=$temp=~tr/[A-Z]/[A-Z]/; 則$temp不會改變，僅統計$temp裡面大寫字母的個數 結果：AAAABCDEF9

perl中tr的用法（轉載）