作者：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);