perl正则表达式---请问这个perl的正则表达式~ s/[ ]*//g

怎么用正则表达式匹配perl的多行注释？

数据： #A。

。

。

。

。

。

。

。

#。

。

。

。

。

。

。

。

#。

。

。

。

。

。

。

。

。

。

。

#。

。

。

。

。

。

。

。

B if(/^#A.*B/s){ ... } tip: /s可以使.匹配任意字符，包括换行符

perl中正则表达式怎么查找？

x[^xes]+e 对于一般情况没有问题， 如果 x***,12e 有标点，没有空格的就会有问题 可以用 x[a-df-wyz0-9]+e 更精确些

为什么说perl的正则表达式功能比Python强大

最大的分别就是.. 速度! 从各种的测试都显示, perl 的正则处理依然是最快的 (不只比 python) , 下面的实测可以去看看 ?斜?doku.php?id=programming%3ageneral%3aphpvspythonvsperl其实 perl 本来就是正则的鼻祖, 它最初的开发的原意很大程度也是为了正则 至於为甚麼比 python 快其实不难想像 1. Perl 不是 OO 语言(虽然有 OO 的玩法), 所以用到正则时, 正接就开始跑, 不用继承一堆有的没的属性和方法. 至於 python 还要先把字串pile 了做一个物件, 才开始做正则, 在底层自然又多了一重功夫 2. Python 的正则要靠模块来完成, Perl 的正则却已在 perl 解释器的心脏里, 谁会起动的更快就很明显了. 当然, 除了 C Python 还算最快之外, 其他如 JPython, Iron Python 这些要靠 framework 来起动的就必然更慢了 另外就是... 连击和助攻, perl 的正则很可以直接当成 expression (=~ 和 !~ ) 来用, 如: use?utf8; $wantId?=?"陈大文"; die?"帐号不能用奇怪字符"?unless?$wantId?=~?/^[wd]+$/?; #或者? %user?=?(? ????1?=>?{?Name?=>?"王子"?},? ????2?=>?{?Name?=>?"小王子"?}? ????3?=>?{?Name?=>?"王妹"?}?); @姓王的?=?grep?{?$user{$_}{Name}?=~?/^王/?}?keys?%user;? #?@姓王的?=?(?1,?3) #?又或者 %mask?=?(?1?=>?"M",?2?=>?"X",?3?=>?"B"?); $password?=?"321";?#普通密码 $maskedPw?=?undef;?#加密密码 $password?=~?s/(.)/$maskPw?.=?$mask($1)/eg;? #?maskedPw?=?"BXM"上面几例, 试问用 python 要写多少行才做到用样的效果呢.. 不过, 这多少语言层次的问题, 姑且另作别论了.

perl 怎么用正则匹配特殊字符字符

比如你要匹配 * 号，但是在正则里面*有自己的意思，所以在前面加个 就行啦 exp: $a="abc*def"; if(a=~/abc*def/)

大家好，我是个perl初学者。各位大神，帮我看看下面这个正则表达式该怎么写？

open IN, "file.txt" or die "$! file.txt"; my $nl = $/; $/ = $/.$/; while ( my $line = <IN> ) { my ( $ohm1, $ohm2 ) ; my @line = split /$nl/, $line; $line[2] =~ /^s{0,}([d.]+)/; $ohm1 = $1; $line[3] =~ /^s{0,}([d.]+)/; $ohm2 = $1; print "$ohm1 - $ohm2$nl"; } $/ = $nl; close IN;

---请问这个perl的正则表达式~ s/[ ]*//g

$AAA =~ s/[ ]*//g =~s/A/B/g 在模式匹配是 替换，就是将内容A替换成内容B，后面的g是全局，就是全部替换成。

[ AB ]出现在中括号的是任意的其中一个， 是换行符 ，[ ]* *号是0个或以上 总起来： 将$AAA中的所有的换行符全部替换为空，也就是将所有换行去掉。