使用Perl内置<>函数与split实现CSV文件数据求和及问题排查

你的现有代码存在几个关键错误，导致输出为空：

• 错误地对文件名$filename执行split操作，而不是对读取到的每行CSV数据进行拆分
• 循环中累加的是数组@spl的元素数量，而非数组内每个数值的总和
• 读取每行时未处理末尾的换行符，可能导致拆分出的最后一个元素包含换行符，影响数值转换

修复后的代码如下：

#!/usr/bin/perl
use strict;
use warnings;

my $sum = 0;
my $filename = "data.csv";
open(my $fh, "<", $filename) or die "无法打开文件: $!";

while (my $line = <$fh>) {
    chomp $line;  # 去掉每行末尾的换行符
    my @nums = split(/,/, $line);
    foreach my $num (@nums) {
        $sum += $num;  # 累加每个数值
    }
}

close $fh;  # 记得关闭文件句柄
print $sum, "\n";

关键修改说明： #

• 将split操作移到while循环内部，针对每一行读取到的$line进行拆分
• 使用chomp清除每行的换行符，确保拆分出的都是纯数字字符串
• 遍历拆分后的数组，逐个将数值累加到$sum中
• 补充了关闭文件句柄的操作，同时在die中添加了错误信息，方便排查问题

用你提供的示例数据运行，最终输出为134，符合预期结果。

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