单行代码的Perl程式-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

单行代码的Perl程式

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　精简的代码，虽然可读性不好，但是绝对高效，发挥才思。

　　一些不同凡响的Unix狂的一个业余爱好就是研究怎样把程式压缩到单行来完成。那些精通Perl 的程式员能很好地做到这一点。例如一个测试素数的程式：

　　perl -le ’print "PRIME" if (1 x shift) !~ /^(11+)＼1+$/’ 19

　　Abigail@fnx.com 贡献了这段代码放在Perl Journal 的

　　http://www.itknowledge.com/tpj/one-liners01.html. 您能够把19替换为您想要的最后一个数字。

　　Perl 的功能不但强大而且简洁。然而，即便如此，很少的Perl 程式员的代码有如此紧凑。许多人乐于写比较松散并且有较高可读性的代码。

　　其实，单行代码不但仅光是证实您是一位紧凑代码编写人员，而且他是十分有用的。单行的代码能够在命令行处理得更快更灵活。下面是个十分方便的替换命睿?

　　perl -p -i -e ’s/this/that/g’ filename

　　他把指定文档中的字符串 *this* 替换为 *that*。

　　您能够把这条命令放入howto 文档，这条命令很好记，参数为"pie"，就是馅饼了，而替换命令就和sed 的相同。

　　参数含义：

　　p 打印

　　i 当场编辑

　　e 执行命令

　　下面这条命令：

　　perl -p -i -e ’s/’

　　.. 把文档的回车去掉，把DOS 格式的文档转化为Unix 格式。

　　和下面这条命令相同。

　　tr -d "＼015"

　　另外一个“单行代码”的用处是测试您对语言的理解。为了写一条十分简洁紧凑的代码，您或许不得不查看一些您不是常用的语法。

喜欢本文，那就收藏到：