九思杂记
首页›文章›perl 基本语法

perl 基本语法

计算机技术 · perl 程序开发2014-04-100次浏览0 个评论

一．数据类型(Data type)：
Perl 的数据类型大致分为四种：Scalar（变量）、Scalar Array（数组）、Hash Array（散列）、References（指针），看起来虽少但用起来却绰绰有余。尤其在写Perl程序时可以不必事先宣告变量，这一点对刚学程序语言的人甚为方便，不过为了以后程序除错和维护方便，我建议你还是养成事先声明变量的习惯比较好。
1 Scalar（纯量变量）：
纯量变量是Perl里最基本的一种数据型态，它可以代表一个字符、字符串、整数、甚至浮点数，而Perl把它们都看成是一样的东东! 你甚至可以混着用，不可思议吧。例如：

纯量变数以$开头。

my 是一种宣告变量的方式，它可以使变量区域化。

宣告变量时若不加 my 或 local 则Perl会把它当作全域变量使用。

习惯上，我们会将字符串用双引号括起来，而数值就不用加引号。

perl
my $x="abc";
my $x=123;
my $x=4.56;

1-1 常用的操作运算符
1)、算术运算符
+(加)、-(减)、*(乘)、/(除)、**(幂)、%(余)、-(负)
（1）求幂（） 结果不能超出数的范围。当指数为小数时，底数不能为负数，例如：251.5=125，(-25)**1.5=?（不成立）
（2）取余（%） 操作数为整数，否则要截取。第二个数不能为0（因为除数不能为0）
（3）负（-） -a=a=a*(-1)
此外，注意当一个字符串参加运算，需要转化为整数时，如果不能转化为整数则值为0。例如：'2'+1=3，'a'+1=1
2)、数字比较运算符
（大于）、==（等于）、=（大于等于）、!=（不等于）、（比较）
（1）==：比较运算，比较的结果为真或非零，假或零
（2）：比较运算 例如：aab，当a>a>b时，值为1；当$a '123' lt '45'
（6）cmp等同于，结果为-1,0, 1
例如：$str1=”a”，$str2=”a“，则print (str1cmpstr1 cmpstr2) ==> 0
例如：$str1=”a”，$str2=”b”，则print(str1cmpstr1 cmpstr2)===> -1
例如：$str1=”b”，$str2=”a”，则print(str1cmpstr1 cmpstr2)===> 1
（7）空串，0，Undef，这三种情况都为假
例如：如下比较的结果

text
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 aab=>print a.a.b; 但是这两者的原理是不一样的
（2）重复（ “x” ），注意：前后有空格（目的：为了和变量名分开），例如：‘a' x 5=‘aaaaa'，若重复次数>（右移）
（1）操作数为二进制整数，如果是小数则截取为整数
（2）>右移，首位补0，值为原值一半（并取整）（例如：z>>4，则z=z/（2的的次方））
7)、赋值运算符
=、+=、-=、*=、/=、%=、**=、&=、|=、^=、.=
（1）a+=1=>a+=1=>a=$a+1
（2）可以连等a=a=b=3;=>a=3;a=3;b=3;
（3）混用 (a=a=b)+=3;=>a=a=b;a=a=a+3;（不建议使用）
8)、自增（++）、自减（--）
（1）不要在变量两边都使用此种操作符：++$var--
（2）不要在变量自增/减后在同一表达式中再次使用：var2=var2 =var1 + ++$var1;
（3）可用于字符串的自增，当z、Z、9时进位。a=‘caz′;a=‘caz';a++; ==> $a=‘cba';
（4）不能用于字符串的自减，当$a--时，按数字运算，字符先转化为0再自减
（5）如果字符串含有非字母数字符号，或数字位于字母中时，自增也先化为0再自增
例如：a=‘ab∗c′;a=‘ab*c';a++; ==> $a=1;
例如：a=‘ab5c′;a=‘ab5c';a++; ==> $a=1；
（6）预增b=++b=++a，$a先自增再赋值，后增$b=$a++；$a先赋值再自增；反之，同理
例如：a=1;a=1;b=++a;=>a; =>a=2,$b=2;
例如：a=1;a=1;b=a++;=>a++; =>a=2,$b=1;
（7）只能用于单一变量，不能对运算后的变量进行。例如：(a+a+b)++
9)、逗号（相当于：将两条语句写在一行）
适用范围： 只有当两个语句关联紧密时才使用
例如：$a+=1，$b=a;=>a; =>a+=1; b=b=a;
例如：a="ab5c",printa="ab5c", printa."n";
10、条件运算符
条件？ 真：假
（1）三个操作数：先对条件表达式运算，为真时执行：的左边的运算，为假时执行：的右边的运算
例如：result=result =var == 0 ? 14 : 7；
（2）用于简单的条件
（3）条件表达式用在＝的左边
例如：condvar==43?condvar == 43 ?var1 : $var2 = 14;
例如：condvar==43?condvar == 43 ?var1 = 14 : $var2 = 14;
三、操作符优先级别（ precedence--优先级）
当一个表达式中出现几种不同的运算符，哪个先计算，哪个后计算
例如：condvar==43?condvar == 43 ?var1 : $var2 = 14;（先算条件，后算赋值）
例如：x=x =a == $b;（先算关系，后算赋值）
例如：x==0∣∣x == 0 ||y / $x > 5;（先算除，接着算大于、接着算等于，最后算关系或）
例如：$result = 11 * 2 + 6 ** 2 比较运算（数字比较与字符串比较） > 位运算 > 赋值运算 > 逻辑运算
（2）数字运算：幂 > */>+-
（3）比较运算： （大于）高于（== 与!=）
2 Scalar Array：
Perl数组变量和列表的概念，列表是包含在括号里的一序列的值，可以为任何数值，也可为空，并且列表存贮于Perl数组变量中，与简单变量不同，Perl数组变量以字符"@"打头。
Perl数组变量和列表
一、列表
列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：
(1,5.3,"hello",2)，空列表：()。
注：只含有一个数值的列表(如：(43.2))与该数值本身(即：43.2)是不同的，但它们可以互相转化或赋值。
列表例：

