程嶏清单8-9.txt

< linux网络编程工具>>配套源码

$_ =  "how are you";
$count = tr /ho/oh/;    # $_现在成为 "ohw are yhu"，$count为3
print " The string now is : $_,the character number of replace is :$count\n ";
tr /abcde/ABCDE/;    # $_现在成为 "ohw ARE yhu"
print " The string now is : $_,the character number of replace is :$count\n ";
tr /a-z/A-Z/;    # $_现在成为 "OHW ARE YHU"
print " The string now is : $_,the character number of replace is :$count\n ";