珞珈山水BBS -- 单文区文章阅读

搜索

单文区文章阅读 [返回]
发信人: wys0920 (好吃懒做加菲猫), 信区: OS 标题: 第一课 Perl 概述发信站: 珞珈山水 ( 2004年08月13日12:27:52 星期五), 站内信件 Perl概述　　Perl是Practical Extraction and Report Language(实用摘录和报告语言)的简称，是由Larry Wall所发展的。其最新版本为5.0。　　Perl的设计目标是帮助UNIX用户完成一些常见的任务，这些任务对于shell来说过于沉重或对移植性要求过于严格。　　Perl是按GNU Public License的形式分发的，其实质是免费的，原先运行于UNIX和类UNIX系统，现在已可以方便地在OS/2，Windows 9x，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 ($name eq "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 ($name eq "zmd"){ 　　 printf "欢迎zmd进入本系统!\n"; 　　} else 　　 printf "你好, $name!\n 请输入密码："; 　　 $guess=<STDIN>; 　　 chop($guess); 　　 while ($guess ne $password){ 　　 printf "密码错误，请重新输入："; 　　 $guess=<STDIN>; 　　 chop($guess); 　　 } 　　} 　　这里先将密码保存在标量变量$password中，然后当不是zmd登录后，先显示欢迎语句，然后要求输入密码，通过ne操作符将输入结果和$password相比较，密码相同则退出，不同则一直循环下去。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 -- 欢迎大家光临奥运会版面，参与奥运竞猜 http://202.113.16.117/upload/file/1092022471garfieldas.jpg ※ 来源:．珞珈山水 http://bbs.whu.edu.cn ◆ FROM: 222.132.243.214
[返回单文区目录]

单文区文章阅读 [返回]

发信人: wys0920 (好吃懒做加菲猫), 信区: OS
标题: 第一课 Perl 概述
发信站: 珞珈山水 ( 2004年08月13日12:27:52 星期五), 站内信件

Perl概述
　　Perl是Practical Extraction and Report Language(实用摘录和报告语言)的简
称，是由Larry Wall所发展的。其最新版本为5.0。
　　Perl的设计目标是帮助UNIX用户完成一些常见的任务，这些任务对于shell来说过
于沉重或对移植性要求过于严格。
　　Perl是按GNU Public License的形式分发的，其实质是免费的，原先运行于UNIX和

类UNIX系统，现在已可以方便地在OS/2，Windows 9x，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 ($name eq "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 ($name eq "zmd"){
　　 printf "欢迎zmd进入本系统!\n";
　　} else

　　 printf "你好, $name!\n 请输入密码：";
　　 $guess=<STDIN>;
　　 chop($guess);
　　 while ($guess ne $password){
　　 printf "密码错误，请重新输入：";
　　 $guess=<STDIN>;
　　 chop($guess);
　　 }
　　}
　　这里先将密码保存在标量变量$password中，然后当不是zmd登录后，先显示欢迎语

句，然后要求输入密码，通过ne操作符将输入结果和$password相比较，密码相同则退
出，不同则一直循环下去。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

--
欢迎大家光临奥运会版面，参与奥运竞猜

http://202.113.16.117/upload/file/1092022471garfieldas.jpg
※ 来源:．珞珈山水 http://bbs.whu.edu.cn ◆ FROM: 222.132.243.214

[返回单文区目录]