Perl中如何匹配恰好包含3个斜杠的字符串

我来帮你解决这个问题！你之前的正则没生效主要是没抓住「恰好3个斜杠」的核心要求，咱们先看看之前的问题出在哪：

你之前正则的问题分析 #

• $string =~ /^/{3}/：这个写法本身语法就有问题（正则分隔符/需要转义成\/），而且逻辑错误——它是在匹配字符串开头连续3个斜杠，而不是整个字符串里总共3个斜杠。
• $string =~ /^(\w+\/\w+\/\w+\/\w+)/：这个正则要求字符串必须是「单词字符+斜杠」重复三次后接单词字符，不仅限制了字符串只能由单词字符组成（如果有非单词字符就匹配失败），而且没有限制字符串结尾不能有更多斜杠，比如有4个斜杠的字符串也会被匹配到开头部分。
• $string =~ /^(.*\/.*\/.*\/.*)/：这个正则匹配的是至少包含3个斜杠的字符串，因为.*可以包含额外的斜杠，所以有4个、5个斜杠的字符串也会被误匹配。

正确的两种实现方法 #

方法1：精准正则匹配 #

用正则直接约束整个字符串恰好有3个斜杠，正则的逻辑是：从开头到结尾，只能出现3次斜杠，其余都是非斜杠字符。代码如下：

my @array = qw( abc/ab1/abc/abc a2/b1/c3/d4/ee w/5/a s/t );
foreach my $string (@array){
    if ( $string =~ /^[^\/]*\/[^\/]*\/[^\/]*\/[^\/]*$/ ){
        print " yes, word with exactly 3 / found !\n";
        print "$string\n";
    } else {
        print " no word contain exactly 3 / found\n";
    }
}

解释一下正则：

• ^：匹配字符串开头
• [^\/]*：匹配0个或多个非斜杠字符
• \/：匹配一个斜杠（必须转义，否则会被当成正则分隔符）
• 重复「非斜杠+斜杠」三次，最后接「非斜杠字符+结尾$」，确保整个字符串里只有3个斜杠。

方法2：统计斜杠数量（更直观） #

如果觉得正则写起来麻烦，也可以先统计字符串中斜杠的总数，再判断是否等于3，这种方法可读性更强：

my @array = qw( abc/ab1/abc/abc a2/b1/c3/d4/ee w/5/a s/t );
foreach my $string (@array){
    my $slash_count = () = $string =~ /\//g; # 全局匹配斜杠，返回匹配次数
    if ( $slash_count == 3 ){
        print " yes, word with exactly 3 / found !\n";
        print "$string\n";
    } else {
        print " no word contain exactly 3 / found\n";
    }
}

这里() = $string =~ /\//g是Perl里的小技巧：把全局匹配的结果赋值给空列表，列表的长度就是匹配到的斜杠数量。

运行上面任意一段代码，都会正确匹配到abc/ab1/abc/abc（3个斜杠），而排除有4个斜杠的a2/b1/c3/d4/ee、2个斜杠的w/5/a和1个斜杠的s/t。

内容的提问来源于stack exchange，提问作者Tim