关于正则表达式的两个问题

david_95

1， 正则表达pattern 可以使用用变量， 但是如果变量中含有特殊字符（比如 [ . * \ ...），该怎么办？

比如我想搜索字符串$str 是否有 [  , 我写以下程序， 第一个if block 就没有生效，只有第二个查出了

sub testReg2{
        my $str="sdfsff\s[sdfsdf";
        my $mat="[";

        # this if block not work as expected
        if($str=~m/\$mat/g){
                print "find out with variable \n";
        }
        # this if block work
        if($str=~m/\[/g){
                print "find out with constant\n";
        }
}

2。 正则表达式 .  代表任意字符， 我想搜索3个字符的全排列， 写了以下程序，但是它没有全组合（用全组合不恰当，应该是依次排列的3个字符串），只是从第一个字符开始，依次找到3个字符
我想 bcd  cde ...igj 也应该是符合表达式的，为啥没找出呢？ 我要怎么写才能用正则匹配写出 全部依次排列的3个字符串 呢？

sub testReg{
        my $str="abcdefghigj";
        my @tsr=$str=~/.../g;
        print "@tsr \n";
}
以上程序输出  abc def ghi

xiaoxingan99

1.用if($str=~m/\Q$mat\E/g)
2.点号是匹配所有，所以首先会把a匹配到
至于你说的匹配全部的，是不是需要循环啊？

substr函数

回复 1# david_95

但是如果变量中含有特殊字符（比如 [ . * \ ...），该怎么办？

my $a.b = 6;
my $bx* = 2;
是么

david_95

回复 2# xiaoxingan99


谢谢啊，答案1 果然好使。 问题2 ，该怎么循环呢？

david_95

我遇到一个奇葩的事，就是下面代码
        my $str="sdfsff/s[sdfsdf";
        my $mat="[";

        if($str=~/\Q$mat\E/g){        print "xx\n";        }

        if($str=~/sf/g){                print "yy\n";        }

只会输出第一个if block ， 如果把第一个 if block 注释掉，第二个就work，输出  yy . 如果两个一起运行， 只输出 xx 第二个if block 不运行了， 这是什么灵异事件?
我以为perl 装的有问题，试了3个机器，都是这样，你们试试

xiaoxingan99

我试了也是这样，不过不懂为啥，好像是[的匹配引起的，等待高手吧！

substr函数

回复 6# xiaoxingan99
我试了也是这样
脑子转也转不动了
   

david_95

我猜测是Perl 的一个bug , 搜了一个这样的文档： zhidao.baidu.com/question/52187484.html。 只有靠高人了。先不管它。
请大家考虑一下第二个问题。
另外我从第二个问题联想到又一个问题： perl 正则如何从指定位置开始匹配查询？

xiaoxingan99

你说的是 substr()这个函数吧？

david_95

回复 9# xiaoxingan99


除了这个节字符串，还有别的办法吗？