术语汇编 Perl语言概述

开发 架构
本文和大家分享一下Perl的概念,Perl是由LarryWall设计的,并由他不断更新和维护的编程语言,Perl具有高级语言(如C)的强大能力和灵活性。

本文和大家重点讨论一下Perl的概念,Perl最初的设计者为拉里·沃尔(LarryWall),他于1987年12月18日发表,Perl提供脚本语言(如sed和awk)的所有功能,还具有它们所不具备的很多功能。Perl还支持sed到Perl及awk到Perl的翻译器。

Perl概述

别期望在一刻钟内就能领略Perl的所有神奇之处,这种情况很像吃香蕉,用不着吃完整只香蕉后才知其味,每咬一口都是享受,并促使你再咬下一口,再下一口。
                      ----LarryWall

Perl概述

  Perl是PracticalExtractionandReportLanguage(实用摘录和报告语言)的简称,是由LarryWall所发展的。其最新版本为5.0。
  Perl的设计目标是帮助UNIX用户完成一些常见的任务,这些任务对于shell来说过于沉重或对移植性要求过于严格。
  Perl是按GNUPublicLicense的形式分发的,其实质是免费的,原先运行于UNIX和类UNIX系统,现在已可以方便地在OS/2,Windows9x,Windows/NT等系统下运行。
  Perl是解释运行的,一般Perl程序的第一行需注明自己是一个Perl程序而不是shell程序,所以一般将下面一行语句:
  #!/usr/bin/perl
  作为文件的第一行。

第一个Perl程序

  就拿各类书籍最常用显示"Hello!Welcome!"程序来说吧。下面是其源程序:

  #!/usr/bin/perl
  print"你好!欢迎光临网上学园!\n";

  这里的第一行说明了这是一个Perl程序,它也是Perl的注释,注释是从#开始至该行结束的所有文字。
  第二行是程序的可执行部分,这里只有一条print语句,如果你学过C语言,就能很快掌握它。

提问并保留结果

  在此基础上做稍微复杂一点的改变,我们使该程序按你的名字打招呼。要做到这一点,需要一个变量来存放姓名。我们使用$name来保存姓名。

  #!/usr/bin/perl
  printf"请问您的姓名?";
  $name=<STDIN>;
  chop($name);
  printf"你好,$name,欢迎光临网上学园!\n";

  这里第三行表示从终端获得行输入并赋值给$name,这里的$name的值有一个换行符,第四行chop($name)表示去掉$name的最后一个字符(即换行符)。第五行显示输入。

增加选择

  现在让我们为园主zmd编写一个特殊的欢迎辞,而对其他人则采用普通欢迎辞。要达到这样的效果必须将输入的姓名与zmd作比较,如果相同则执行特殊功能。

  #!/usr/bin/perl
  printf"请问您的姓名?";
  $name=<STDIN>;
  chop($name);
  if($nameeq"zmd"){
  printf"欢迎zmd进入本系统!\n";
  }else{
  printf"你好,$name,欢迎光临网上学园!\n";
  }
  这里第五行用eq操作符对两个字符串进行比较,相同则执行下一句,否则执行else下的语句(是不是和C语言差不多?)。

猜测密码

  现在已经可以对zmd发不同的欢迎辞,但如何加上密码来控制权限呢?比如说,可以让除zmd以外的人都必须输入密码直到正确为止:
  #!/usr/bin/perl
  $password="wsxy";#密码为wsxy
  printf"请问您的姓名?";
  $name=<STDIN>;
  chop($name);
  if($nameeq"zmd"){
  printf"欢迎zmd进入本系统!\n";
  }else{
  printf"你好,$name!\n请输入密码:";
  $guess=<STDIN>;
  chop($guess);
  while($guessne$password){
  printf"密码错误,请重新输入:";
  $guess=<STDIN>;
  chop($guess);
  }
  }
  这里先将密码保存在标量变量$password中,然后当不是zmd登录后,先显示欢迎语句,然后要求输入密码,通过ne操作符将输入结果和$password相比较,密码相同则退出,不同则一直循环下去。
 

【编辑推荐】

  1. 用Perl POE实现端口重定向
  2. 浅谈配置Eclipse支持Perl脚本开发
  3. 用Perl和Google Earth创建可用性地图
  4. 在 Perl/Tk 中使用高级窗口小部件
  5. 让Perl成为你的嵌入式开发工具

  
 

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-19 16:56:56

Perl线程

2010-08-05 14:51:36

AdobeFlex

2010-07-26 16:54:15

Perl引用

2010-07-13 09:02:16

Perl

2010-07-20 09:05:08

Perl类

2010-07-15 17:50:47

Perl模式

2010-07-30 10:23:46

Flex数据绑定

2010-07-15 15:47:46

Perl守护进程

2010-09-13 13:27:25

CSS滤镜

2010-07-14 11:27:42

Perl多进程

2010-07-14 15:05:21

Perl文件句柄

2010-07-16 17:12:58

Perl析构函数

2010-09-16 14:29:08

Java虚拟机

2010-06-10 18:27:00

UML语言

2010-08-10 10:32:02

Flex语言

2010-07-13 09:58:51

Perl关联数组

2010-06-07 13:02:46

Hadoop简介

2010-09-17 09:19:08

Java API

2010-07-20 16:25:50

Perl正则表达式

2010-06-07 17:40:09

UML
点赞
收藏

51CTO技术栈公众号