Perl正则表达式匹配具有特殊字符的字符串

时间:2011-03-25 13:17:35

标签: regex perl

我有一个子字符串列表,我需要在URL字符串列表中匹配。子串具有特殊字符,如'|','*',' - ','+'等。如果URL字符串包含该子字符串,我需要执行一些操作。但是现在让我们说我会在控制台中打印“TRUE”。

我首先从子串列表中读取并将其放入哈希值。然后,我尝试对每个URL执行整个列表的简单Regexp匹配,直到找到匹配项。代码是这样的。

open my $ADS, '<', $ad_file or die "can't open $ad_file";

while(<$ADS>) {
        chomp;

        $ads_list_hash{$lines} = $_;
        $lines ++;
 }  

close $ADS;

open my $IN, '<', $inputfile or die "can't open $inputfile";      
my $first_line = <$IN>;

while(<$IN>) {      
       chomp;       

       my @hhfile = split /,/;       
       for my $count (0 .. $lines) {

            if($hhfile[9] =~ /$ads_list_hash{$count}/) {
                print "$hhfile[9]\t$ads_list_hash{$count}\n";

                print "TRUE !\n";
                last;
            }
       }

 }

 close $IN;

问题是子字符串有很多特殊字符,导致匹配$hhfile[9] =~ /$ads_list_hash{$count}/出错。很少有例子;

+adverts/
.to/ad.php|
/addyn|*|adtech;

我在这些行中出现错误,基本上说“量词在regexp中没有任何内容”。我是否需要在regexp匹配语法中使用某些内容来避免这些?

1 个答案:

答案 0 :(得分:14)

您需要转义字符串中的特殊字符。

将字符串括在\Q\E之间将完成这项工作:

if($hhfile[9] =~ /\Q$ads_list_hash{$count}\E/) {