IC脚本之perl - 技术栈

Perl 是一种功能丰富的计算机程序语言，运行在超过100种计算机平台上。IC flow 的流传的古老版本大多是也是使用这种语言，这里会对Perl的常用知识点进行总结。

++Note: 所有的语句必须以 " ；"结尾；所有的数据必须先定义才可以使用；++

++Getopt::Long获取命令行参数用法++

1. 变量

Perl中的数据类型分为变量，数组（类似于python的list），hash（类似于python中的字典）。可以分别通过 my $var; my @array; my %hash; 定义数据结构。

变量包含数字变量以及字符串变量；如果变量未被赋值，它是一个undef 变量，可以通过define($var）判断其结构。

1. if (defined($a))  #判断a变量是否被使用赋值。
2. 字符串拼接
   $a."hello"    通过" . "拼接
   join($a,"hello" 通过join函数拼接。
   $a.="hello"     通过" .="将字符串拼接到另一个字符串，但是改变了字符串内容。
   
使用Perl 5.10及以上版本的say函数（需要在脚本开头加入use feature 'say';或者use 5.010;）：
say $a."hello"  ; 会把拼接的字符串打印到命令行，并自动换行。

数组结构

push  @array  data  # 将data存储在数组array的最后一个位置，这里的data可以是任意数据结构。
pop  @array   out_data # 从array数组弹出最后一个位置的元素，并赋值给out_data.

unshift  @array  data  函数会在数组的开头添加一个或多个元素。
shift @array   out_data 函数会从数组的开头移除一个元素，并返回这个被移除的元素

hash结构

哈希是Perl中的第三种基本数据类型。与数组一样，哈希包含了许多个标量。数组与哈希的差别是：哈希是按照名字来访问它们的标量的，而不是像数组那样使用数字标号进行访问。

哈希元素包含两个部分，即一个关键字 和一个值。

my %hash_test;
$hash_test{"a"}="APPLE"  #通过$hash_name{"key"}读写变量
keys %hash_test  #返回hash_test的所有键。
values %hash_test #返回hash_tes的所有values
delete $hash_test{"a"} #删除a 的元素

2. 分支结构

主要是if-else结构

if-else 结构
if (condition) {
	commands1;
} else {
	commands2;
}

if-elsif- else 结构
if (condition1) {
	commands1;
} elsif (condition2) {
	commands2;
} else {
	commands3;
}

3. 循环结构

只要表达式为True，while循环就会重复执行该代码段

while (condtion) {
    expression;
}

for 循环

for (var; condition; incr or decrease) {
	commands;
}


eg
@boy=qw(Greg Peter Bobby);
for($index=0;$index<@boy;$index++){
    print "My favorite is $boy[$index]\n"
}

foreach 经常用于数组的遍历

#!/usr/bin/perl -w
my $b ;
@boy=qw(Greg Peter Bobby);
foreach $b (@boy) {
    print $b."\n";
}

针对循环结构还存在 last ， next语句控制循环进程。last 则是满足某一条件后退出本次循环loop等价于C语言的break； next 则是满足某一条件事，不在执行本次循环的循环体而跳回循环体，等价于C语言continue。

4. 函数

在 Perl中，用户定义的函数称为子例程。与 Perl的内置函数一样，用户定义的函数也可以拥有参数，并且可以将值返回给调用者。

#这里的arg默认输入参数也可以没有，直接使用函数体外的全局遍历
subn fun_name (arg1, arg2, arg3) {
    expression; 
}

#调用函数体
&subname (arg1, arg2, arg3);  
subname arg1, arg2, arg3;

5. 文件操作

open(filehandle,pathname) open函数将文件句柄作为它的第一个参数，将路径名作为第二个参数。路径名用于指明要打开哪个文件。

#通过 "<" 设定read模式， ">"设定写模式。
open(MYFILE, "</home/liuye/Scripts/perl/file1.txt") || die "$!";
my $line;
#通过while获取文件内容
while ($line = <MYFILE>) {
    chomp($line);
    print ("$line");
}
#通过foreach获取文件内容
my @lines=<MYFILE>
foreach $line ( @lines) {
    chomp($line);
    print ("$line");
}
close (MYFILE);

6. 正则表达式

元字符

元字符
. 圆点用于匹配除了换行符外的任何单个字符
\ 在字符前面加上一个反斜杠，使它失去"元"的含义
+ 用于使前面的字符与后面的字符至少匹配一次
* 前面的字符可以进行 0次或多次匹配
? 用于使前面的字符进行 0次或一次匹配
.* 用来匹配任何东西
{n,m}  根据需要的具体次数进行匹配,n是匹配的最小次数,m是匹配的最大次数

位置锚定符
"^"代表起始位置，"$"代表结束位置。
\b  字符边界
\B  非字符边界

或
| : hell|HELL 表示匹配hell或者HELL。


捕获
(?:pattern)	     匹配 pattern 但不获取匹配结果
(?=pattern)		正向肯定预查，标注pattern前面
(?!pattern)		正向否定预查
(?<=pattern)	反向肯定预查
(?<!pattern)	反向否定预查
(?<var_name>pattern)  命名匹配，这种就可以将pattern匹配的内容存放到var_name变量

=~ 绑定操作符，它用于将正则匹配操作与哪个变量匹配起来。

Example
if ($a =~ m/pattern/ ) #判断 a变量是否匹配设定的pattern。
$a =~ s/old/new/  ;#将 a变量字符串中old字符变成new字符。

常用代码

1. 文件读取

use strict ;
use warnings;
use Getopt::Long;
GetOptions ( 
    'log=s' => \my $log,
    'opt=s' => \my $opt
) or usage();

my $name; 
my $age;
my $birthday;

if (defined($log)) { #判断log变量是否存在
     print($log."\n"); 
}

open $FILE "<filename" or die "Failed to open filename" 
#此时文件的每一行内容存储在内部变量 $_, 循环体内默认对这个变量操作
while (<FILE>) {
    chomp; #用于移除字符串末尾的换行符（通常是 \n）或其他指定的字符
    next if(/$\s*(#|\/\/) or /^\s*$/); #跳过注释行和空白行
    if (/(?<name>\d+)\s+(/(?<name>\w+)\s+(?<birthday>) { 
          print("match \n"); 此时匹配的内容存储到三个字段中
          $name=$+{name};   通过$+{字段} 来引用匹配的变量 
          $age=$+{age};
          $birthday=$+{birthday};
    }
}
close(FILE);

sub usage {
    print("usate is now \n");
}

对于一些死循环或者缓缓比较久的函数使用键盘终止，可通过异常信号捕捉的形式来处理。

1 linux系统的异常事件信号存储在SIG环境变量，perl通过仿真这些变量来执行
相应的异常处理函数。
$SIG{'INT'}= &func;
$SIG{'TERM'}= &func;
$SIG{'QUIT'}= &func;
这里通过 & 传递func函数的引用。