发布时间 : 星期四 文章genesis脚本编程教材PERL更新完毕开始阅读
性共享内存应用以及极度大的应用。
Perl语言的长处：
l 强大的正则表达式和模式匹配功能(接近理想的正则表达式语言)
l 复杂灵活的数据结构(Array of Array, Array of Hash，Hash of Array, Hash of Hash等)
l Unicode支持（相对AWK与C）
其不足是：
l 动态类型语言，不是很可靠
l 自然语言，是优点也是缺陷，使得Perl语言代码可能晦涩难懂；
l 智能语言，是优点也产生不足：根据上下文解释编程者之意，可能产生臆断；也因此产生种种编程陷阱。
l 不是很优美。多种方法做事，有时会让编程者无所适从。
l 性能问题。Perl灵活的数据结构和处理性能通常不是很高（相对C/C++），若需要高性能的处理有时需要使用其它语言重写。
Perl语言的学习曲线浅而长。只要看看《Learning Perl》，就可以编写简单的Perl程序了，然而要深入掌握Perl，要使用Perl的复杂数据结构，进行面向对象编程、多线程编程则不是那么容易的事，需要很长的时间学习和实践。 概览
Perl有以下几种数据类型：标量（Scalars）、 数组(Arrays)、关联数组(Associative Arrays,或称Hash)、子程序(Subroutine)和Typeglob（*标识，指所有以上几种类型）。这些类型都有不同的符号标识。这些类型的说明如下： Type
Character Example Is a Name for Scalar $
$cents
An individual value(number or string) Array
@ @large
A list of values, keyed by number Hash %
%interest
A group of values, keyed by string
Subroutine & &how
A callable chunk of Perl code
Typeglob *
*struck
Everything named stuck
(以上引自《Programming Perl》)
关于Perl的类型可以做如下说明：
l 不同的数据类型不同的命名空间，所以三种的标识符可以相同但互不干扰，即$array, @array，%array是完全不同的三个变量。
l Perl的数据类型是大小写敏感的；直接使用，不用声明（这一点可能成为缺陷，可以使用use strict语句强制必须声明）
l 引用（references）是Perl 5引进的一种特殊的标量。
l 变量的命名以下划线或字母开头，可以是任意长度（1-251）。
l 文件句柄(Filehandle)指给一个文件、设备、Socket或管道的名称。
l 子程序相对其它类型是动词（其余为名词），较为特别，将用特别的一章详细说明
命名空间(Namespaces) Perl有两种命名空间，分别是符号表（symbol tables，也称为包(package)）和词汇范围（lexical scopes，可以理解为局部空间）。符号表是存储全局变量的全局关联数组（包括存储其它关联数组），词汇范围是无名的空间，不存在于任何符号表中，而是与你程序中的一段代码块相关联。它们包含只对该代码块可见的变量。以our定义的变量存在符号表中，又称为全局
变量或包变量（它们对包来说名义上是私有的，但是由于包本身是全局的，所以又是全局的），以my定义的变量存储在词汇范围中，也称为局部变量。
在任一命名空间中，任一变量类型都有其子命名空间（由其前面的字符决定），用户可以给标量、数组、关联数组、文件句柄、子程序名、标号起相同的名字。Perl的保留字也不会与变量名冲突。
Perl做名字查找的次序如下：
l 查找最小一级的包含的程序块，看变量是否在同一块中声明（my或者our）
l 查找更高一级的包含程序块进行查找
l 查找整个编译单元看是否有声明
l 如果没有找到，Perl将假定变量是包变量
l 如果没有包定义，Perl将在无名的最高层包（main）中查找，$::bert等同于$main::bert
除了用my与our声明变量外，Perl中还有一种local的声明方式，注意local不是声明一个局部变量，而是使全局变量局部话，如果声明时未赋值，则所有的标量被初始化为undef, 所有的数组与关联数组被初始化为()。其使用方式比如：
if ($sw eq ‘-v’) {
local @ARGV = @ARGV;
unshift @ARGV, ‘echo’;
system @ARGV;
}
又如当需要输出CSV格式的文件时可以使用local $, = “,”; local $/=”\\n”; 免得每次print都得写许多”,”和最后的”\\n”;
标量(Scalars)
标量是一个字符串、数值或者指向某类型的引用。
Perl的数值常量可以如下使用：
$x = 12345; #整数
$x = 12345.67; #浮点数
$x = 6.02e23; #科学计数法
$x = 4_294_967_296; #因为,是分隔符，所以4,294,967,296不能成立，Perl用_代替
$x = 0377; #八进制
$x = 0xffff; #十六进制
$x = 0b1100_0000; #二进制
Perl的字符串常量通常由单引号或双引号括起来。双引号支持变量和转义字符序列替换；而单引号只支持两个转义字符 \\’和\\”。双引号支持的转义字符如下：
Code Meaning \\n
Newline (usually LF) \\r
Carriage return (usually CR) \\t
Horizontal tab \\f
Form feed \\b
Backspace \\a
Alert(bell) \\e
ESC character \\033
ESC in octal