安徽理工大學计算机科学与工程学院.pptVIP

Outline 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($name);　　printf 你好, $name，欢迎光临!\n;　　这里第三行表示从终端获得行输入并赋值给$name，这里的$name的值有一个换行符，第四行chop($name)表示去掉$name的最后一个字符(即换行符)。第五行显示输入。 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($name);　　if ($name eq “admin){　　 printf 欢迎admin进入本系统!\n;　　 } else { 　　 printf 你好, $name!\n 请输入密码：;　　 $guess=STDIN;　　 chop($guess);　　 while ($guess ne $password){　　 printf 密码错误，请重新输入：;　　 $guess=STDIN;　　 chop($guess);　　 } 这里先将密码保存在标量变量$password中，然后当不是zmd登录后，先显示欢迎语句，然后要求输入密码，通过ne操作符将输入结果和$password相比较，密码相同则退出，不同则一直循环下去。 当运行程序时，Perl的内部编译器首先遍历整个源程序，把它转变为内部的字节码 ，它是程序的一种内部数据结构。Perl的字节码引擎将运行这些字节码。 4.2 标量数据 标量是 Perl 中最简单的数据类型。大多数的标量是数字（如 255 或 3.25e20）或者字符串 （如 hello◆或者盖茨堡地址） 。 标量数据可有操作符（如相加和串联），通常会产生一个新的标量数据。标量数据的值可以存放在标量变量中。标量可以从文件或设备读取，也可以写进去。 4.2.1所有数字内部的格式一致 整数(如 255，2001 等)和浮点数（有小数点的实数，如 3.14159 ，1.35x1025），在Perl中 都当作双精度浮点数来处理。这就是说在 Perl 内部没有整数值。程序中的整数被当做等价的浮点数来处理。程序运行时，也许注意不到这种转换，不应当寻找只属于整数的操作符（不能被浮点数使用的），因为它们不存在 。 4.2.2浮点数 数字符号（literal）是 Perl 程序源代码中代替某个值的方法。数字符号不是计算或 I/O 操作的结果 ，它是直接写进代码中的数据。 有或没有小数点的数字都是允许的（包括+或-号），也可带一个十进制的指数（符号为 E） 1.25 255.000 255.0 7.25e45 #7.25x10 的 45 次方(一个大整数 ) -6.5e24 # -6.5x10 的 24 次方（一个大的负数） -12e-24 #- -12x10 的-24 次方（很小的负数 ） -1.2E-23 #指数符号可以大写(E) 4.2.3 整数