2012-12-21 21:54
关于perl里的 tr///
可以参考这篇博客：
http://www.cnblogs.com/blueicely/archive/2012/12/13/2816371.html
-----------------------------------------------------------------------------------------------------------------------
接来看看tr 的选项，tr 只有三个选项，英文是perldoc 的说明，我把他的意思用我的话写出来：
c Complement the SEARCHLIST. <==清单没写到的就补给他右边清单的最后一个字元
d Delete found but unreplaced characters. <== 对照表中没有的项目就删掉
s Squash duplicate replaced characters. <== 连续重覆出现的字压成一个
来看看范例：
my $text= ' good cheese '; $text=~ tr/eo/eu/s; print " $text\n ";
# 结果gud chese ，
连续重覆出现的字已被压成一个
my $big= ' vowels are useful '; $big=~ tr/aeiou/AEI/d;
# 注意看对照表左边只有三个字母，所以如果遇到ou，就会被删掉print "$big\n";
# 结果vwEls ArE sEfl 合并以上两个参数
my $text= ' good cheese '; $text=~ tr/eogd/eu/ds;
# 写成ds 或sd 都可以，顺序不重要print "$text\n";
#结果u chese
最后来看c这个选项，c较复杂不易懂，大致以我的大脑所知的说明如下： tr/左清单/右清单/ c 规则、左清单没有的，就补右清单的东西。
my $text= ' good cheese '; $text=~ tr/eo/_/c;
#注意看对照表右边只有二个字母，只要右边清单没列到的就补'_'，包括空白print "$text\n";
# 结果_oo____ee_e
如果右清单写了不只一个呢？会怎样？其实补的时候还是只会拿右清单的最后一个
$doc= " <78>Nov 3 11:20:01 163.17.44.1 crond[30367] "; $doc=~ y/a-zA-Z/az/c;
# 结果不是英文全都补了右清单的最后一个字元'z'
$doc= zzzzzNovzzzzzzzzzzzzzzzzzzzzzzzzzcrondzzzzzzz
