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人有所收获。

 

 
  
  1. 计算TCP中的RTTs、RTTD、RTO
  2. #!/usr/bin/perl 
  3. $i=0; 
  4. @RTT; 
  5. while(<>){ 
  6.         if(/RTT/){ 
  7.                 @words = split(/ +/,$_);  
  8.                 $RTT[$i++]=$words[8]; 
  9.         } 
  10. } 
  11. $i=0; 
  12. $RTTs=0; 
  13. $a=0.125; 
  14. $b=0.25; 
  15. while($RTT[$i]){ 
  16.         $RTTs *= (1-$a); 
  17.         $RTTs += $a*$RTT[$i]; 
  18.         if($i==0){ 
  19.                 $RTTd=$RTT[$i]/2; 
  20.         }else{ 
  21.                 $RTTd *= (1-$b); 
  22.                 $RTTd += $b * abs($RTTs-$RTT[$i]); 
  23.         } 
  24.         $RTO = $RTTs + 4*$RTTd; 
  25.         print "RTTs=",$RTTs,"\t"; 
  26.         print "RTTd=",$RTTd,"\t"; 
  27.         print "RTO=",$RTO,"\n"; 
  28.         $i++; 
  29. }