perl文档格式.docx

perl文档格式.docx

《perl文档格式.docx》由会员分享，可在线阅读，更多相关《perl文档格式.docx（15页珍藏版）》请在冰豆网上搜索。

3）、字符串比较运算符 

lt（小于）、gt（大于）、eq（等于）、le（小于等于）、ge（大于等于）、ne（等于）、cmp（比较） 

（1）字符串的比较原则：

按照字母表的顺序比较，数字<

大写字母<

小写字母（a小—z大） 

（2）字符串比较的次序：

字符串从左到右比较。

azz'

‘bc'

（即：

首先a与b进行比较，然后z与c进行比较） 

（3）当一个串是另一个的前缀时，长度长的为大。

dog<

doghouse 

（4）字符串可以从右向左进位，且是字母数字分别进行 

（5）自动把操作数转化为字符串。

123lt45=>

'

123'

lt'

45'

（6）cmp等同于<

，结果为-1,0,1 

$str1=”a”，$str2=”a“，则print（$str1cmp$str2）==>

0 

$str1=”a”，$str2=”b”，则print（$str1cmp$str2）===>

-1 

$str1=”b”，$str2=”a”，则print（$str1cmp$str2）===>

1 

（7）空串，0，Undef，这三种情况都为假 

如下比较的结果 

35!

=30+5 

#假 

35==35.0 

#真 

35'

eq'

35.0'

#假（当成字符串来比较） 

fred'

lt 

barney'

free'

eq"

fred"

eq 

"

Fred"

gt 

#真

4）、字符串连接（.）、字符/字符串重复（x） 

（1）连接（“.“），例如：

$a=‘a'

.'

b'

=>

‘ab'

在print时可以直接写print$a$b=>

print$a.$b;

但是这两者的原理是不一样的 

（2）重复（“x”），注意：

前后有空格（目的：

为了和变量名分开），例如：

‘a'

x 

5=‘aaaaa'

，若重复次数<

1，则返回空串 

"

5"

x4，即为：

5555"

love"

x（4+1），即为：

lovelovelovelovelove"

4.8"

4.84.84.84.8"

6.1x3，即为：

6.16.16.1"

即：

左边是一个字符串，右边是该字符串出现的次数

5）、逻辑运算符（&

&

（and）（与）、||（or）（或）、!

（not）（非）、xor（异或） 

（1）先算左边的值，后算右边的值 

（2）&

和and的优先级不同，但除非特殊情况，很难有区别

6）、位操作运算符 

（按位与）、|（按位或）、~（按位非）、^（按位异或）、<

（左移）、>

>

（右移） 

（1）操作数为二进制整数，如果是小数则截取为整数 

左移，移开后空位补0，值为原数值的2*N倍（例如：

z<

4，则z=z*（2的4次方）） 

（3）>

右移，首位补0，值为原值一半（并取整）（例如：

z>

4，则z=z/（2的的次方））

7）、赋值运算符 

=、+=、-=、*=、/=、%=、**=、&

=、|=、^=、.= 

（1）$a+=1=>

$a=$a+1 

（2）可以连等$a=$b=3;

$a=3;

$b=3;

（3）混用（$a=$b）+=3;

$a=$b;

$a=$a+3;

（不建议使用）

8）、自增（++）、自减（--） 

（1）不要在变量两边都使用此种操作符：

++$var-- 

（2）不要在变量自增/减后在同一表达式中再次使用：

$var2=$var1+++$var1;

（3）可用于字符串的自增，当z、Z、9时进位。

$a=‘caz'

$a++;

==>

$a=‘cba'

（4）不能用于字符串的自减，当$a--时，按数字运算，字符先转化为0再自减 

（5）如果字符串含有非字母数字符号，或数字位于字母中时，自增也先化为0再自增 

$a=‘ab*c'

$a=1;

$a=‘ab5c'

$a=1；

（6）预增$b=++$a，$a先自增再赋值，后增$b=$a++；

$a先赋值再自增；

反之，同理 

$a=1;

$b=++$a;

$a=2,$b=2;

$b=$a++;

$a=2,$b=1;

