perl简要教程

第一课、Perl 概述

• Perl概述
• 第一个Perl程序
• 提问并保留结果
• 增加选择
• 猜测密码

　　别期望在一刻钟内就能领略Perl的所有神奇之处, 这种情况很像吃香蕉, 用不着吃完整只香蕉后才知其味，每咬一口都是享受，并促使你再咬下一口，再下一口。
　　　　　　　　　　　　　　　　　　　　　　----Larry Wall

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相比较，密码相同则退出，不同则一直循环下去。

二、数组

    数组是标量数据的有序列表。

    数组可以含任意多个元素。最小的数组可以不含元素，而最大的数组可以占满全部可用内存。

    数组实量(array literal)是位于括号内用逗号分开的一系列值。如：

    （1,2,3,4,5）#具有1,2,3,4,5五个数值的数组
    （"zmd",1974,173.5）#具有"zmd",1974,173.5三个数值的数组
    （）#空数组
    （$a,5）#两个数值：$a的值和5
    （$a+$b,6）#两个数值

    数组变量具有单独的数组值，要以@打头而不是$。如：

    @zmd

    注意@zmd与$zmd没任何联系。Perl为对象的不同类型保留独立的命名空间。

    数组的赋值和标量赋值一样，也用等号表示。Perl根据赋值对象是标量还是数组变量来确定赋值操作是标量赋值还是数组赋值。

    若数组实量中只含有变量引用(不是表达式)，则此数组实量也可作为变量使用。它可以用在赋值运算符的左边。例如：

    ($a,$b,$c)=(1,2,3) #将1赋给$a，2赋给$2，3赋给$3

    如果把数值变量赋给标量变量，则赋给标量变量的就是数组长度，如：
    @zmd=(1,2,3) # 将(1,2,3)赋给@zmd
    $a=@zmd # $a为3，即@zmd的数组个数

    数组元素的访问和C语言中类似，下标是按顺序整数排列的，编号从0开始。

    ($a,$b,$c)=(1,2,3) #将1赋给$a，2赋给$2，3赋给$3

    如果把数值变量赋给标量变量，则赋给标量变量的就是数组长度，如：
    @zmd=(1,2,3) # 将(1,2,3)赋给@zmd
    $a=@zmd # $a为3，即@zmd的数组个数

    综合举例

三、关联数组

    关联数组和前面说的数组类似，它包含标量数据，可用索引值来单独选择这些数据，和数组不同的是， 关联数组的索引值不是非负的整数而是任意的标量。这些标量称为Keys，可以在以后用于检索数组中的数值。

    关联数组的元素没有特定的顺序，你可以把它们想象为一组卡片。每张卡片上半部分是索引而下半部分是数值。

    关联数组是Perl语言中特有的，关联数组是一个功能强大的数组。使用关联数组时要在前面加上%号，关联数组的格式如:

%ARRAY=(key1,value1,key2,value2,key3,value3);

    每一个key都有一个相对应的值(value)。

    和数组类似，$zmd,@zmd,%zmd之间没有任何联系。Perl为对象的不同类型保留独立的命名空间。

    下面介绍关联数组的操作：

1. 在关联数组中增加、更改一对数据：ARRAY={key}=value; 在关联数组ARRAY中加上一对key-value,要在关联数组名称前加上$号，而且key的名称要在{}符号之间，最后再指定key所对应的value值。如果在这个关联数组中已经有这个key了.就会更改这个key所对应的value。
2. keys(%array)操作符可生成由关联数组%array中的所有当前关键字组成的列表。即返回奇数个元素(第1,3,5,7...个)的列表。
3. values(%array)操作符返回由关联数组%array中所有当前值组成的列表，即返回偶数个列表。
4. echo(%array)操作符返回由一个关键字和一个值对构成的两个元素的表。对同一数组再操作时返回下一对值直至结束。若没有更多的对时，echo()返回空表。 (这在打印全部列表中很有用)
5. 删除一对在关联数组中的数据：delete $ARRAY{key};delete 是 Perl 所提供的函数，作用是删除关联数组中的一个key以及这个 key 所对应的 value。使用方法是 在 delete 函数之后，指定关联数组中要删除的key名称。

