真心请问，perl里面怎么把正则表达式当参数传进来

真心请教，perl里面如何把正则表达式当参数传进来？
如下面描述：

Perl code

    my value="test-123";    open( OUTPUT_FILE, "c:\\Testfile" ) or die "cant open file";    while (<OUTPUT_FILE>) {        $line = $_;        if ( $value =~ $line ) {            print "matching";        }    }    close(OUTPUT_FILE);

这个$line是正则，存在Testfile里，写出来就是
/Test-(\d+)/i && $1 == 123

我发现如果直接写表达式上去，可以打出‘matching’，但如果通过文件读出来的，这种把正则表达式当参数传进来，就不行了。debug时发现Perl给每个变量加了个单引号。

[解决办法]
'/Test-(\d+)/i && $1 == 123'本身作为一个正则表达式了，而不是把'Test-(\d+)'作为正则表达式。
[解决办法]
换个思路做吧，
表达式部分放到脚本中，
正则部分可以放到另外一个文本，可以这样
while(<FH<){
chomp;
my $re=qr/$_/;
if($value =~ /$re/){
...}
}
[解决办法]

Perl code

    my value="test-123";    open( OUTPUT_FILE, "c:\\Testfile" ) or die "cant open file";    while (<OUTPUT_FILE>) {        $line = $_;        $expr="'$value'=~$line";        if ( eval($expr) ) {#你是想这样？            print "matching";        }    }    close(OUTPUT_FILE); 

 

查看更多 下一篇