perl的List::Util模块的简单应用，感兴趣的朋友可以参考下。
要求：1加2加3加4 … 加到100
用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 "$tn";
[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
