Perl概述

发表于:2007-06-11来源:作者:点击数: 标签:
Perl 是 Practical Extraction and Report Language( 实用摘录和报告语言 ) 的简称,是由 Larry Wall 所发展的。其最新版本为 5.6 。 Perl 的设计目标是帮助 UNIX 用户完成一些常见的任务,这些任务对于 shell 来说过于沉重或对移植性要求过于严格。 Perl 是

PerlPractical Extraction and Report Language(实用摘录和报告语言)的简称,是由Larry Wall所发展的。其最新版本为5.6Perl的设计目标是帮助UNIX用户完成一些常见的任务,这些任务对于shell来说过于沉重或对移植性要求过于严格。

Perl是按GNU Public License的形式分发的,其实质是免费的,原先运行于UNIX和类UNIX系统,现在已可以方便地在OS/2Windows 9xWindows/NT等系统下运行。

Perl是解释运行的,一般Perl程序的第一行需注明自己是一个Perl程序而不是shell程序,所以一般将下面一行语句:

#! /usr/bin/perl

作为文件的第一行。


第一个Perl程序


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


#! /usr/bin/perl

print "
你好! 欢迎光临网络教室
! \n";

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


MILY: 宋体; mso-bidi-font-family: 宋体">提问并保留结果


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


#!/usr/bin/perl

print "
请问您的姓名
?";

$name=;

chop($name);

print "
你好, $name,欢迎光临网上学园
!\n";

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


增加选择


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


#!/usr/bin/perl

print "
请问您的姓名
?";

$name=;

chop($name);

if ($name eq "zmd"){

print "
欢迎zmd进入本系统
!\n";

} else {

print "
你好, $name,欢迎光临网上学园
!\n";

}

这里第五行用eq操作符对两个字符串进行比较,相同则执行下一句,否则执行else下的语句(是不是和C语言差不多?)。


猜测密码

现在已经可以对zmd发不同的欢迎辞,但如何加上密码来控制权限呢?比如说,可以让除zmd以外的人都必须输入密码直到正确为止:

#!/usr/bin/perl

$password="wsxy"; #
密码为
wsxy

print "
请问您的姓名
?";

$name=;

chop($name);

if ($name eq "zmd"){

print "
欢迎zmd进入本系统
!\n";

} else {

print "
你好, $name!\n 请输入密码:
";

$guess=;

chop($guess);

while ($guess ne $password){

print "
密码错误,请重新输入:
";

$guess=;

chop($guess);

}

}

这里先将密码保存在标量变量$password中,然后当不是zmd登录后,先显示欢迎语句,然后要求输入密码,通过ne操作符将输入结果和$password相比较,密码相同则退出,不同则一直循环下去。



原文转自:http://www.ltesting.net

...