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";