请教Perl一句话命令行

gaoyang636

  觉得一句话命令行好方便，很多时候大费周章写个脚本不值当；但是基本没写过，今天有个机会，就想试试，果然遇到问题，还请大家指教，多谢

目的：一个文本文件中，第二列是数字，共上千行，我想取这些数字的总和；我的尝试命令如下：

1. less S_k31.txt |cut -f2|perl -MList::Util -e  '@arr=<STDIN>;print $sum=sum @arr;'

复制代码

想到List::Util这个模块里面有sum命令，所以调用了这个模块先。 报错如下：
“Array found where operator expected at -e line 1, at end of line
        (Do you need to predeclare sum?)”
貌似调用不成功。我继续研究，发现不论在脚本中还是命令行中，必须得声明sum这个方法才能使用

1. use List::Util qw(sum)

复制代码

；
这样，就能正常运行了。
我有两个疑问：
1 为啥这样呢? 我原以为use一个模块，默认的导入列表就等于全部命令列表……sum这个命令也不与其他core module冲突吧；
2 像这种需要声明方法的用法，怎么样写在命令行中？ 我试过 perl -MList::Util qw(sum)了…… 果然不行……:wink:

谢谢各位～

zhlong8

这个应该这么用

perl -anE "$sum+=$F[1]; END{say $sum}" data.file

写单行命令要熟读 perlrun 它会解释这里 a n 这两个参数和 @F 这个变量，还有 -MList::Util=sum 的用法

flw

-MList::Util=sum

ecjtubaowp

看perl1line

gaoyang636

小结，方便后来人：
-a 起到自动split的作用，而分隔符可以通过-F指定；split产生的list存入@F；
-n 使后面的命令形成loop；这里用END保证循环结束后，才输入最后的结果，而不是每次都输出；

关于perl1line，找到两个帖子，不知道还有没有其他的，欢迎补充：
http://www.ibm.com/developerworks/cn/linux/sdk/perl/l-p101/
http://www.ibm.com/developerwork ... l/l-p102/index.html

ecjtubaowp

gaoyang636 发表于 2012-05-24 14:40
小结，方便后来人：
-a 起到自动split的作用，而分隔符可以通过-F指定；split产生的list存入@F；
-n 使后 ...

http://www.catonmat.net/download/perl1line.txt
http://download.boulder.ibm.com/ ... ary/l-p102/tomc.txt