文档介绍：窗体顶端窗体底端第一课:Perl概述 Perl是PracticalExtractionandReportLanguage(实用摘录和报告语言)的简称,是由LarryWall所发展的。。 Perl的设计目标是帮助UNIX用户完成一些常见的任务,这些任务对于shell来说过于沉重或对移植性要求过于严格。 Perl是按GNUPublicLicense的形式分发的,其实质是免费的,原先运行于UNIX和类UNIX系统,现在已可以方便地在OS/2,Windows9x,Windows/NT等系统下运行。 Perl是解释运行的,一般Perl程序的第一行需注明自己是一个Perl程序而不是shell程序,所以一般将下面一行语句: #!/usr/bin/perl 作为文件的第一行。第一个Perl程序就拿各类书籍最常用显示"Hello!e!"程序来说吧。下面是其源程序: #!/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