求助perl二维数组问题

miemie_123

初学perl数组，有个问题。我有一个二维数组大概这样：
1   100.0
2   90.0
3   1012.0
4   1.23
5   4342.3

我想分别统计第一列中1-2，3-5之间的数对应的第二列的值之和，应该怎么写？

多谢！

jason680

回复 1# miemie_123

$ cat FILE
1   100.0
2   90.0
3   1012.0
4   1.23
5   4342.3

$ perl -lane 'sub sum{$s=0;$s+=$_ for(@_);return $s}{$a[$F[0]]=$F[1]}END{print sum(@a[1..2])," ",sum(@a[3..5])}' FILE
190 5355.53