Perl 语言简介

发布时间：2020-12-15 21:00:29 所属栏目：大数据来源：网络整理

导读：Perl语言简介 ? ? Perl两种字面解释 1.?实用摘录和报表语言（Practical Extraction and Report Language） 2.?胡乱地东拼西凑的垃圾大杂烩（Pathologically Eclectic Rubbish Lister）这两种解释都得到Perl社团的认同。也反映了Perl的文化及哲学。 ? ? ? Pe

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!