Perl脚本无法运行，附代码与报错信息求排查修复

核心错误点及修复： #

• 未声明变量：use strict要求所有变量必须用my声明，所有@fields都缺少my前缀，需改为my @fields = split(/:/, $row);。
• 语法错误（缺少大括号）：Perl中if语句后续代码若不在同一行，必须用大括号{}包裹，原代码中多个if块因缺少大括号触发语法报错。
• Perl无NULL关键字：判断空值应使用!defined($fields[7])或$fields[7] eq ''，原代码中的NULL会被当作普通字符串处理，不符合预期逻辑。
• 多余右大括号：第二个while循环末尾多了一个}，导致括号不匹配，直接删除即可。
• 文件句柄读取后指针不重置：四个while循环依次读取文件时，第一个循环读完后文件指针已到末尾，后续循环无法读取内容。可通过每次重新打开文件，或用seek($fh, 0, 0)重置指针解决。
• 不存在replace函数：Perl中字符串替换用s///操作符，原代码的replace属于错误用法；若仅需输出$fields[1]直接打印即可，若要替换内容需改为s/旧内容/新内容/格式。
• 重复声明变量：因括号不匹配导致的$row重复声明问题，修复括号后自动解决。

修复后的完整代码 #

use strict;
use warnings;

my $filename = 'data.txt';

# 需求1：输出fields[7]为?或未定义的行
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {                
  chomp $row;
  my @fields = split(/:/, $row);
  if($fields[7] eq "?" || !defined($fields[7])) {
    print "$row\n";
  }
}
close $fh;

# 需求2：处理并输出fields[1]（示例为直接输出，需替换可修改s///语句）
open($fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {             
  chomp $row;
  my @fields = split(/:/, $row);
  # 若需替换内容，示例：my $replaced = $fields[1]; $replaced =~ s/旧值/新值/g;
  my $replaced = $fields[1];
  print "fields[1]: $replaced\n";
}
close $fh;

# 需求3：输出fields[2]包含-的行
open($fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {                
  chomp $row;
  my @fields = split(/:/, $row);
  if (index($fields[2], "-") != -1) {        
    print "$row\n";
  }
}
close $fh;

# 需求4：输出fields[7]为Voyager2的行
open($fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {                
  chomp $row;
  my @fields = split(/:/, $row);
  if($fields[7] eq "Voyager2") {        
    print "$row\n";
  }
}
close $fh;

额外优化建议 #

若不想重复打开文件，可一次性读取所有行到数组，再遍历数组处理所有需求，效率更高：

use strict;
use warnings;

my $filename = 'data.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";
my @lines = <$fh>;
close $fh;

foreach my $row (@lines) {
  chomp $row;
  my @fields = split(/:/, $row);
  
  # 需求1
  if($fields[7] eq "?" || !defined($fields[7])) {
    print "$row\n";
  }
  
  # 需求2
  my $replaced = $fields[1];
  print "fields[1]: $replaced\n";
  
  # 需求3
  if (index($fields[2], "-") != -1) {        
    print "$row\n";
  }
  
  # 需求4
  if($fields[7] eq "Voyager2") {        
    print "$row\n";
  }
}

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