Question

perl 文本数值求和 有一个文本文件 total.txt 里面内容如下: 103 124 44 21 11 ... 怎么用perl求和

total.txt 里面内容如下:
103
124
44
21
11
... 怎么用perl求和

Answer 1

open F, "total.txt";
my @data = <F>;
close F;

chomp @data;
$sum += $_ foreach @data;
print "Sum is $sum";

Answer 2

open TXT,"total.txt";
$sum = 0;
while($txt = <TXT>)
{
chomp $txt;
$sum = $sum + $txt;
}
close(TXT);
print "sum is $sum\n";

Answer 3

● perl -ne 'END{print "sum:$s\n"}$s+=$_;' total.txt
sum:303

Answer 4

while(<>){
chomp;
$sum+=$_;
}
print $sum."\n";