1 line perl

今天来说说perl，只有一行的perl程序。

各种编程语言中perl是以变态的古灵精怪而闻名的，比如我，就经常写出自己都看不懂的perl程序来。

比如这篇文档中的程序，虽然短小，估计一个星期之后我看这就要头晕了。但这丝毫不影响perl作为 一个功能强大的系统管理工具和系统控制语言的存在和推广，而且灵活性恰恰是它最大的优势，你可以

这样写，也可以那样写，“或者，绝招同途异路。”

1. hello world!

===========================================================

还是从最经典的 hello,world! 开始......

##

# perl -e 'print "hello,world!n"'

hello,world!

##

完全不出意料，他没有任何歧异的终于我们愿意的输出了"hello,world!"，自然得就像我么用echo或

printf()一样。

这个程序按照传统形态展开的话是这样：

==

#!/usr/bin/perl

print "hello,world!n";

==

我们在命令行上使用了perl 的-e参数，这将使perl把-e之后直接跟着的字符串当作perl的程序自动内置

展开执行，免去了我们用vi或cat重写文件之苦。

-e参数的功能，就是自动把之后的字符串作为程序主题执行，再之后的参数将作为perl脚本的命令行

参数($ARGC 和 @ARGV)传递给程序语句。

2. 我要cat。

===========================================================

hello,world!看似完全没有作用，其实我们可以丰富它，用它来完成任何工作--只要你的想象力够丰富。

perl世界里很有名的一个项目就是ppt( pOWER pERL tOOLS)，用纯perl重新实现了所有unix常用命令。

我们来看一个最简单的cat。

##

# perl -pe 1 /etc/hosts

127.0.0.1 localhost.localdomain localhost

192.168.0.3 vi

##

就如同cat一样，这行命令原样的输出了/etc/hosts文件。我们来看看它实际做了些什么：

==

#!/usr/bin/perl

for(@ARGV){

open($F,$_);

while(<>){

&调用执行-e参数指定的指令

&本例中为1

return 1;

}

}

==

这里解释一下涉及到的第二个perl命令行参数-p，-p的过程实际就是自动为我们提供了一个如上面源代码

中所见的双层循环，第一层是依次读取命令行上指定的文件名，作为@ARGV ，打开文件并进行处理；

第二层循环则从open($ARGV[*])接收文件句柄，并执行一个perl的<>操作，一次读取文件的每一行，

并进行处理，处理的过程就是我们使用-e指定的程序语句。 如果没有指定程序语句，那么默认的情况

将是读取并回显每一行。

所以这个程序的流程如下：

1, 循环，依次读取@ARGV 中指定的若干文件;

2, 打开当前文件;

3, 循环，依次使用<>操作符读取每一行，并存储在临时变量$_ ;

4, 调用-e的程序语句进行处理; 在本例中，-e只有1一个参数，在perl中代表 retuen 1，直接返回真值

不作处理。

再写两条有用的命令：

# perl -pe 'exit if $. > 10' FILENAME

这条相当于unix命令head，打印指定文件的前10行 -- 你可以把10改成你想要的任何数字；

# perl -e '@lines = <>; print @lines[$#lines-10 .. $#lines]' FILENAME

这条相当于unix命令tail，打印指定文件的最后10行 -- 同样你也可以修改成你想要的。

3. kick sed。

当前1/3页123下一页阅读全文