perl One-Liners | perl命令行学习1 -e参
Perl 命令行参数 -e
perl One-Liners
说明
前言
之前在知乎上看到别人提问
“你见过哪些令你瞠目结舌的Perl代码技巧?” —— 有的人说是perl可以写诗，有的人就说是perl One-Liners。
Perl One-Liners简介
我一般就叫 Perl单行程序 ，那与平常写perl脚本有什么区别呢？
- 平常写perl脚本
#!usr/bin/perl -w
# 比如打开文件，然后读取文件，逐行打印出来
open FILE,"<","123.txt";
while(<FILE>){
print $_;
}
close FILE;
- 使用单行程序
cat 123.txt | perl -n -e 'print $_'
看起来的确是简洁一些，但是实际上简练只是一方面，我的老师曾经说：
有的时候是的确是简练，但是更重要的一点是 ——“流程化”。
什么意思呢？其实按照shell编程来看，很多时候都是很多个工具相互搭配干活，中间用管道将他们哥几个串联起来，这样一前一后这种流程感是不是很强烈，有木有。就是知道干了什么事情，比较清晰明白。
例如某个流程是这样
cat-->grep-->perl-->awk
同时，作为单行程序，在shell里面运行是可以利用到linux的工具的，也就是说perl也可以掺和进去，和里面的其他工具搭配干活的，比如cat,echo,ls,pwd,last,find,ps,parallel,sed,grep,awk等等好多工具。
其实这样看来perl One-Liners有这么多好处，简练、流程化、可以搭配众多Linux大佬工具，那都用它得了。我个人感觉啊，实际上写接近五十行代码的perl已经不适合用perl One-Liners了，因为在shell里面修改不方便，同时代码的保存也是问题。那个时候好不如写在脚本.pl文件里面了，同时对于使用较多模块，或者自己写包的形式就完全不适合用单行程序了。
打个比方，可能不太恰当，“perl单行程序就像是自行车，哐当推出去骑上去就跑；而写perl脚本就像是摩托车，推车推出来都要会儿时间，还得启动，有时候可能熄火；自行车最后跑起来那的确是没有摩托车快，也没有摩托车跑得远，但是它骑上去就开始跑了，轻便快捷，然后还有各种Linux工具的相互配合，进行接力！有时候胜过直接写perl脚本哦”。
凡事有好的一面，也有不好的一面
不好意思装了个比，求原谅
我学习Perl单行程序的经历
刚开始看Perl的时候（那时候还没有接触编程的东西），我看到了老师写了一些程序，于是想这个Perl到底是什么样的语言，还可以在那种黑乎乎的东西（shell）里面这样写，当时在网上查了一下各个参数的意思，刚开始不明白，想着这都是些什么玩意啊！就把笔记本丢到一边去了。再后来，我看到了知乎的这个问题，突然想起来还有这个用法，然后慢慢的一边看老师的代码，一边自己练习。慢慢的我就开始使用这门“独门奇招”，谈不上熟练，只是觉得好用，有时候觉得没必要写脚本就迫使自己写单行程序，现在有时候不直接写perl脚本，而是直接上perl单行程序搭配shell的工具使用。这篇博客中可能有错误的地方，因为有时候我是边学边写的，希望大家能见谅。
好，废话少说。
在之前先做一下准备工作
工欲善其事，必先利其器
别打我，我再装一下比。
首先你是用的是什么系统
- Windows
windows下没有包含perl的解释器，你需要先下载一个git for windows（不是github for windows）
或者下载一个完整版的cmder
这里推荐安装git for windows（虽然cmder完整版包含了git for windows，但是cmder使用的perl单行程序来说有些差别，就是在-e参数后面不能用单引号，需要用双引号，这与Linux和Mac上就有差别了，为了统一，就使用git for windows，然后在windows中的cmd中运行perl命令行程序，只能用双引号引起来，不方便后面的操作，没有Linux命令，不利于后续的使用）
安装好了之后，你会发现你的右键菜单多了点东西
- Git GUI Here
- Git Bash Here
右键菜单
如果没有这两个选项，就按照C:\Program Files\Git\git-bash.exe这个路径找
就我现在的理解（我刚用这个软件），就是相当于把linux的shell里面的命令搬到windows下面运行，同时也搬了perl的一些核心功能过来，所以我们就可以用这个软件来使用Linux下面的perl单行程序了！是不是很酷！
我们先是一下perl是不是在这个软件里面
我们在桌面右键（其实在别处也可以）（在mac或者linux系统中就打开终端）
选择 Git Bash Here 这一项（没有这一项就 徽标 + R调出运行面板，在里面输入C:\Program Files\Git\git-bash.exe）
输入 perl -h
perl帮助信息
可以看到这个软件带了perl程序，帮助里面列出来的这些参数是后来要说的，今天我们先看
-e参数
- Mac或Linux
Mac和Linux就干脆一些，它们自带perl，所以不需要前期准备
开始单行程序！
建议：后面的代码最好你自己也输入一下感受一下
我是用的Windows进行演示的，在Mac和Linux上也是一样的（终端）
首先写几个示例代码
例子
- 示例1
perl -e 'print "Hello World!"'
# 输出
Hello World!
- 示例2
perl -e 'my $str = 'asdfghasd';$str =~ s/a/%/g;print "$str"'
# 输出
%sdfgh%sd
- 示例3
perl -e 'for(1..10){print "$_ "}'
# 输出
1 2 3 4 5 6 7 8 9 10
发现规律没，
perl -e ''
是他们的共同结构，其中关键的是-e参数，它意思就是
在其后面的引号里面的东西当作perl代码来执行。
这个岂不是不需要写pl脚本就可以做很多事情了。是的，就是这样，不过有些东西有些差别，以后再说。
你现在可以在-e后面的的引号（建议用单引号，不然可能报错，然后还会牵扯到其他问题）里面输入perl代码试一试。
用法
perl -e ' 代码 '
问题
- 换行
我想换行继续输入，按了一下回车，结果代码直接执行了。呃，尴尬，
单行程序和之前的写在代码编辑器里面的不一样，假如我们想换行输入代码我们可以这样做，
我们先不把引号对打全，只打出单个，也就是这样
perl -e '
继续
perl -e 'my $str = "asdfghasd";
按一下回车输入其他内容
perl -e 'my $str = "asdfghasd";
$str =~ s/a/%/g;
print "$str";
最后加上末尾的引号
完整代码为
perl -e 'my $str = "asdfghasd";
$str =~ s/a/%/g;
print "$str";'
# 输出
%sdfgh%sd
有人可能会问，为什么不输入 \ 符号来续行呢？
好,来试一试
perl -e 'my $str = "asdfghasd";\
$str =~ s/a/%/g;\
print "$str";'
# 输出
Can't modify single ref constructor in substitution (s///) at -e line 2, near "s/a/%/g;"
Execution of -e aborted due to compilation errors.
出错了！因为之前说过了，在-e参数之后的引号内东东都会被认为是perl代码，所以这个引号里面不能这么做，在引号外的命令被视为是shell的命令，在shell中的续行的方法就是在代码换行之前输入\ 然后再按下回车，就可以继续输入代码了。
# shell代码
echo 123 \
qwe \
asd
# 等价于
echo 123 qwe asd
# 输出
123 qwe asd
既然有这种方式，能不能利用一下
perl -e '$n = 1;' \
-e 'print $n'
#输出
1
这种方法利用输入\ 实现了续行，但是我们可以看到 \ 是不在引号对之内，所以属于shell命令。
注意：这里有两个-e参数，之后引号内的内容当作perl命令执行，同时还可以看到，看似我们使用两个-e把程序打断了，变量$n的内容还被保存，没有丢，但是一旦在执行下一个perl命令的时候它就没有了
perl -e '$n = 1;' \
-e 'print $n' \
| perl -e ' print "n is $n\n";'
# 输出
n is
变量$n是空的，所以在执行一个perl内的变量会暂时保存，但是一旦用管道隔开，变量就消失了，perl单行程序重新开始。
- 引号
刚才前面说到了在-e参数后面要用''（单引号），最好不要用""（双引号）,不然shell中的变量和perl的变量会搞混
# shell中的变量
varname=123
# 然后在perl中声明同样名字的变量
perl -e "my $varname = 'asd';print $varname"
# 输出
syntax error at -e line 1, near "my 123"
Execution of -e aborted due to compilation errors.
按照错误说明，其实在声明这个变量的时候就出错了，也就是perl外部变量与内部变量的混淆了，为了避免这种事情发生，我建议使用单引号对。
如果偏要这么做的话也不是不行，那直接转义咯！
varname=123
perl -e "my \$varname = 'asd';print \$varname"
# 输出为
asd
但是实际上，使用双引号你可能觉得可以进行shell向perl传递变量。但是，每次使用perl自己的变量还要在 $ 前面加上 \ 来转意，这太麻烦了！perl变量传递还有更好的做法，所以不推荐使用双引号对。
后记
其实话说回来，One-Liners说的单行程序，一般来说的确就是写在一行上面，也就是说代码量不多的情况下，但其实有的时候还是有必要进行换行的，那样更容易修改和理清程序，这里其实是为了表明Perl是那种很能干的特质，就像在《Learning Perl》这本书里面说的那样：
骆驼长得也有点丑陋，但是它们努力工作，哪怕是在严酷的环境下也一样不辞辛劳。骆驼能在种种不利的条件下帮你把事情搞定，尽管它长相丑陋，气味难闻，偶尔冷不丁的还对你吐上几口口水。
补充
今天看《perl技术内幕》突然发现还有一种命令行运行perl代码的方式
- 用法
# 输入perl之后，在后面写上短横线，然后换行
perl -
代码
# 最后使用__END__标记来结束代码
__END__
但是我发现这种方法无法接受管道的数据
更多
- 目前有人已经写出了一本有关单行程序的书，想要下载的可以移步 Perl One-Liners书的下载地址，或者问我要 ^#^
- 在线阅读
- github 也是《Perl One-Liners》这本书的作者的github
应用
其实只是用这样一个参数就可以干活了（因为-e后面的引号内的东西作为perl代码来执行，也就是说某种程度上就是写perl脚本）
例如
# 有一个文件123.txt
# 内容为
Hello World!
--------------------------------------
# perl
perl -e '
open FILE,"<","123.txt" or die $!;
while(<FILE>){
print $_;
}
'
--------------------------------------
# 输出
Hello World!
再比如
cat 123.txt | perl -e '
while(<>){
print $_;
}
'
--------------------------------------
# 输出
Hello World!
'
但是实际上很多时候并不方便，仅仅使用-e参数孤掌难鸣，-e参数是一个大头，也是必不可少的，但是“一个好汉三个帮”，还需要搭配其他的参数来完成更加快捷简洁方便的方法来。
今天的-e参数就说到这里，后面还有更好玩的参数哦！我刚学perl单行程序，有哪些地方说错了请多多指教，多谢了！
注：之前一直觉得在新浪博客上写不方便，现在把原文搬到简书上面了，稍微改了改，加了点内容。
