Perl正则匹配仅含大括号的行失败，求助排查原因

核心问题 #

你的Perl代码正则匹配失败，主要有两个原因：

• 换行符干扰：从文件读取的行通常带有末尾的换行符（\n），而你的正则里[[:blank:]]*$仅匹配空格、制表符这类水平空白，无法覆盖换行符，导致正则无法匹配完整行。但grep -P模式中，$默认匹配换行符前的行尾位置，所以测试时能正常匹配。
• 正则冗余：正则里的正向环视(?={)完全多余，既增加了复杂度，也可能因匹配逻辑的冗余引发意外问题。

修复方案 #

方案1：先移除换行符（推荐） #

在处理每行前用chomp去掉末尾的换行符，再用简化后的正则匹配：

for my $f_line (@file_lines) {
    chomp $f_line; # 移除行尾换行符
    my $opening_brace;
    # 简化正则：匹配行首空白 + { + 行尾空白
    if ($f_line =~ /^[[:blank:]]*({[[:blank:]]*)$/) {
        $opening_brace = $1;
        print "opening brace : $opening_brace \n";
    }
}

方案2：修改正则兼容换行符 #

如果不想修改行内容，可调整正则，用\s*匹配所有空白字符（包括换行）：

for my $f_line (@file_lines) {
    my $opening_brace;
    if ($f_line =~ /^[[:blank:]]*({[[:blank:]]*)\s*$/) {
        $opening_brace = $1;
        print "opening brace : $opening_brace \n";
    }
}

额外优化点 #

• 不需要用数组@opening_brace存储匹配结果，用标量变量更合适，避免不必要的数组拆分行为。
• 若仅需判断行是否符合条件（无需捕获{及后续空白），可进一步简化正则为/^\s*\{\s*$/，直接用于条件判断。

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