（7）只能用于单一变量，不能对运算后的变量进行。

（$a+$b）++

9）、逗号（相当于：

将两条语句写在一行） 

适用范围：

只有当两个语句关联紧密时才使用 

$a+=1，$b=$a;

$a+=1;

$b=$a;

$a="

ab5c"

print$a."

\n"

10、条件运算符 

条件？

真：

假 

（1）三个操作数：

先对条件表达式运算，为真时执行：

的左边的运算，为假时执行：

的右边的运算 

$result=$var==0?

14:

7；

（2）用于简单的条件 

（3）条件表达式用在＝的左边 

$condvar==43?

$var1:

$var2=14;

$var1=14:

三、操作符优先级别（precedence--优先级） 

当一个表达式中出现几种不同的运算符，哪个先计算，哪个后计算 

（先算条件，后算赋值） 

$x=$a==$b;

（先算关系，后算赋值） 

$x==0||$y/$x>

5;

（先算除，接着算大于、接着算等于，最后算关系或） 

$result=11*2+6**2<

2;

（先算幂，再算乘，接着算加，再接着算左移，最后算赋值） 

（1）一般的优先级如下：

自增自减最高，单操作数高于多操作数，数字运算>

比较运算（数字比较与字符串比较）>

位运算>

赋值运算>

逻辑运算 

（2）数字运算：

幂>

*/>

+- 

（3）比较运算：

<

（小于）、>

（大于）高于（==与!

=）

2ScalarArray：

Perl数组变量和列表的概念，列表是包含在括号里的一序列的值，可以为任何数值，也可为空，并且列表存贮于Perl数组变量中，与简单变量不同，Perl数组变量以字符"

@"

打头。

Perl数组变量和列表

一、列表

列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：

（1,5.3,"

hello"

2），空列表：

（）。

注：

只含有一个数值的列表（如：

（43.2））与该数值本身（即：

43.2）是不同的，但它们可

以互相转化或赋值。

列表例：

（17,$var,"

astring"

）

（17,26<

2）

（17,$var1+$var2）

（$value,"

Theansweris$value"

二、Perl数组--列表的存贮

列表存贮于Perl数组变量中，与简单变量不同，Perl数组变量以字符"

打头，如：

@array=（1,2,3）;

（1）Perl数组变量创建时初始值为空列表：

（2）因为PERL用@和$来区分Perl数组变量和简单变量，所以同一个名字可以同时用于Perl

数组变量和简单变量，如：

$var=1;

@var=（11,27.1,"

）;

但这样很容易混淆，故不推荐。

1、Perl数组的存取

◆对Perl数组中的值通过下标存取，第一个元素下标为0。

试图访问不存在的Perl数组元

素，则结果为NULL，但如果给超出Perl数组大小的元素赋值，则Perl数组自动增长，原

来没有的元素值为NULL。

如：

@array=（1,2,3,4）;

$scalar=$array[0];

$array[3]=5;

#now@arrayis（1,2,3,5）

$scalar=$array[4];

#now$scalar=null;

$array[6]=17;

#now@arrayis（1,2,3,5,"

"

17）

◆Perl数组间拷贝

@result=@original;

◆用Perl数组给列表赋值

@list1=（2,3,4）;

@list2=（1,@list1,5）;

#@list2=（1,2,3,4,5）

◆Perl数组对简单变量的赋值

（1）@array=（5,7,11）;

（$var1,$var2）=@array;

#$var1=5,$var2=7,11被忽略

（2）@array=（5,7）;

（$var1,$var2,$var3）=@array;

#$var1=5,$var2=7,$var3="

（null）

◆从标准输入（STDIN）给变量赋值

$var=<

STDIN>

@array=<

#^D为结束输入的符号

2、字符串中的方括号和变量替换

$var[0]"

为Perl数组@var的第一个元素。

$var\[0]"

将字符"

