perl oneline的参数解释

1、基本格式：perl -参数 ‘命令' 输入文件

2、 perl -e 为必须要写的参数

3、 perl -pe 可用于读取文件每行，并按照给定的命令进行处理，最后输出；如将文件1.txt中的aaa替换为AAA： perl -pe 's/aaa/AAA/g' 1.txt

4、 perl -l 参数几乎可以跟n搭配代替perl经常用的 while(<>){chomp} 语法

5、如果需要处理tab/空分割的文件的每一行内容，那么 perl -alne 参数几乎可以说是必备的，例如 while(<>){chomp@F=split /\s+/,$_print "$F[0]\n"} 相当于: perl -alne 'print $F[0]'

6、perl单行命令脚本里的变量都不需要预先声明，如想打印出每空行，并且每行以行数开头: perl -``ne 'print ++$a." $_" if /./'

7、perl单行命令有时优于sed/grep等shell命令是由于其优秀的正则匹配，通常简单的匹配可以如：匹配上的行号，模仿grep -c的功能： perl -lne '$a++ if /regex/END {print $a+0}'

8、perl单行命令可以使用perl的模块，如使用sum函数的模块： perl -MList::Util=``sum -alne 'print sum @F'

9、perl也可以像awk一样使用END命令，如打印出文件中总单词个数

perl -alne '$t += @FEND { print $t}'

10、perl也可以使用 map{} 等函数，如打印出匹配上的单词的总个数: perl -alne 'map { /regex/ &&$t++ } @FEND { print $t }'

11、perl单行命令可以说是将perl的简洁用到了极致，如打印出匹配上的行： perl -``ne '/regex/ &&print'

12、perl单行命令能像perl一样灵活的使用则正表达式: perl -``ne 'print if /^\d+$/'

使用perl来处理数据的我们，会一点Perl one line可以有效的减少编写重复命令的时间，尤其是那些就用1-2次就不会用的脚本，尤其在window系统下不方便使用shell命令的时候。

PS. 当然在windows系统下也可以借用git模拟Unix命令环境~~~~

https://www.jb51.net/article/123326.htm

perl命令行参数怎么捕获？ perl 获取命令行参数方法，以在windows *** 作系统为例，当我们在命令行中调用PERL程序的时候，我们往往会跟随一些参数，比如输入文件名，和输出文件名之类的信息。这些信息PERL会将它们存储在@ARGV数组中(和C语言一样)。比如在cmd中输入如下命令：

pp.pl -opcamfile opcamfile.ini -rcfile rcfile.txt -swapfile swapfile.tmp -outfile outfile.txt

PERL会建立一个数组@ARGV=qw/-opcamfile opcamfile.ini -rcfile rcfile.txt -swapfile swapfile.tmp -outfile outfile.txt/然后我们想把这些信息做何用出就对应的处理数组，从数组中分离我们想要的数据就可以了。如下面的代码所示。shift的默认参数是@ARGV。

while ($#ARGV > -1) {

if ($ARGV[0] =~ /-opcamfile/i){

if ($ARGV[1] !~ /-/) {

$opcamfile = $ARGV[1]

shift

}

shift

} elsif ($ARGV[0] =~ /-rcfile/i) {

if ($ARGV[1] !~ /-/) {

$rcfile = $ARGV[1]

shift

}

shift

} elsif ($ARGV[0] =~ /-swapfile/i) {

if ($ARGV[1] !~ /-/) {

$swapfile = $AR GV[1]

shift

}

shift

} elsif ($ARGV[0] =~ /-outfile/i) {

if ($ARGV[1] !~ /-/) {

$outfile = $ARGV[1]

$outfile =~ s/_sim//g

shift

}

shift

} else {

die 'Unrecognized argument, Exiting...'

}

}

---