Perl脚本提取文件指定区域数据无输出问题求助

需求说明 #

在目标文件中定位到FINAL RESULTS标记后，查找所有Needed data条目，提取每个条目下前两行的数值并存入数组。示例文件内容如下：

some texts....
....

FINAL RESULTS

....
some texts

Needed data:   -25.684   -61.647   -20.061            #need this line
               -61.647    82.482   -15.683            #need this line
               -20.061   -15.683   -56.799            #DOES NOT need this line
Needed data:   -24.557   -48.468     2.592            #need this line
               -48.468    62.053    -6.742            #need this line
               -2.592    -6.742   -37.495             #DOES NOT need this line
Needed data:   -42.875  -101.901   -30.377            #need this line
               -101.901   134.323   -24.259           #need this line
               -30.377   -24.259   -91.448            #DOES NOT need this line

现有问题 #

编写的Perl脚本运行后无任何输出，代码如下：

my $in_sec;
    open(IN, "< t.in") or die;
    while (<IN>)
    {
      if    (/FINAL RESULTS/)     { $in_sec = 1; }
      elsif (/(?<!FINAL RESULTS):/) { $in_sec = 0; }

      if ($in_sec) {
        if(/Needed data/) {
         @a = split;
         print "@a\n";
         if ($_ = <IN>) {
            @b = split;
            print "@b\n";
         }
      }
     }
    }

问题排查与修复 #

核心问题点 #

1. 正则匹配逻辑错误：elsif (/(?<!FINAL RESULTS):/)这个负向断言完全不符合需求，它会匹配任何不带FINAL RESULTS前缀的冒号。而Needed data:行里的冒号会触发这个条件，导致$in_sec被设为0，后续的Needed data处理逻辑根本不会执行。
2. 无明确的区块退出规则：原脚本没有合理定义退出FINAL RESULTS处理区块的条件，误将普通内容里的冒号当成了区块结束标记。
3. 变量作用域不规范：@a和@b未声明作用域，属于不良编码习惯，虽不是无输出的直接原因，但可能引发其他问题。

修复后的代码 #

如果FINAL RESULTS之后的内容都需要处理直到文件结束，可使用以下修复版本；若有明确的区块结束标记，可自行添加对应判断：

use strict;
use warnings;

my $in_sec = 0;
my @results; # 存储提取的所有数值行

# 使用词法文件句柄，更安全
open(my $IN, "<", "t.in") or die "无法打开文件: $!";
while (my $line = <$IN>) {
    chomp $line;

    # 开启FINAL RESULTS区块
    if ($line =~ /FINAL RESULTS/) {
        $in_sec = 1;
        next;
    }
    # 若有明确结束标记，可在此添加：
    # elsif ($line =~ /END RESULTS/) {
    #     $in_sec = 0;
    #     next;
    # }

    # 不在目标区块则跳过
    next unless $in_sec;

    # 处理Needed data条目
    if ($line =~ /Needed data/) {
        # 提取当前行数值，移除"Needed data:"标签
        my @nums = split /\s+/, $line;
        shift @nums;
        push @results, \@nums;
        print join("\t", @nums), "\n";

        # 读取并处理下一行（第二个需要的行）
        my $next_line = <$IN>;
        if (defined $next_line) {
            chomp $next_line;
            my @next_nums = split /\s+/, $next_line;
            push @results, \@next_nums;
            print join("\t", @next_nums), "\n";
        }
    }
}
close $IN;

# 可在此对@results数组进行后续业务处理

修复说明 #

• 启用strict和warnings：强制规范变量声明，提前发现潜在语法或逻辑问题。
• 修正区块切换逻辑：移除错误的正则断言，只在遇到FINAL RESULTS时开启处理，避免误关闭区块。
• 使用词法文件句柄：替代旧式全局文件句柄，提升代码安全性和可维护性。
• 明确数值提取：跳过Needed data:标签，仅保留数值部分存入结果数组。
• 增强错误提示：打开文件时输出具体错误信息，便于排查文件访问问题。

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