会员控制台 会员登陆 会员注册 最后更新 高级搜索 会员投稿 退出登陆
设为首页
收藏本站
留言给我
  首页 | 操作系统类 | 程序设计类 | 数据库类 | 应用服务类 | 网络及硬件类 | 其他技术 | GBunix论坛
操作系统类
程序设计类
数据库类
应用服务类
网络及硬件类
其他技术
Unix中文 / 程序设计类 / 其他程序 / 单行代码的Perl 程序
单行代码的Perl 程序
2004-07-13    徐永久    www.freelamp.com    点击:
单行代码的Perl 程序
精简的代码,虽然可读性不好,但是绝对高效,发挥才思。

一些不同凡响的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"

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

了解更多详情,参与讨论,请进入GBUNIX论坛

http://www.gbunix.com/bbs/index.php
责任编辑: trotter
发表评论 查看评论 加入收藏 Email给朋友 打印本文
给该文章评分
1 2 3 4 5 6 7 8 9 10
平均得分 0, 共 0 人评分
1 2 3 4 5 6 7 8 9 10
发表评论
标题:
内容:
声明:本站资讯均来自互联网,所有文章版权归原作者和出版者所有,如涉及版权问题,请来信告知!
Copyright © 2002-2004 GBunix.com. All rights reserved.