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

Question

我有我需要在 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;

我在这样的行中得到一个错误，它基本上说“量词在正则表达式中没有任何内容”。我是否需要更改正则表达式匹配语法中的某些内容以避免这些？

Answer 1

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

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

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