apile请进，@c=$a=~/$b/g如果$a里有.或者*，结果就不对了

house1

apile请进，@c=$a=~/$b/g如果$a里有.或者*，结果就不对了，怎么办

谢谢

apile

1不可能...你的代碼可能有問題..

1. 
   
2. #!/usr/bin/perl
   
3. $a="123a.1213*b123c.123*d";
   
4. $b="123";
   
5. @match =$a=~/$b/g;
   
6. print "match :".@match."\n";
   

复制代码

白水

如果 $b是.或者*结果就不对了
你看，
如果是.结果是21
如果是*结果是/*/: ?+*{} follows nothing in regexp at 3 line 4.

#!/usr/bin/perl
$a="123a.1213*b123c.123*d";
$b="."; #或者$b="*";
@match =$a=~/$b/g;
print "match :".@match."\n";

白水

或者含有.或*，结果也不对

比如，如果是判断有几个“12.”结果是4个，实际应该是0

怎么改呢？？？

deathcult

要转义啊，特殊符号。

deathcult

$b = "\\.";
or
$b = "\\*";

lgjut

$a="123a.1213*b123c.123*d";
$b=".";
@match =$a=~/\Q$b/g;
print "match :".@match."\n";

$b= quotemeta $b;
@match =$a=~/$b/g;
print "match :".@match."\n";

deathcult

1. 
   
2. $a = "fd*axxfdxajfxpo2x*fj*i3x*(2-jf*x83-2jf32";
   
3. $b = "\\*";
   
4. 
   
5. 
   
6. print scalar split(/$b/, $a) - 1;
   

复制代码

白水

成功！用\Q就可以了，呵呵！