简短的perl程序
简短的perl程序能够实现大功能。
perl是如何做到的呢?
1. 默认变量
如果没有向函数提供参数值,则默认参数为$_;
如果没有变量用于接收一个表达式的值,则默认接收变量为$_。
perl语言每条语句可像管道那样运行,通过默认变量$_串接起来。
2. 特殊语法
利用一些正常情况下没有含义的语法,如while(<>){}.
如果按照正常的语法,这个定法的意义是:读取一行文本,然后丢弃。
由于正常情况下没有人会这么用,perl语言将这一语法利用起来了。在实际中写起来非常方便。
3. 变量值不用给定初值,不用提前声明
perl会自动为变量选择合适的初值,如果没有给定的话。
对于数值,初值为0;对于字符串,初值为““,也就是空字符串。
4. 对于一些常用语法的简洁写法
如通过qw定义一个字符串list,可避免写引号。
简短的好处?
简短,再加上perl与shell结合非常好,可以在命令行上直接写出简短又功能强大的代码。
一个常用用法:
find . |perl -e 'while(<>){...}'
处理标准输入的每一行文本。'...'表示每行的处理代码。
通过动态声明一个函数,省略while,只提供每行的处理代码,可以进一步节省字节。
process_each_line.pl
#!/usr/bin/perl my $cmd=$ARGV[0]; my $func = eval "sub{while(<STDIN>){chomp;$cmd;}}"; die "unable to compile '$cmd', aborting...\n" if not defined $func; $func->();
命令行调用
find . |./process_each_line.pl 'print if /pl$/'
打印出当前目录下所有以pl结尾的文件名。
process_each_line.pl 会生成一个函数 sub{while (<STDIN>){chomp; print if /pl$/;}}(第3行),然后再调用这个函数(最后一行)。
可继续扩充这个文件,加入一些常用函数,供在命令行上直接调用。