["

转义，等价于"

$var"

."

[0]"

，$var被变量替换，[0]保持不变。

${var}[0]"

亦等价于"

。

$\{var}"

则取消了大括号的变量替换功能，包含文字：

${var}.

3、列表范围：

（1..10）=（1,2,3,4,5,6,7,8,9,10）

（2,5..7,11）=（2,5,6,7,11）

（3..3）=（3）

◆用于实数

（2.1..5.3）=（2.1,3.1,4.1,5.1）

（4.5..1.6）=（）

◆用于字符串

（"

aaa"

.."

aad"

）=（"

aab"

aac"

@day_of_month=（"

01"

31"

◆可包含变量或表达式

（$var1..$var2+5）

◆小技巧：

$fred="

print（（"

Hello,"

.$fred."

!

）x2）;

其结果为：

Hello,Fred!

4、Perl数组的输出：

（1）@array=（1,2,3）;

print（@array,"

结果为：

123

（2）@array=（1,2,3）;

print（"

@array\n"

5、列表/Perl数组的长度

当Perl数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。

$scalar=@array;

#$scalar=3,即@array的长度

（$scalar）=@array;

#$scalar=1,即@array第一个元素的值

以Perl数组的长度为循环次数可如下编程：

$count=1;

while（$count<

=@array）{

element$count:

$array[$count-1]\n"

$count++;

}

6、子Perl数组

@array=（1,2,3,4,5）;

@subarray=@array[0,1];

#@subarray=（1,2）

@subarray2=@array[1..3];

#@subarray2=（2,3,4）

@array[0,1]=（"

string"

46）;

#@array=（"

46,3,4,5）now

@array[0..3]=（11,22,33,44）;

#@array=（11,22,33,44,5）now

@array[1,2,3]=@array[3,2,4];

#@array=（11,44,33,5,5）now

@array[0..2]=@array[3,4];

#@array=（5,5,"

5,5）now

可以用子Perl数组形式来交换元素：

@array[1,2]=@array[2,1];

7、有关Perl数组的库函数

（1）sort--按字符顺序排序

@array=（"

this"

is"

a"

test"

@array2=sort（@array）;

#@array2=（"

@array=（70,100,8）;

@array=sort（@array）;

#@array=（100,70,8）now

（2）reverse--反转Perl数组

@array2=reverse（@array）;

@array2=reversesort（@array）;

（3）chop--Perl数组去尾

chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。

而如果它作用到Perl数组上，则将Perl数组中每一个元素都做如此处理。

@list=（"

rabbit"

12345"

quartz"

chop（@list）;

#@list=（"

rabbi"

1234"

quart"

）now

（4）join/split--连接/拆分

join的第一个参数是连接所用的中间字符，其余则为待连接的字符Perl数组。

$string=join（"

#结果为"

thisisastring"

words"

and"

:

@list,"

colons"

words:

and:

@array=split（/:

/,$string）;

3HashArray（AssociativeArray）：

perlhash常见用法 

基本用法 

#初始化%h为空数组%h={};

#用数组初始化%h为a=>

1,b=>

2%h=（'

1,'

2）;

#意义同上，只是另一种更形象化的写法。

%h=（'

1,'

2）;

#如果key是字符串，可以省略引号。

下面这行和上面那行是一样的%h=（a=>

#用{}来访问print"

$h{a}\n"

#打印1$h{b}='

2b'

print"

$h{b}\n"

#打印2b#删除key用deletedelete$h{b};

#从$h删除'

清空hash 

undef%h

得到hash的所有键值 

#得到所有keys，顺序取决于hash函数，或者说是乱序 

@all_keys=keys%h;

#所有键值，是按hash的值从大往小排列的。

值的比较是数字比较（比如说，10>

9） 

@all_keys=sort{$h{$b}<

$h{$a}}（keys%h）;

#所有键值，是按hash的值从小往大排列的。

值的比较是数字比较 

@all_keys=sort{$h{$a}<

$h{$b}}（keys%h）;

值的比较是字符串比较（比如说，'

10'

9'

） 

@all_keys=sort{$h{$a}cmp$h{$b}}（keys%h）;

判断hash是否包含key 

exists（$h{$key}）;

Hash的长度 

想要知道一个hash存放多少数据 

$hash_size=keys%h 

#把%h的长度放到$hash_size中 

printscalarkes%h,"

#打印%h的长度。

这里用了scalar来返回数组长度。

遍历一个hash 

while（my（$k,$v）=each%h）{print"

$k--->

$v\n"

Reference引用 

Reference类似于C/C++的指针 

$h_ref=\%h;

#获得一个hash的reference%aHash=%{$h_ref};

#把hashreference当成hash用$value=$h_ref->

{akey} 

#这个和%h{akey}是一样的

传递hash到函数 

一般都是传递一个reference到函数

%h=（）;

$h{a}=1;

foo（\%h）print$h{b},"

#打印出2。

这个值来自于函数foo（）subfoo{my（$h）=@_;

print$h->

{a},"

#打印出1$h->

{b}=2;

函数返回hash，或者hash引用（hashreference） 

函数可以返回hash 

subfoo{my%fh;

$fh{a}=1;

return%h;

}my%h=foo（）;

print

二 

控制结构（ControlStatements） 

1 

选择 

if结构 

Perl的条件控制叙述和C语言很像，让使用者很快就能掌握它。

不过Perl比C语言又另外多了些实用的语法，我用底线标出来，大家一看便知。

#Expression就是条件叙述式，Perl和C一样没有定义布尔数据型态（Booleandatatype）， 

#因此0是false、非0是ture。

另外要注意字符串运算子和数值运算子要分清楚哦。

#CodeSegment就是用大括号括起来的一堆指令，也就是一个Block。

if（Expression）{CodeSegment} 

if（Expression）{CodeSegment}else{CodeSegment} 

if（Expression）{CodeSegment}elsif（Expression）{CodeSegment}else{CodeSegment} 

#elsif就是elseif 

#如果指令（statement）只有一项，我们可以使用倒装句法，看起来比较简洁。

statementif（Expression）;

#unless就是ifnot 

statementunless（Expression）;

例：

HELLO!

if（$nameeq"

friend"

$x-=10if（$x==100）;

看吧!

C语言有的Perl大部分都有，学过C的人可以毫不费力的学会Perl。

2循环结构 

Perl的循环控制叙述也和C语言很像，当然，照例Perl也另外多了些实用的语法：

#注意：

纯量变数前面要加个$字号，这一点和C语言不一样哦。

for（$i=0;

$i<

=10;

$i++）{CodeSegment}

#foreach是承袭UNIX的shellscript来的， 

#第一个自变量是纯量变数，第二个自变量要用括号括起来，里面是一个纯量数组， 

#顾名思义它就是把数组中的每个元素依序传给第一个自变量，直到全部传完。

#它和for（$i=0;

=$#array;

$i++）用法虽然不同，但目的都是要取出数组的每个元素。

foreach$i（@array）{CodeSegment} 

#其实在Perl中，for和foreach是可以混着用的，就看个的人习惯了。

#下面这行就等于上面第一个叙述，不过简洁多了，大家可以试着用用看。

for$i（0..10）{CodeSegment}

#while控制循环和后置循环。

while（$i<

=10）{CodeSegment} 

do{CodeSegment}while（Expression）;

#Perl也有和C语言的break和continue一样的指令，Perl叫它做last和next（较口语化）。

#last是跳出现在所在的循环，next则是跳过下面的指令直接执行下一次的循环。

while（chomp（$i=））{ 

nextif（$i==5）;

lastunless（$i>

10）;

Perl还有提供label（标记）的语法，也就是goto指令，不过有经验的programer并不喜欢用它，我也不建议大家使用，所以就此按下不讲。

有兴趣的人请自行查阅。

还有一点值得注意的是Perl没有提供像C语言一样的switch叙述，不过Perl的patternmatch的功能非常强，所以我建议你直接用ifelse叙述来做就好了。

3子程序（Subroutines） 

（a）Syntax:

subNAME{Code} 

（b）呼叫子程序：

&

NAME（para1,para2,...） 

（c）参数传递：

@_ 

Perl和C一样是采用Callbyvalue的方式，不过因为Perl不用事先宣告变量，所以建立子程序的时候也不用宣告要