perl List::Util模块(转)

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

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

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

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