真心请问，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);

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

相关推荐