perl
(17,$var,"astring")
(17,26<<2)
(17,$var1+$var2)
($value,"Theansweris$value")

二、Perl数组--列表的存贮
列表存贮于Perl数组变量中，与简单变量不同，Perl数组变量以字符"@"打头，如：

perl
@array=(1,2,3);

注：
(1)Perl数组变量创建时初始值为空列表：()。
(2)因为PERL用@和$来区分Perl数组变量和简单变量，所以同一个名字可以同时用于Perl数组变量和简单变量，如：

perl
$var=1;
@var=(11,27.1,"astring");

但这样很容易混淆，故不推荐。
1、Perl数组的存取
◆对Perl数组中的值通过下标存取，第一个元素下标为0。
试图访问不存在的Perl数组元素，则结果为NULL，但如果给超出Perl数组大小的元素赋值，则Perl数组自动增长，原来没有的元素值为NULL。如：

perl
@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数组间拷贝

perl
@result=@original;

◆用Perl数组给列表赋值

perl
@list1=(2,3,4);
@list2=(1,@list1,5);#@list2=(1,2,3,4,5)

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

perl
@array=(5,7,11);
($var1,$var2)=@array;#$var1=5,$var2=7,11被忽略
@array=(5,7);
($var1,$var2,$var3)=@array;#$var1=5,$var2=7,$var3=""(null)

◆从标准输入(STDIN)给变量赋值

perl
$var=<STDIN>;
@array=<STDIN>;#^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..var1..var2+5)
◆小技巧：

perl
$fred="Fred";
print(("Hello,".$fred."!n")x2);

其结果为：
Hello,Fred!
Hello,Fred!
4、Perl数组的输出：
(1)@array=(1,2,3);

perl
print(@array,"n");

结果为：
123
(2)@array=(1,2,3);

perl
print("@arrayn");

结果为：
123
5、列表/Perl数组的长度
当Perl数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。

perl
@array=(1,2,3);
$scalar=@array;#$scalar=3,即@array的长度
($scalar)=@array;#$scalar=1,即@array第一个元素的值

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

perl
$count=1;
while($count<=@array){
    print("element$count:$array[$count-1]n");
    $count++;
}

6、子Perl数组

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数组形式来交换元素：

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

7、有关Perl数组的库函数
(1)sort--按字符顺序排序

perl
@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数组

perl
@array2=reverse(@array);
@array2=reversesort(@array);

(3)chop--Perl数组去尾
chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到Perl数组上，则将Perl数组中每一个元素都做如此处理。

perl
@list=("rabbit","12345","quartz");
chop(@list);#@list=("rabbi","1234","quart")now

