perl - 如何将csv文件中每行的数字相乘并相加

Question

我需要一种方法来获取 .csv 文件中一行中的数字并将它们相乘，然后将每行的乘积相加得到一个数字。我的 .csv 文件类似于:

1,1
2,3
3,4

我知道答案应该是 19，但我不确定如何用 Perl 对其进行编程。我将两个数字分为不同的变量:

($x,$y) = split (/,/, $line)

我已经阅读了该文件以及所有这些，我只需要有关我的代码的这一部分的帮助。如果有人能指出我正确的方向，我将非常感激。

Answer 1

一个简单的解决方案可能如下所示:

use strict;
use warnings FATAL => 'all';

my $total;
open(my $fh, '<', "temp.csv");

while( my $line = <$fh> ) {
   my ($x, $y) = split(',', $line);
   $total += ($x * $y);
}

print "Total is: $total\n";