安藏理工大学 ANHUI UNIVERSITY OF SCIKNCE TECHNOLOGY Section 4 Perl programming 3
3 Section 4 Perl programming
安藏理工大学 ANHUI UNIVERSTTY OF SCIENCE TECHNOLOGY 4.1编写第一个Perl程序 >第一步：选择一个自己喜欢的编译器，例如我们选择编 辑器。 >第二步：在编辑器中输入Perl程序：vi helloworld..pl >代码如下：helloworld.pl >#!/usr/bin/perl > print "Hello,word!In"; >第三步：设置该文件为可执行文件： > chmod +x helloworld.pl >第四步：运行程序即可： > $./helloworld.pl 4
4 4.1 编写第一个Perl程序 ➢ 第一步：选择一个自己喜欢的编译器，例如我们选择vi编 辑器。 ➢ 第二步：在编辑器中输入Perl程序：vi helloworld.pl ➢ 代码如下：helloworld.pl ➢ #! /usr/bin/perl ➢ print “Hello,word!\n”; ➢ 第三步：设置该文件为可执行文件： ➢ chmod +x helloworld.pl ➢ 第四步：运行程序即可： ➢ $./helloworld.pl
安藏理工大学 4.1.1提问并保留结果 >在此基础上做稍微复杂一点的改变，我们使该程序按你的 名字打招呼。要做到这一点，需要一个变量来存放姓名 我们使用$name来保存姓名。 #!/usr/bin/perl printf"请问您的姓名？"； $name=<STDIN>; chop(Sname); printf"你好，$name,欢迎光临n"; 这里第三行表示从终端获得行输入并赋值给$name, 这里的$name的值有一个换行符，第四行chop($name) 表示去掉$name的最后一个字符（即换行符）。第五行显示 输入。 5
5 4.1.1 提问并保留结果 ➢ 在此基础上做稍微复杂一点的改变，我们使该程序按你的 名字打招呼。要做到这一点，需要一个变量来存放姓名。 我们使用$name来保存姓名。 #!/usr/bin/perl printf "请问您的姓名?"; $name=<STDIN>; chop($name); printf "你好, $name，欢迎光临!\n"; 这里第三行表示从终端获得行输入并赋值给$name， 这里的$name的值有一个换行符，第四行chop($name) 表示去掉$name的最后一个字符(即换行符)。第五行显示 输入
安藏理工大学 ANHUI UNIVERSITY OF SCIENCE TECHNOLOGY 4.1.2增加选择 现在让我们为admin编写一个特殊的欢迎辞，而对其他人则采用 普通欢迎辞。要达到这样的效果必须将输入的姓名与admin作比较， 如果相同则执行特殊功能。 #!/usr/bin/perl printf"请问您的姓名？"； $name=<STDIN>; chop($name); if($name eq“admin)K printf"欢迎admin:进入本系统n"; }else printf"你好，$name,欢迎光临ln"; 这里第五行用eq操作符对两个字符串进行比较，相同则执行下 一句，否则执行else下的语句（是不是和C语言差不多？）。 6
6 4.1.2 增加选择 ➢ 现在让我们为admin编写一个特殊的欢迎辞，而对其他人则采用 普通欢迎辞。要达到这样的效果必须将输入的姓名与admin作比较， 如果相同则执行特殊功能。 #!/usr/bin/perl printf "请问您的姓名?"; $name=<STDIN>; chop($name); if ($name eq “admin"){ printf "欢迎admin进入本系统!\n"; } else { printf "你好, $name，欢迎光临!\n"; } 这里第五行用eq操作符对两个字符串进行比较，相同则执行下 一句，否则执行else下的语句(是不是和C语言差不多？）
安藏理工大学 4.1.3猜测密码 >现在已经可以对admin发不同的欢迎辞，但如何加上密码 来控制权限呢？比如说，可以让除admin以外的人都必须 输入密码直到正确为止： #!/usr/bin/perl $password=:"wsxy";#密码为wsXy printf"请问您的姓名？"； $name=<STDIN>; chop(Sname); if($name eq“admin")K printf"欢迎admin进入本系统n", 7
7 4.1.3 猜测密码 ➢ 现在已经可以对admin发不同的欢迎辞，但如何加上密码 来控制权限呢？比如说，可以让除admin以外的人都必须 输入密码直到正确为止： #!/usr/bin/perl $password="wsxy"; #密码为wsxy printf "请问您的姓名?"; $name=<STDIN>; chop($name); if ($name eq “admin"){ printf "欢迎admin进入本系统!\n";