关联数组的综合举例：

第五课、Perl的运算符号字符

赋值(Assignment)运算符
算术(Arithmetic)运算符
数值(Numeric Values)关系运算符
字符串(String Values)关系运算符
逻辑(Logical)运算
其它常用的运算符
常用的文件数据(File test)运算符

赋值(Assignment)运算符

符号

范例

说明

=

$x=$y;

将$x的值指派给$y

+=

$x+=$y;
$x=$x+$y;

将$x加$y之后再指派给$x

-=

$x-=$y;
$x=$x-$y;

将$x减$y之后再指派给$x

*=

$x*=$y;
$x=$x*$y;

将$x乘$y之后再指派给$x

/=

$x/=$y;
$x=$x/$y;

求出$x除以$y之后的商数,再指派给$x

**=

$x**=$y;
$x=$x**$y;

将$x乘上$y次方之后再指派给$x

%=

$x%=$y;
$x=$x%$y;

求出$x除以$y的余数以后,再指派给$x

.=

$str1.=$str2;
$str1=$str1.$str2;

将$str1这个字符串再加上$str2这个字符串之后,再指派给$str1这个字符串

x=

$strx=$y;
$str=$strx$y;

重复$str字符串$y次,并反结果指派给str这个字符串

算术(Arithmetic)运算符  

符号

范例

说明

+

$z=$x+$y

将$x和$y相加之后,再将结果指派给$z

-

$z=$x-$y

将$x减掉$y之后,再将结果指派给$z

*

$z=$x*$y

将$x和$y相乘之后,再将结果指派给$z

/

$z=$x/$y

将$x除以$y之后,再将商数指派给$z

%

$z=$x%$y

将$x除以$y之后,再将余数指派给$z

**

$z=$x**$y

将$x乘以$y之后,再将结果指派给$z

++

$x++;++$x;

如同$x=$x++1;将$x加一以后再将结果指派给$x

--

$x--;--$x;

如同$x=$x-1;将$x减一以后再将结果指派给$x

.

$z=$x.$y;

将$x字符串和$y字符串连接之后,再将结果指派给$z

数值(Numeric Values)关系运算符

符号

范例

说明

> 

$x>$y

如果$x大于$y,返回1的值,否则返回0

>=

$x>=$y

如果$x大于等于$y,返回1的值,否则返回0

< 

$x<$y

如果$x小于$y,返回1的值,否则返回0

<=

$x<=$y

如果$x小于等于$y,返回1的值,否则返回0

==

$x==$y

如果$x等于$y,返回1的值,否则返回0

!=

$x!=$y

如果$x不等于$y,返回1的值,否则返回0

<=>

$x<=>$y

如果$x大于$y,返回1的值,如果$x等于$y,否则返回0;&127;如果 $x小于$y,则返回-1的值

字符串(String Values)关系运算符

符号

范例

说明

gt

$str1 gt $str2

如果$str1大于$str2,返回1的值,否则返回0

ge

$str1 ge $str2

如果$str1大于等于$str2,返回1的值,否则返回0

lt

$str1 lt $str2

如果$str1小于$str2,返回1的值,否则返回0

le

$str1 le $str2

如果$str1小于等于$str2,返回1的值,否则返回0

eq

$str1 ep $str2

如果$str1等于$str2,返回1的值,否则返回0

ne

$str1 ne $str2

如果$str1不等于$str2,返回1的值,否则返回0

cmp

$str1 cmp $str2

如果$str1大于$str2,返回1的值,如果$str1等于$str2,返回0,如果$str1小于$str2,则返回-1的值

逻辑(Logical)运算

1 $x&&$y(And)