(4)join/split--连接/拆分
join的第一个参数是连接所用的中间字符，其余则为待连接的字符Perl数组。

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

3 Hash Array(Associative Array)：
perl hash 常见用法
基本用法

perl
# 初始化 %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用delete
delete $h{b}; # 从$h删除'b'
#清空hash
undef %h

得到hash的所有键值

perl
# 得到所有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

perl
exists($h{$key});

Hash的长度
想要知道一个hash存放多少数据

perl
$hash_size = keys %h
# 把%h的长度放到$hash_size中
print scalar kes %h, "n"
# 打印%h的长度。这里用了scalar来返回数组长度。

遍历一个hash

perl
while (my ($k, $v) = each %h) {print "$k ---> $v\n";}

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

perl
$h_ref = %h;
# 获得一个hash的reference%aHash = %{$h_ref};
# 把hash reference当成hash用$value = $h_ref->{akey}
# 这个和%h{akey}是一样的

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

perl
%h = ();
$h{a}=1;
foo(%h)print $h{b}, "n"; # 打印出2

这个值来自于函数foo()
sub foo {my (h)=@;printh) = @_;printh->{a}, "n";

打印出1$h->{b} = 2;}

函数返回hash，或者hash引用(hash reference)
函数可以返回hash
sub foo {my %fh;$fh{a} = 1;return %h;} my %h = foo();print
二 控制结构(Control Statements)
1 选择 if结构
Perl的条件控制叙述和C语言很像，让使用者很快就能掌握它。不过Perl比C语言又另外多了些实用的语法，我用底线标出来，大家一看便知。

Expression 就是条件叙述式，Perl和C一样没有定义布尔数据型态(Boolean datatype)，

因此 0 是false、非0 是ture。另外要注意字符串运算子和数值运算子要分清楚哦。

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

if (Expression) {Code Segment}
if (Expression) {Code Segment} else {Code Segment}
if (Expression) {Code Segment} elsif (Expression) {Code Segment} else {CodeSegment}

elsif 就是 else if

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

statement if (Expression);

unless 就是if not

statement unless (Expression);例：

perl
print "HELLO!n" if ($name eq "friend");
$x-=10 if ($x == 100);

看吧! C 语言有的Perl大部分都有，学过 C 的人可以毫不费力的学会Perl。
2循环结构
Perl的循环控制叙述也和C语言很像，当然，照例Perl也另外多了些实用的语法：

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

for(i=0;i=0;i 10);
}
Perl 还有提供label(标记)的语法，也就是goto 指令，不过有经验的programer并不喜欢用它，我也不建议大家使用，所以就此按下不讲。有兴趣的人请自行查阅。还有一点值得注意的是Perl没有提供像C语言一样的 switch 叙述，不过Perl的pattern match的功能非常强，所以我建议你直接用 if else 叙述来做就好了。
3子程序(Subroutines)
(a) Syntax: sub NAME {Code}
(b) 呼叫子程序： &NAME(para1, para2,...)
(c) 参数传递：@_
Perl 和C一样是采用Call by value的方式，不过因为Perl不用事先宣告变量，所以建立子程序的时候也不用宣告要传递什么参数。当主程序在传递参数给子程序时，Perl会把括号括起来的参数按顺序放在一个特殊的全域变量 @_ 数组中，然后子程序就可以随意使用数组 @_ 里的参数，例如 $_[0] 是第一个参数， $_[1] 是第二个，或是用 my(a1,a1,a2,$a3,...) = @_;来取出各个参数，当然 my @arg=@_; 或 my %arg=@_; 也是可以的。由于Perl的语法非常活泼，使得程序在维护时特别棘手，因此写批注成为一项很重要的工作。我建议你最好在每个子程序前面加上对这段子程序的描述，特别是需要传递的参数要注明清楚。
(d) Variable Localization：my or local
通常我们在程序中定义的变量都是全域变量，所以在子程序中若要把变量区域化则要加上 my 或 local 关键词，例如：my $x=3;，若子程序所用的变量名不小心和主程相同，Perl会以目前正在执行的子程序里的变量为优先。
4 I/O和档案处理
(a) Syntax:
open(FILEHANDLE,"Expression");
close(FILEHANDLE);
这里的Expression是一个叙述加上文件名称，若Expression只有文件名称没有加上叙述，则预设是只读。Expressions叙述如下：
Expression Effect
open(FH, " filename")
open(FH, "+filename")
open(FH, ">filename") Opens filename for writing.
open(FH, "+>filename") Opens filename for both reading and writing.
open(FH, ">>filename") Appends to filename.
open(FH, "command|") Runs the command and pipes its output to thefilehandle.
open(FH, "command|") Pipes the output along the filehandle to thecommand.
open(FH, "-") Opens STDIN.
open(FH, ">-") Opens STDOUT.
open(FH, "&=N") Where N is a number, this performs the equivalent of C'sfdopen for writing.
例：

