perl模块_List::Util

1加2加3加4 … 加到100,试了一下还是perl最快
需要用到perl的List::Util模块.

[root@centos perl]# more plus.pl 
#!/usr/bin/perl -w
use strict;
use List::Util qw[sum];
my $t = sum(1..100); 
print "$t\n";
[root@centos perl]# perl plus.pl 
5050

shell取巧的方法也很简单,利用seq与sed和bc
seq生成数字,sed将空格替换为加号,通过管道传递给bc进行加法运算.

[root@centos perl]# seq -s " " 100|sed 's/ /+/g'|bc
5050