如何使用Perl移除文件最后一行？求和遇空值问题求助

先给你把问题拆解清楚，一步步来修复：

首先，你的代码存在语法错误——chomp是用来处理字符串的，不能直接套在split的外面，而且括号也不匹配。先把这部分修正：

use List::Util qw(sum); # 别忘了导入sum函数，否则会报错！

while (<data>) {
    chomp($_);  # 先去掉当前行的换行符
    my @row = split ',' , $_ , -1;
    say sum @row[1 .. $#row];
}

接下来解决你提到的核心问题：

1. 末尾空值导致求和异常 #

出现空值的原因大概率是文件最后一行是空行（或只有换行符）。当读取到这行时，chomp后得到空字符串，split会生成全是空元素的数组，此时@row[1 .. $#row]是空列表，sum处理空列表就会返回空值。

你可以在处理前先跳过空行，同时清理拆分后数据的前后空格（比如数据里的 "B"这种带空格的项），再过滤非数字项避免无效求和：

use List::Util qw(sum);

open my $fh, '<', 'your_file.txt' or die "打不开文件: $!";

while (my $line = <$fh>) {
    chomp($line);
    next if $line =~ /^\s*$/; # 跳过空行（包括只含空白字符的行）
    
    my @row = split ',' , $line , -1;
    # 清理每个元素的前后空格
    @row = map { s/^\s+|\s+$//g; $_ } @row;
    
    # 只对数字格式的项求和，过滤掉非数字内容
    my $total = sum grep { /^-?\d+(\.\d+)?$/ } @row[1 .. $#row];
    # 如果求和结果为空，输出0避免空值
    say $total // 0;
}

close $fh;

2. 永久移除文件的最后一行 #

如果你需要直接删除文件的最后一行（而不是仅跳过处理），可以分两种情况处理：

情况1：文件不大，适合全读入内存 #

use List::Util qw(sum);

# 读取所有行到内存
open my $in_fh, '<', 'your_file.txt' or die "打不开输入文件: $!";
my @lines = <$in_fh>;
close $in_fh;

# 移除最后一行（如果文件非空）
pop @lines if @lines;

# 处理剩余行并写入新文件（也可以覆盖原文件）
open my $out_fh, '>', 'processed_file.txt' or die "打不开输出文件: $!";
foreach my $line (@lines) {
    chomp($line);
    next if $line =~ /^\s*$/;
    
    my @row = split ',' , $line , -1;
    @row = map { s/^\s+|\s+$//g; $_ } @row;
    
    my $total = sum grep { /^-?\d+(\.\d+)?$/ } @row[1 .. $#row];
    say $out_fh $total // 0;
}
close $out_fh;

情况2：文件很大，不适合全读入内存 #

可以用“记录前一行”的方式，只保留并处理除最后一行外的所有内容：

use List::Util qw(sum);

open my $in_fh, '<', 'your_file.txt' or die "打不开输入文件: $!";
open my $out_fh, '>', 'processed_file.txt' or die "打不开输出文件: $!";

my $prev_line;
while (my $line = <$in_fh>) {
    if (defined $prev_line) {
        # 处理并写入前一行（跳过最后一行）
        chomp($prev_line);
        next if $prev_line =~ /^\s*$/;
        
        my @row = split ',' , $prev_line , -1;
        @row = map { s/^\s+|\s+$//g; $_ } @row;
        
        my $total = sum grep { /^-?\d+(\.\d+)?$/ } @row[1 .. $#row];
        say $out_fh $total // 0;
    }
    $prev_line = $line;
}

close $in_fh;
close $out_fh;

额外小提示 #

你的数据示例里有个笔误："B",3,-5,-2.-5 这里的-2.-5应该是-2,-5吧？上面的代码用正则过滤数字，会自动忽略这种格式错误的非数字项，避免求和出错。

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