perl 正则表达式和循环问题

Question

#!/usr/bin/perl -w
use strict;
my %difpep;
open DIF,"<","1689" or die "Fail to open 1689:$!";
open MAS,"<","mascot" or die "Fail to open mascot:$!";
open RES,">","result2" or die "Cannot open result:$!";
while(<MAS>){
chomp;
$difpep{$_}++;
}
while(<DIF>){
chomp;
my $mas=$_;
foreach my $dif (keys %difpep){
print RES "$dif\t$mas\n" if ($dif =~ m/$mas/);
}
}
close MAS;
close DIF;
close RES;

这个程序可以正常运行，但 如果将 if ($dif =~ m/$mas/)这句改为 if ($mas=~ m/$dif/)就不能正常运行了，好长时间也运行不完， 这是为什么呢？谢谢！

Answer 1

只能说, 一般我们在 regex 中要用上变数时, 会写成
$x =~ /\Q$var\E/ ;

因为, 如果 $var 是 "abcdef" 那是没问题的.
perl 将这句解读为 $var =~ /abcdef/;

但如果, $var 是 "abc[d]ef" 那里面, 那问题就有机会来了
perl 会不可预期地将你的字串先演译, 再拿去做配对
甚至有机会将你的字串变成"可执行"的一部份.

试试以下代码:
$s1 = 'a[b]c';
$s2 = 'a[b]';
print "match1" if ( $s1 =~ /$s2/ ) ;
print "match2" if ( $s1 =~ /\Q$s2\E/ ) ;

但我看不出甚麼原因你的程序怎麼会跑得特别长, 因为"要跑的圈"都是一样的长.

追问

谢谢你！学习了！！
我目前也没找到运行时间长的原因，改完后可以运行，就是时间比不改之前长了好多。

追答

重新再看你的问题... 我想我也不明白为甚麼你要
将 " if ($dif =~ m/$mas/)这句改为 if ($mas=~ m/$dif/)"

当你写成 if ($dif =~ m/$mas/)
那意味著, $dif 是长的, $mas 是短的
就像 if ( "123456" =~ /123/ ) { ... }
但返过来就成了 if ( "123" =~ /123456/ ) { ... }
那.. 应该甚麼都不能匹配出来啊 ?!

Answer 2

按说这样修改是没有问题的，只影响输出的内容多少，可以用-D调试，输出到屏幕查看过程，不会出现死循环的。

Answer 3

$mas包含于$dif但$dif未必包含于$mas

Answer 4

空格 ，加个chomp（）试试