【Perl学习】学习笔记，持续更新中

作者：gnuhpc

出处：http://www.cnblogs.com/gnuhpc/

1．shell和Perl的区别和联系

perl十足一个万金油，从自身内部就实现了各种系统命令的功能，在效率上高许多，而且有专门的调试工具，支持面向对象，不论是小脚本还是大型应用程序都可胜任。

shell脚本本身只适用于简单的系统管理，个人觉得shell象粘合剂，把各种linux系统命令粘在一起形成脚本，所以你还要学习awk、sed等等，由于shell多是调用外部程序执行操作，所以效率方面较低，还有就是shell脚本调试起来不方便，所以用shell写500行以上的脚本会很累。

联系：他们都是一种解释性程序设计语言。

2.Perl和C语言一样，一个语句由一个分号结尾。

3.在Perl语言中，变量在使用前不需要申明数据类型，即变量是没有类型的。你可以将一个字符串赋给一个变量，在这之后，你可以将一个数字赋给同一个变量。一个变量是什么类型的，是由对这个变量指定什么样的处理来决定的。通常

是在变量名前面加一个类型修饰符来表明该变量的类型。

4.数据结构

Perl有三种数据结构：单值，数组，关联数组（就是"哈希表"）。

1)单值（scalar）变量

单值变量名通常以$符号开始

e.g. $mystr = “Hello world.” ; $mynum = 321;

其中有3种表示字符串的方法，好记的是，它们与shell脚本的规则是一样的。

双引号（"）：在程序里，Perl会把字符串中变量替换掉。

单引号（’）：在 Perl程序中不会做任何特别处理。

