perl正则表达式perl正则表达式怎么匹配多行？

perl 中正则表达式/^(.*[/])([^/]+)$/是何意?

首尾两个/是正则的界定符，表示这个部分是正则表达式。

第一个^，表示行首

(.*[\/])是一个组，拆开来看

.表示任意一个字符

*表示前面的匹配规则出现任意次数（也可以没有）

[\/]是一个字符集匹配，\表示，/表示/，因为这两个字符是需要转译的。

字符集匹配就是说这个中括号里的所有字当中任意匹配一个。

([^\/]+)还是一个组，展开看。

[^\/]是一个字符集否定匹配（^符号决定），就是说这个中括号里除了^之外的那些字符中任意匹配一个

+表示前面的匹配规则出现1次或更多

$表示行尾。

perl中的正则表达式 $tmp_times =~ s/..*$//;

这个不是匹配，是正则表达式的替换。

s///是替换的意思。

这个是把.和.后面的任意个任意字符全部替换成空。

例如： 替换前： ==> 替换后 aaa.abc ==>aaa lalala... ==>lalala didi. ==>didi

perl正则表达式怎么匹配多行？

如果内容在文件中，那么这样读文件就可以把文件读到一个标量中： local?$/; my?$data?=?; print?$1?if?$data?=~?/Administrative?Contact,?Technical?Contact: .+s+(S+@S+) /;如果内容在数组中，那么： for?(my?$i?=?0;?$i??0?and?$data[$i-1]?=~?/Administrative?Contact,?Technical?Contact:$/?and?$data[$i]?=~?/s+(S+@S+)$)/)?{ ????????print?$1; ????????last; ????} }