Perl中子串搜索使用||结果异常，是否属于语法禁止范畴？

问题根因 #

问题本质是你在使用正则匹配字面量子串时，没有对正则元字符做转义处理。
|是Perl正则中表示或逻辑的元字符，你直接传入||作为匹配规则时，/||/g的含义等价于「匹配空串或匹配空串」，本质就是匹配字符串中所有零宽的空位置（包括每个字符的间隙、字符串首尾位置），所以最终统计出30个匹配结果。&&能得到正确结果是因为&不属于Perl正则元字符，会被默认当成普通字符处理。

解决方案 #

有两种常用的修复方式：

• 方式一：传入搜索子串时手动转义元字符，把||改成转义后的\\|\\|：
  调用时修改为 my $nb_or = findSymbols($line, "\\|\\|"); 即可，该方式需要自行确认子串中所有的元字符都被正确转义，灵活度较低。
• 方式二：修改findSymbols匹配逻辑，用\Q标记强制正则将匹配内容视为普通字面量，该方式更通用，无需手动处理元字符：
  将函数中的匹配行修改为 my $n = () = ($_[0] =~ m/\Q$_[1]/g); 即可，\Q会自动转义后续内容中的所有正则元字符，适配任意字面量子串的搜索需求。

修复后完整代码 #

#!/usr/bin/perl
use strict;
use warnings;

my $line = "this && is || a test if && ||";

my $nb_if = findSymbols($line, "if ");
my $nb_and = findSymbols($line, "&&");
my $nb_or = findSymbols($line, "||");

print "\nThe result for this func is $nb_if=if , $nb_and=and, $nb_or=or\n";

sub findSymbols {
    my $n = () = ($_[0] =~ m/\Q$_[1]/g);
    return $n;
}

运行上述代码即可得到预期输出：
The result for this func is 1=if , 2=and, 2=or

内容的提问来源于stack exchange，提问作者Enzo.R