使用正则表达式常用的三个字符串运算符

在使用正则表达式的时候,经常需要用下列三个字符串处理运算符:
1,模式匹配运算符m:/patten/
2,替换运算符:s/oldstr/newstr/
3,转换运算符:tr/oldchr/newchr/

1,m//运算符:
默认情况下,m//尝试匹配指定的模式和$_中的文本,例如:
/home/lee#perl -e 'while(<>){ if (m/^exit$/i){ print "Found!\n";exit}}'
exitt
abc
exit
Found!
/home/lee#
循环读入标准输入,当完整匹配exit这个单词时,显示信息并退出

/home/lee#echo "abc aBc 123\nabc abc 2434"|\
> perl -ne 'print if(/\b[\d]\b/)'
abc aBc 123
找出含有连续3个数字的行
和其他的perl运算符一样,定界符是可以任意指定的,如果使用非斜线(/)的\定界符,则m 是不可少的
/home/lee#perl -
$str="exit";
while(<>){ if(m#^$str$#){print "ok!\n";exit}
else {print "again!\n"}
};
__END__
123
again!
sdf
again!
wer
again!
exit
ok!
这里匹配模式的定界符用的是#,输入的数据与$str比较,如果一致则退出,否则循环!

2,s///运算符号:
常用于字符串的替换,例如:
/home/lee#perl -e '$text="123def";$text =~ s/123/abc/;print $text."\n"'
abcdef
这里将123替换成abc,其中 =~运算符号用来指定查找的字符串,用!~则是=~的否定

/home/lee#perl -e '$text="abcdabcd";$text=~s(abc)(ABC)g;print $text."\n"'
ABCdABCd
这里将abc全局替换成ABC,这里的定界符用的是括号 ^_^

3,tr///运算符:
tr///运算符用于将一个字符转换成另外一个字符,tr///默认使用$_变量,如:
/home/lee#perl -
while(<>){
if(m@^exit$@i){print "exit";exit}else};__END__
123
123
abc
Abc
cba
cbA
exit
exit
接受标准输入,将输入字符中的小写字符a转换成大写A

OK! continue .... ^_^

原文转自：http://www.ltesting.net