$x $y 结果

真(True) 真(True) 真(True)

真(True) 假(False) 真(True)

假(False) 真(True) 假(False)

假(False) 假(False) 假(False)

2 $x||$y(Or)

$x $y 结果

真(True) 真(True) 真(True)

真(True) 假(False) 真(True)

假(False) 真(True) 真(True)

假(False) 假(False) 假(False)

3 $x(Not)

$x 结果

真(True) 假(False)假(False) 真(True)

其它常用的运算符

指令:..区块运算符(Range Operator)

说明:这个运算符是Perl语言中特有的运算符,是一个很实用的运算符.

范例:

@digits=(1..9); #此时@digits=(1,2,3,4,5,6,7,8,9);
@digits=('01'..'05'); #此时@digits=(01,02,03,04,05);
@char=('A'..'E'); #此时@char('A','B','C','D','E',);
@total=(1..3,'A'..'B'); #此时@total=(1,2,3'A','B');

指令: 判别运算式?运算1:运算式2 条件运算符(Conditional Operator)

说明: 这个语法的意义和C语言一样,如果判别运算式的值是真(True)的话,则做运算 ,1的运算,如果判别运算式是假(False)的话,则做运算式2的运算.

范例:

$price=($age>60)? 100:200;
如果$age大于60的话,则$price等于100,否则$price等于200.

常用的文件数据(File test)运算符

范例

说明

-r $file

如果$file是可读取的话,返回1的值

-w $file

如果$file是可写入的话,返回1的值

-x $file

如果$file是可执行的话,返回1的值

-e $file

如果$file存在的话,返回1的值

-o $file

如果$file是被执行才所拥有的话,返回1的值

-s $file

返回$file的文件大小(bytes)

-f $file

如果$file是正常文件的话,返回1的值

-T $file

如果$file是文本文件的话,返回1的值

-B $file

如果$file是Binary文件的话,返回1的值

-M $file

返回$file文件最后一次更改时间到现在的日期数

第六课、Perl的基本输入输出

从STDIN输入

　　从标准输入设备读取数据是很容易的，我们已经从第一课上就使用<STDIN>操作符了。例如：
　　　$name=<STDIN>;

　　在数组环境中，可把所有剩余的行作为一列表返回。如：
　　　@name=<STDIN>;

　　此时，需要读入多行，然后再对各行分别处理。通常做法是：
　　　while($_=<STDIN>){
　　　　chop($_);
　　　　#处理$_(每一行)
　　　}

　　上述程序可简化为：
　　　while(<STDIN>){
　　　　chop; #等同于chop($_)
　　　　处理$_(每一行)
　　　}

　　因为$_是许多操作符的缺少变量。

从<>输入
　　读取输入的另一种方法是使用<>。<>是从Perl程序命令行所指定的文件中读取数据。例如有个文件名为pro1的程序：
　　　#!/usr/bin/perl;
　　　while(<>){
　　　　print $_;
　　　}

　　在UNIX环境中运行：
　　　pro1 file1,file2,file3

　　此时，将依次读入文件file1,file2,file3中的每一行，然后显示输出。

向STDOUT输出
　　Perl用print和printf向标准输出设备输出。
　　print操作符使用字串列表作为参数，依次把每个字符串发送给标准输出，在发送时不插入或改变任何字符。如：

　　　print "网上学园"."欢迎您!" #打印"网上学园欢迎您!"
　　　print 1+2,"你好" #打印"3你好"

　　printf操作符用于格式化输出，在C语言中有相同的功能。它使用一个参数表，第一个参数是格式控制字符串，它定义了如何打印其余参数。例如：

　　　printf "%10s% 8d%8.2f\n",$a,$b,$c

　　它的打印结果为：10个字符宽度的$a，空格，8个字符宽度的整数$b，8个字符宽度且包含两位小数的浮点数$c，最后换行。

　　注意：与前面操作符相类似，printf()的括号可以省略。