1. Perl 是 Practical Extraction and Report Language 的缩写，可翻译为 "实用报表提取语言"。

Perl 是高级、通用、直译式、动态的程序语言。

Perl 最初的设计者为拉里·沃尔（Larry Wall），于1987年12月18日发表。

Perl 借用了C、sed、awk、shell脚本以及很多其他编程语言的特性。

Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。

 

二. perl 基础语言

1. Perl 程序有声明与语句组成，程序自上而下执行，包含了循环，条件控制，每个语句以分号 (;) 结束。

2. perl 注释的方法为在语句的开头用字符#

3. Perl双引号和单引号的区别: 双引号可以正常解析一些转义字符与变量，而单引号无法解析会原样输出

 

三、perl 数据类型

1. Perl 有三个基本的数据类型：标量、数组、哈希。

标量

标量是Perl语言中最简单的一种数据类型。这种数据类型的变量可以是数字，字符串，浮点数，不作严格的区分。在使用时在变量的名字前面加上一个"$",表示是标量

数组

数组变量以字符"@"开头，索引从0开始，如：@arr=(1,2,3)

哈希

哈希是一个无序的 key/value 对集合。可以使用键作为下标获取值。哈希变量以字符"%"开头。

 

四、 perl 运算符

1. 引号运算

运算符 描述 实例
q{ } 为字符串添加单引号 q{abcd} 结果为 'abcd'
qq{ } 为字符串添加双引号 qq{abcd} 结果为 "abcd"
qx{ } 为字符串添加反引号 qx{abcd} 结果为 `abcd`

 

2. 

运算符 描述 实例
& 如果同时存在于两个操作数中，二进制 AND 运算符复制一位到结果中。 ($a & $b) 将得到 12，二进制为 0000 1100
| 如果存在于任一操作数中，二进制 OR 运算符复制一位到结果中。 ($a | $b) 将得到 61 ，二进制为 0011 1101
^ 如果存在于其中一个操作数中但不同时存在于两个操作数中，二进制异或运算符复制一位到结果中。 ($a ^ $b) 将得到 49，二进制为 0011 0001
~ 二进制反码运算符是一元运算符，具有"翻转"位效果，即0变成1，1变成0。 (~$a ) 将得到 -61 ，二进制为 1100 0011 ，一个有符号二进制数的反码形式。
<< 二进制左移运算符。左操作数的值向左移动右操作数指定的位数。 $a << 2 将得到 240 ，二进制为 1111 0000
>> 二进制右移运算符。左操作数的值向右移动右操作数指定的位数。

$a >> 2 将得到 15 ，二进制为 0000 1111

 

 

五、perl 数组

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取

1. 添加和删除数组元素

序号 类型和描述
1 push @ARRAY, LIST

将列表的值放到数组的末尾
2 pop @ARRAY

弹出数组最后一个值，并返回它
3 shift @ARRAY

弹出数组第一个值，并返回它。数组的索引值也依次减一。
4 unshift @ARRAY, LIST

将列表放在数组前面，并返回新数组的元素个数。

 

六、 perl 语句

Perl UNLESS 语句 
unless(boolean_expression){
   # 在布尔表达式 boolean_expression 为 false 执行
}

 

七、Perl 正则表达式

1. 正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。

Perl语言的正则表达式功能非常强大，基本上是常用语言中最强大的，很多语言设计正则式支持的时候都参考Perl的正则表达式。

Perl的正则表达式的三种形式，分别是匹配，替换和转化:

  • 匹配：m//（还可以简写为//，略去m）

  • 替换：s///

  • 转化：tr///

这三种形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

2. 

模式匹配修饰符

模式匹配有一些常用的修饰符，如下表所示：

修饰符 描述
i 忽略模式中的大小写
m 多行模式
o 仅赋值一次
s 单行模式，"."匹配"\n"（默认不匹配）
x 忽略模式中的空白
g 全局匹配
cg 全局匹配失败后，允许再次查找匹配串

3. 

正则表达式变量

perl处理完后会给匹配到的值存在三个特殊变量名:

  • $`: 匹配部分的前一部分字符串
  • $&: 匹配的字符串
  • $': 还没有匹配的剩余字符串
  •  

4. 

替换操作符

替换操作符 s/// 是匹配操作符的扩展，使用新的字符串替换指定的字符串。基本格式如下：

s/PATTERN/REPLACEMENT/;

PATTERN 为匹配模式，REPLACEMENT 为替换的字符串。

 

八、 Perl 目录操作

1. 

opendir DIRHANDLE, EXPR  # 打开目录
readdir DIRHANDLE        # 读取目录
rewinddir DIRHANDLE      # 定位指针到开头
telldir DIRHANDLE        # 返回目录的当前位置
seekdir DIRHANDLE, POS   # 定位指定到目录的 POS 位置
closedir DIRHANDLE       # 关闭目录

2. 显示目录下的所有文件，使用 glob 操作符