频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

单行代码的Perl程序

来源: 作者: 出处:巧巧读书 2007-10-09 进入讨论组

  精简的代码,虽然可读性不好,但是绝对高效,发挥才思。
一些不同凡响的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"

另外一个“单行代码”的用处是测试你对语言的理解。为了写一条十分简洁紧凑的代码,你或许不得不查看
一些你不是常用的语法。进入讨论组讨论。
更多专题 【深 度 阅 读】 相 关 文 章
    收藏此文】【 】【打印】【关闭
    相关图文阅读
    频道图文推荐
    健 康 咨 询
    时 尚 咨 询
    巧巧读书宗旨
    相关专题
    讨论组问题推荐
    站内各频道最新更新文档
    站内最新制作专题
    热门关键字导读
    Photoshop教 程照片处理 照片制作 PS快捷键 抠图
    计 算 机 故 障XP系统修复
    艺 术 与 设 计设计 流媒体 设计欣赏 边框
    计 算 机 安 全ARP
    站内频道文章精选
    巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章