perl 脚本

曾经终败给现在 2022-03-22 11:53 216阅读 0赞

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. 引号运算

<table> 
 <tbody> 
  <tr> 
   <th>运算符</th> 
   <th>描述</th> 
   <th>实例</th> 
  </tr> 
  <tr> 
   <td>q{ }</td> 
   <td>为字符串添加单引号</td> 
   <td>q{abcd} 结果为 'abcd'</td> 
  </tr> 
  <tr> 
   <td>qq{ }</td> 
   <td>为字符串添加双引号</td> 
   <td>qq{abcd} 结果为 "abcd"</td> 
  </tr> 
  <tr> 
   <td>qx{ }</td> 
   <td>为字符串添加反引号</td> 
   <td>qx{abcd} 结果为 `abcd`</td> 
  </tr> 
 </tbody> 
</table>

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

五、perl 数组

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

1. 添加和删除数组元素

<table> 
 <tbody> 
  <tr> 
   <th>序号</th> 
   <th>类型和描述</th> 
  </tr> 
  <tr> 
   <td>1</td> 
   <td><strong>push @ARRAY, LIST</strong> <p>将列表的值放到数组的末尾</p> </td> 
  </tr> 
  <tr> 
   <td>2</td> 
   <td><strong>pop @ARRAY</strong> <p>弹出数组最后一个值，并返回它</p> </td> 
  </tr> 
  <tr> 
   <td>3</td> 
   <td><strong>shift @ARRAY</strong> <p>弹出数组第一个值，并返回它。数组的索引值也依次减一。</p> </td> 
  </tr> 
  <tr> 
   <td>4</td> 
   <td><strong>unshift @ARRAY, LIST</strong> <p>将列表放在数组前面，并返回新数组的元素个数。</p> <p>&nbsp;</p> </td> 
  </tr> 
 </tbody> 
</table>

六、 perl 语句

# Perl UNLESS 语句 #

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

七、Perl 正则表达式

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

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

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

*  匹配：m//（还可以简写为//，略去m）
 *  替换：s///
 *  转化：tr///

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

### 模式匹配修饰符 ###

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

<table> 
 <tbody> 
  <tr> 
   <th>修饰符</th> 
   <th>描述</th> 
  </tr> 
  <tr> 
   <td>i</td> 
   <td>忽略模式中的大小写</td> 
  </tr> 
  <tr> 
   <td>m</td> 
   <td>多行模式</td> 
  </tr> 
  <tr> 
   <td>o</td> 
   <td>仅赋值一次</td> 
  </tr> 
  <tr> 
   <td>s</td> 
   <td>单行模式，"."匹配"\n"（默认不匹配）</td> 
  </tr> 
  <tr> 
   <td>x</td> 
   <td>忽略模式中的空白</td> 
  </tr> 
  <tr> 
   <td><span style="color:#f33b45;">g</span></td> 
   <td><span style="color:#f33b45;">全局匹配</span></td> 
  </tr> 
  <tr> 
   <td>cg</td> 
   <td>全局匹配失败后，允许再次查找匹配串</td> 
  </tr> 
 </tbody> 
</table>

## 正则表达式变量 ##

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

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

## 替换操作符 ##

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

s/PATTERN/REPLACEMENT/;

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

八、 Perl 目录操作

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

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