（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' #假
'fred' lt 'free' #假
'fred' eq"fred" #真
'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"x4，即为：
"4.84.84.84.8"
例如：
6.1x3，即为：
"6.16.16.1"
即：
左边是一个字符串，右边是该字符串出现的次数
5）、逻辑运算符（&&（and）（与）、||（or）（或）、!
（not）（非）、xor（异或）
（1）先算左边的值，后算右边的值
（2）&&和and的优先级不同，但除非特殊情况，很难有区别
6）、位操作运算符
&（按位与）、|（按位或）、~（按位非）、^（按位异或）、<<（左移）、>>（右移）
（1）操作数为二进制整数，如果是小数则截取为整数
（2）<<左移，移开后空位补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++; ==>$a=1;
例如：
$a=‘ab5c';$a++; ==>$a=1；
（6）预增$b=++$a，$a先自增再赋值，后增$b=$a++；$a先赋值再自增；反之，同理
例如：
$a=1;$b=++$a;=>$a=2,$b=2;
例如：
$a=1;$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;
例如：
$condvar==43?
$var1=14:
$var2=14;
三、操作符优先级别（precedence--优先级）
当一个表达式中出现几种不同的运算符，哪个先计算，哪个后计算
例如：
$condvar==43?
$var1:
$var2=14;（先算条件，后算赋值）
例如：
$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,"astring"）;
但这样很容易混淆，故不推荐。
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=;
@array=;#^D为结束输入的符号
2、字符串中的方括号和变量替换
"$var[0]"为Perl数组@var的第一个元素。
"$var\[0]"将字符"["转义，等价于"$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"）=（"aaa","aab","aac","aad"）
@day_of_month=（"01".."31"）
◆可包含变量或表达式
（$var1..$var2+5）
◆小技巧：
$fred="Fred";
print（（"Hello,".$fred."!
\n"）x2）;
其结果为：
Hello,Fred!
Hello,Fred!
4、Perl数组的输出：
（1）@array=（1,2,3）;
print（@array,"\n"）;
结果为：
123
（2）@array=（1,2,3）;
print（"@array\n"）;
结果为：
123
5、列表/Perl数组的长度
当Perl数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。
@array=（1,2,3）;
$scalar=@array;#$scalar=3,即@array的长度
（$scalar）=@array;#$scalar=1,即@array第一个元素的值
注：
以Perl数组的长度为循环次数可如下编程：
$count=1;
while（$count<=@array）{
print（"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=（"string",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=（"a","is","test","this"）
@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（"","this","is","a","string"）;#结果为"thisisastring"
@list=（"words","and"）;
$string=join（":
:
",@list,"colons"）;#结果为"words:
:
and:
:
colons"
@array=split（/:
:
/,$string）;#@array=（"words","and","colons"）now
3HashArray（AssociativeArray）：
perlhash常见用法
基本用法
#初始化%h为空数组%h={};#用数组初始化%h为a=>1,b=>2%h=（'a',1,'b',2）;#意义同上，只是另一种更形象化的写法。
%h=（'a'=>1,'b'=>2）;#如果key是字符串，可以省略引号。
下面这行和上面那行是一样的%h=（a=>1,b=>2）;#用{}来访问print"$h{a}\n";#打印1$h{b}='2b';print"$h{b}\n";#打印2b#删除key用deletedelete$h{b};#从$h删除'b'
清空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）;
#所有键值，是按hash的值从小往大排列的。
值的比较是字符串比较（比如说，'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,"\n"
#打印%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},"\n";
#打印出2。
这个值来自于函数foo（）subfoo{my（$h）=@_;print$h->{a},"\n";
#打印出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）;例：
print"HELLO!
\n"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;$i<=$#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不用事先宣告变量，所以建立子程序的时候也不用宣告要
升级会员 