Perl 语言简介

Perl语言简介

 

 

Perl两种字面解释

1. 实用摘录和报表语言（Practical Extraction and Report Language）

2. 胡乱地东拼西凑的垃圾大杂烩（Pathologically Eclectic Rubbish Lister）

这两种解释都得到Perl社团的认同。也反映了Perl的文化及哲学。

 

    Perl是一种 简单的语言，也是一种 丰富的语言，提供了许多功能。一小段Perl程序可以完成的工作，用C语言可能需要上百行。有些语言可以用少量的代码完成许多的工作，但不是全部工作，而Perl可以让你以最少的劳动完成许多工作（这句话说的真霸气）。如果遇到Perl不能完成的工作，它通常可以与该工作所需的其他工具很好地协作。

 

     Perl不仅是一种语言，而且是一种文化。现在，人们用Perl完成许多工作，如生成Web页面，阅读Usenet新闻、进行系统管理和系统编程、编写客户端和服务端网络程序，以及其他许多许多。

 

    Perl程序员（实际上，任何程序员都是如此）的三个主要“优点”是懒惰、不耐心和骄傲。虽然这些品质乍看起来是不可取的，但是这些表象下有更多的东西。

 

    懒惰使人拼命去减少所必须完成的工作的总量。懒惰的程序员习惯于开发可重用的和通用的程序。他们更习惯于书写工作文档，这样就不用浪费时间和绞尽脑汁去重新构思。

 

    当不得不去做一些计算机可以去做的工作时，没耐心的程序员就会生气。因此，他们开发一些程序，使之能预计他们的需要，为他们解决问题，这样就可以少干活（这也是懒惰的表现），却完成更多的工作。

 

    骄傲促使程序员们编写一些程序，希望他人看到（并且保存下来）。骄傲也推动创新：如果你认为自己有更好的方法，而且敢于证明，那么你通常是对的。

 

    文化中奇怪的想法可能正是有用的想法，而且敢于证明，那么你通常是对的。Perl的另一信条是：有不止一种实现的方法。这意味着Perl程序员着眼于答案（而非实现的方式）。他们欢迎任何能完成工作的工具，而不在乎代码的风格是否与自己的相似。这一信条的另一作用是是的Perl的可移植性极好。

 

    Perl是一种解释性语言，但工作方式与你用过的其他解释性语言略有不同。Perl实际上即使一个编译器，又是一个解释器。用Perl解释器处理脚本文件时，该文件首先被编译和优化，然后被高效的执行。这样做不仅使程序的运行效率搞，也缩短开发周期。你可以很快地做些改动，然后重新运行脚本，而不必经历长时间的编译和链接过程。 

 

后记：

    由于学习需要，以及老师的要求和推荐，我终于翻开了已经从图书馆借了几天的《Perl教程》。出于好奇心和以前接触过shell认为这些脚本语言上手不是很难，所以就勇敢的企图使用它来完成任务。（Perl的logo是头骆驼，起码我提不起兴趣，很早就知道它比较强，但总是笑笑骆驼了事。）

    还好，午饭前后断断续续地看了两个多小时，我便写出了解决问题的代码了（代码在文章后）。perl语言有很多语言的影子比如C，还有许多语言中都使用的正则表达式它也有。用它来读取文件，截取数据真是太方便了。查看执行时间0.039s比用shell脚本短了很多。

    还有，这本书中的这段简介真心不错。尤其是对Perl文化的叙述，对合格程序员的描述是我既看到自己的影子，也意识到自己有很多不足，合格程序员（IT人）的许多优良习惯我还不具备。摘录共享出来，希望看到文章的IT人有所收获。

 

计算TCP中的RTTs、RTTD、RTO
#!/usr/bin/perl
$i=0;
@RTT;
while(<>){
        if(/RTT/){
                @words = split(/ +/,$_);
                $RTT[$i++]=$words[8];
        }
}
$i=0;
$RTTs=0;
$a=0.125;
$b=0.25;
while($RTT[$i]){
        $RTTs *= (1-$a);
        $RTTs += $a*$RTT[$i];
        if($i==0){
                $RTTd=$RTT[$i]/2;
        }else{
                $RTTd *= (1-$b);
                $RTTd += $b * abs($RTTs-$RTT[$i]);
        }
        $RTO = $RTTs + 4*$RTTd;
        print "RTTs=",$RTTs,"\t";
        print "RTTd=",$RTTd,"\t";
        print "RTO=",$RTO,"\n";
        $i++;
}