不妨学习一下 Perl

perl Perl 是什么?用 Larry Wall 自己的话说,Perl 是借取了 C、sed、awk、shell scripting 以及很多其他程序语言的特性的一种语言。你可以说它是“实用报表提取语言”(Practical Extraction and Report Language),也可以叫它“病态折中垃圾列表器”(Pathologically Eclectic Rubbish Lister),Larry 说:“OK,我都承认”。

最近机缘巧合,有幸接触了一把 Perl,以及它的模板引擎 Mason(我是这么理解的)。我用过 Java、C#、C++等等传统高级语言,也研究过 Groovy、JavaScript 之类的动态语言,甚至自虐过 VB(Don Box 还说了一段 很好玩的话 ,其中的“Dim me As VBProgrammer”流传甚广),我很懒,并不打算仔细研究 Perl——有的东西我有兴趣一查到底,有的东西觉得点到即止,够用就好,于是只想粗略地把它过一遍,不过 Perl 还是立马给我留下了深刻印象。

Martin Fowler 提出了两种 API 风格:最小接口和人本接口,前者简约、干净、独立,接口覆盖功能没有交集,而后者则提供了一大堆人性化的方法,方法之间互有冗余。Perl 就像人本接口,用 Perl 爱好者们自己的话说,叫做“There’s More Than One Way To Do It.”,虽然很多动态语言也提供了丰富的方法,但是 Perl 把这一点做到了极致。

事实上,我在几个月以前就已经写出了一些简单的 perl 脚本,但是它和 Linux 的亲和力让它非常好用。那个时候我还几乎不了解 Perl,但是我就照着同事的一点 Perl 代码,加上我自己的理解,去完成了一个在 Linux 上用的小工具,Perl 就是如此具有易上手的特性,连 Google 的时间都省了。

如果你就这样认为 Perl 是一个语法简单的语言,那就错了。Perl 是一个可以写出极其简练代码的语言(这往往意味着也可以写出极其混乱的代码来,比如 这个),但是功能上并不含糊(有一个很著名的 Perl 项目 ppt,用纯 perl 实现了所有 Unix 下的常用命令)。另外,Perl 大概是最好的对字符串进行处理的语言。

给以文件操作的例子,如果用 Java,需要写:

BufferedReader br = null;  
try {  
    br = new BufferedReader(new FileReader("test.txt"));  
    String line = br.readLine();  
while (null != line) {  
if (line.startsWith("http:"))  
            System.out.print(line);  
        line = br.readLine();  
    }  
} catch (FileNotFoundException e) {  
    System.out.println("Can't open file:" + e.getMessage());  
} catch (IOException e) {  
    e.printStackTrace();  
} finally {  
if (null != br) {  
try {  
            br.close();  
        } catch (IOException e) {  
            e.printStackTrace();  
        }  
    }  
}  

如果用 perl,只需要:

open(FILE, "test.txt") or die "Can't open file: $!\n";  
while (<FILE>) {  
    chomp;  
    print if /^http:/;  
}  

谈到 Perl 不能不说其独有的诗歌文化,因为语言的包容性、丰富的表达方式和灵活性,让 Perl 可以写出诗歌一样的代码。比如这首名为《Black Perl》的 Perl 诗歌,更多的 请到 perlmonks 去找

BEFOREHAND: close door, each window & exit;  wait until time.  
    open spellbook, study, read (scan, select, tell us);  
write it, print the hex while each watches,  
    reverse its length, write again;  
        kill spiders, pop them, chop, split, kill them.  
            unlink arms, shift, wait & listen (listening, wait),  
sort the flock (then, warn the "goats" & kill the "sheep");  
    kill them, dump qualms, shift moralities,  
         values aside, each one;  
             die sheep! die to reverse the system  
                  you accept (reject, respect);  
next step,  
    kill the next sacrifice, each sacrifice,  
         wait, redo ritual until "all the spirits are pleased";  
    do it ("as they say").  
do it(*everyone***must***participate***in***forbidden**s*e*x*).  
return last victim; package body;  
    exit crypt (time, times & "half a time") & close it,  
         select (quickly) & warn your next victim;  
AFTERWORDS: tell nobody.  
             wait, wait until time;  
                  wait until next year, next decade;  
                      sleep, sleep, die yourself,  
                           die at last  

如果一门语言能给你带来对设计和编码很多新的理解和体验,那么,不妨尝试一下它。

——————————————————————————————————————————–

2012-5-23:

Perl 有一个有名的框架是 Mason,perl 可以做很多事,脚本、胶水语言等等,Mason 则是一个用 perl 来实现页面模板的好例子。建议对 perl 有兴趣的同学,关注一下它。另外,不妨再有对比地了解一下 Embperl 这个框架(它能够对 HTML 标签具备语义识别的能力,有些奇葩)。

文章未经特殊标明皆为本人原创,未经许可不得用于任何商业用途,转载请保持完整性并注明来源链接 《四火的唠叨》

23,492 次阅读

1 thought on “不妨学习一下 Perl

发表评论

电子邮件地址不会被公开。

back to top