单行代码的Perl程序

2019-11-18 17:23:20

字体：大中小

来源：转载

供稿：网友

精简的代码，虽然可读性不好，但是绝对高效，发挥才思。
一些不同凡响的Unix狂的一个业余爱好就是研究怎样把程序压缩到单行来完成。那些精通Perl的程序员
能很好地做到这一点。例如一个测试素数的程序：

perl-le'PRint"PRIME"if(1xshift)!~/^(11 )/1 $/'19

Abigail@fnx.com贡献了这段代码放在PerlJournal的
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"

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

上一篇：在Apache服务器上运行mod_perl

下一篇：用Perl语言进行Socket编程

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注