反引号（`）： Perl会把这个字符串作为shell的命令来执行(作为一个独立的进程)，并把结果作为该字符串的结果。

2）列表(数组)变量

列表的大小是动态可扩充的。列表由圆括号（( )）包含的，以逗号（,）分隔的元素组成。每个元素可以通过它在列表中的位置来引用。第一个位置的索引是0。也可以用方括号（[]）来引用列表中的一部分。

e.g.以下定义了一个四个字符串的列表，并且将这个列表的索引为0的元素（Mon）赋值给单值变量monday.

$monday = ("Mon.","Tus.","Fri.","Sun.")[0];

而 ("Mon.","Tus.","Fri.","Sun.")[1,3];这句的结果也是一个列表——"Mon","Fri"

声明列表通常以@符号开始，并且在使用的时候，使用前缀$或者@来告诉Perl解释器某个变量的类型。e.g.@rev = reverse(@num1234); $num1 = $num1234[0];

Perl提供了一些函数用来处理列表：

sort(LIST) 对LIST排序，返回一个列表

reverse(LIST) 对LIST反序，返回一个列表

join(EXPR,LIST) 返回EXPR和LIST的组合列表

split(PATTERN,EXPR) 返回由PATTERN分隔的EXPR的子列表

push(@ARRAY,LIST) 把列表LIST加到@ARRAY尾部

pop(@ARRAY) 从@ARRAY尾部移去一个元素

unshift(@ARRAY,LIST) 在@ARRAY前面加入列表LIST

shift(@ARRAY) 移去并返回@ARRAY的第一个元素

scalar(@ARRAY) 返回数组的元素数目

3)关联数组变量

Perl提供了一种基于key=>value方式的关联数组。这类数组中，通过key来索引元素的值(value)。这里的key是字符串。关联数组变量名通常以%符号开始,如%myvar，

在关联数组中，用大括号（{ }）来表示以key来索引元素。

%myhash = (“first”=>”First element”, “second”=>”Second element”,

“third”=>”Third element”);

$secondelement = $myhash{“second”};

在Perl语言内部，通过哈希表来保存关联数组的，通过对key取哈希运算

来定位元素的位置。所以，关联数组又叫哈希表。

Perl提供了一些函数来处理关联数组：

keys(%ARRAY) 返回关联数组%ARRAY的所有的key组成的列表

values(%ARRAY) 返回关联数组%ARRAY的所有的value组成的列表

each(%ARRAY) 每次调用的时候，就返回由一对key和value组成的列表

delete($ARRAY{KEY}) 从数组%ARRAY中删除由key关联的元素

5.输入

想从文件读入时，把文件名作为脚本执行时的参数附在脚本名称后边就可以了。Perl解释器在解释运行脚本的时候，会把该文件打开，并把其中的每一行读入，赋值给变量$_。

你可能写了几个文件名字作为命令行参数，比如：

lines foo bar zap

这意味着脚本lines将文件foo, bar, 和 zap 作为一个已经合并的单个文件来

处理。

6.输出

print 与shell中的printf非常类似

7.条件测试和真值

Perl提供了2套条件测试方法，一套用于数字，一套用于字符串：

比较测试 字符串 数字

相等 eq ==

不等 ne !=

大于 gt >

大于等于 ge >=

小于 lt <

小于等于 le <=

比较，返回-1,0,1

cmp <=>

可以用&& (AND) 和|| (OR) 来组合测试运算。

真值问题在Perl中很灵活。

下面的值作为真值(true)来处理：

1;

("a","b"); #有元素的列表

" "; #空格符 (注意这个)

"hello"; ＃非空字符串

"00" ＃这个实际上也是非空字符串

下面的值作为false来处理：

0;

(); # 空的列表

""; # 空字符串

"0"; # 这个也是false！（注意这个）

8.控制结构

Perl有丰富的控制结构。可以用if语句来实现分支结构，while语句来实现循

环结构。除了if和while，Perl还提供了一个foreach语句，大大方便了对数组的

处理。注意，一个程序块的大括号是必须的，这和C语言略有不同。

if语句的格式是：

if(expression)

{

block

}

if(expression)

{

block1

}

else

{

block2

}

while语句的格式如下：

while(expression)

{

block

}

last语句告诉Perl解释器，该语句是循环体中最后执行的语句。执行这条语

句后，将退出该循环体。这个语句和C语言中的break功能类似。

next 语句告诉 Perl 解释器，执行一次新的循环。这个语句和 C 语言中的

continue类似。

在Perl语言中，除了支持和C语言类似的for语句外，还有一个foreach语

句。该语句极大方便了对数组的操作。

foreach 单值变量 ( 列表 )

{

block

}

每次循环的时候，SCALAR 的值是 LIST 中的下一个值，然后执行STATEMENTS语句。

9.过程

Perl也提供过程，方便代码重用。

Perl语言通过下面的格式来定义过程：

sub NAME

{

STATEMENTS;

}

所有的过程都通过列表(数组@_)来传递参数，而过程的返回值可以是单值，也可以是列表。

sub error

{

($message) = @_;

print("<b>ERROR:<b>",

$message,

" /n");

exit(0);

}

10.文件测试操作符

下面是部分常用的文件测试操作符列表：

-r 可读

-x 可执行

-e 存在

-d 是目录

-t 是tty

-T 是文本文件

11.文件管理

Perl语言还提供了对文件I/O操作的强大支持。支持重定向的方式类似，<、 >、 >>和|操作符。

open(FD,FILENAME);

close(FD);

它类似于C语言中的宏常量，作为句柄而存在

"FILE" 打开一个文件FILE，作为数据输入，也可以写做"<FILE"

"> FILE" 打开一个文件FILE，作为输出，如果文件不存在，就创建

">> FILE" 以追加方式打开文件FILE，数据都添加在文件后面

"+> FILE" 以读写方式打开文件FILE

"| CMD" 打开一个到CMD的管道(pipe)

"CMD |" 打开一个以CMD为输入的管道

# 从FILEHANDLE所指向的文件中读入一行

$line = <FILEHANDLE>;

# 从FILEHANDLE所指向的文件中读入整个文件

@lines = <FILEHANDLE>;

在Perl中，用print写文件。Print的第一个可选参数是FILEHANDLE，参见

下面的解释，请注意第一个参数后面，没有逗号（,）：

print(FILEHANDLE "your","list","here");

12.Perl的哲学

Perl 碰巧是由一个语言学家设计的（可以这么说吧），因此它被设计成一个可以象自然语言那样使用的编程语言。

Perl 被设计成可以进化，并且实际上也已经进化了。骆驼（Perl的徽标）是一匹委员会设计的马，但是被放到了沙漠中。沙漠中，骆驼是非常适应沙漠中的生活。马已经进化成为相当能自给自足的骆驼了，这也是选择骆驼作为 Perl 的吉祥物众多原因中的一个，而和语言学没有什么关系。我觉得和生物进化学倒是相关。

环境在 Perl 中是十分重要的，Perl 将根据环境来判断你想要什么，而不用象其他编程语言一样必须明确地告诉它．

数组和散列的最简单的应用哲学：当你想通过编号来查找东西的时候，你要用数组．而如果你想通过名称来查找东西，那么你应该用散列．这两种概念是互补的．

散列使用 % 这个趣味字符来标志散列名字（如果你仔细观察 %，你会发现斜扛两边的键字和数值．）

13.使用了尚未赋值的变量

这个未初始化的变量会在需要的时候自动存在．遵循最小意外的原则，该变量按照常规初始化为空值，"" 或 0．根据使用的地方的不同，变量会被自动解释成字符串，数字或"真"和"假"（通常称布尔值）．

14.标量的环境

在 Perl 中不同的操作符会要求特定类型的单数值作为参数．这个操作符就给这些参数提供了一个标量的环境．有时还会更明确，比如说操作符会给这些参数提供一个数字环境，字符串环境或布尔环境．Perl 会根据环境自动将数据转换成正确的形式．

例如:

$camels = '123';

print $camels +1, "/n";

124

15.列表操作

列表赋值： ($potato, $lift, $tennis, $pipe) = @home;

他们逻辑上平行发生，因此你可以象下面一样交换两个变量： ($alpha, $omega) = ( $omega, $alpha);

作者：gnuhpc

出处：http://www.cnblogs.com/gnuhpc/