开启$filename这个档案，若开启失败则印出die后面的讯息，并结束程序。

open(FILE, filename)∣∣die"Can′topenfilefilename) || die "Can't open filefilename : $!n";

下面是一个十分精简的写法，和 while(_=){print "_";} 是等效的。

print while();

档案开启后要记得随手关闭，这才是写程序的好习惯。

close(FILE);

$!和$_都是Perl的特殊变数，下面会介绍的。

(b) Input：
Perl没有特别用来输入的函数，因为Perl在执行程序时，会自动开启标准输入装置，其filehandle定为STDIN，所以在Perl中要输入数据的方法就是使用：

Perl不会自动去掉结尾的CR/LF，跟C语言不同，所以要用chomp函数帮你去掉它。

大家常常会忘记这个动作，导致结果跟你想的不一样，要特别注意一下。

input=;chompinput=; chompinput;

下面是较简洁的写法。

chomp($input=);
(c) Output：print "variables or 字符串";
Perl也有printf()函数，语法和C语言一模一样，我就不多做介绍了。Perl另外有个print函数，比printf()更方便、更好用，包你爱不释手。Output不外乎是输出到屏幕或档案，用例子来说明比较容易了解。

不用再指定变量的data type，这样不是比printf()方便多了吗?

print "Scalar value is $xn";

. 是字符串加法的运算子，上下这两行是等效的。

print "Scalar value is " . $x . "n";

输出到档案的方法。

print FILE "print $x to a file.";

下面是print的特殊用法，学自shell script的用法：

print - 声明一个hash时可以用来明确的表示出key=>value的对应关系

  • $^I- 指定备份的文件的后缀名，如此，被修改的文件将会自动以该后缀名保存一个副本

特殊用法

  • &Sub - 调用一个函数，虽然Perl有些规则让你在某些时候可以省略这里的&符号，但是处于一致性考虑，所以自定义的函数的调用，我一律采用此种方式。
  • $# - 用来取得模个数组的最大index, 一般情况下，也可以用-1来表示最后一个元素的index的
  • qw() - 快速声明一个字符串数组，可以省略那些烦人的引号

正则表达式

  • $ - 获取被括号捕获的匹配
  • ‘,`,&, $' - 获取匹配的字符串，以及其前后两个部分
  • ^,$ - 字符串的始末位置，用作定位

常用函数

  • pop, push, shift, unshift, reverse - list的操作函数
  • keys，values, exists, each, delete - hash的操作函数
  • chomp, split, join, index, substr, sort - 字符串操作函数
  • sprintf,printf, print - 格式化输出函数
  • system, exec, `` - 系统命令调用函数
  • glob, unlink, mkdir, rmdir, rename,chmod,chown, open, close, opendir,

closedir - 文件系统操作函数

  • stat, lstat,localtime,gmtime,utime - 文档属性，时间相关函数
  • hex, oct - 二进制，八进制，十六进制数转化成十进制的函数
  • grep, map - list高级操作函数

这些函数的详细介绍，都可以通过命令:#perldoc -f functionname 查到常用库

  • File::Basename - 根据path获取文件名或者文件路径
  • File::Spec - 根据文件名与路径组合成全路经
  • File::Find - 递归遍历某个目录下所有文件
  • XML::Simple - 以一个复杂的结构来表示xml文件，使用起来相当方便
  • Time::HiRes - 经常用来计算一个操作所耗费的时间
  • Getopt::Long - 当脚本需要复杂的输入参数与选项时用到
  • Cwd - 拿到当前工作目录
  • IO::File - 文件操作
  • Win32 - 当需要调用一些Windows API时我会用它
perl

延伸阅读

Linux下安装Perl模块的方法perl chop和chomp函数区别perl push和pop用法讲解perl使用<=>操作符排序perl的格式化输出及chomp的重要性分析perl从文件中读取数据并输出Perl 字符串处理函数Perl学习基本备忘录

评论

0

评论加载中…

发表评论

0/2000