Perl 语言简介

506629361

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++;
  
• }