perl（一）

1.关于s/ / /g

定义字符串$str

如需去掉$str中的/* */之间的内容

$tr =~ s*.*/*///g

但如果中间有回车

需要这样处理

$str =~s*(.|/s)+?/*g ;

 

2.关于m//

我想取得$str中<title> </title>中间的内容

$str =~ m/<title>.*<//title>/;

 

如果带有回车

 

we need

 

$str =~ m/<title>(.*?)<//title>/s;