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

11 |

open F, "total.txt";my @data = ;close F;chomp @data;$sum += $_ foreach @data;print "Sum is $sum";...

千问 | 2013-3-23 19:22:24 | 显示全部楼层

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

千问 | 2013-3-23 19:22:24 | 显示全部楼层

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

千问 | 2013-3-23 19:22:24 | 显示全部楼层

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

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

热门排行

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