perl脚本语言学习 perl脚本调用perl脚本

来公司的第二个星期便看了一下perl语言，发现掌握一门脚本语言还是非常有用的。到现在为止已经入职两个月，用perl脚本做了这些活：

1. 修改了公司的一个爬取网页源代码的脚本

2. 改进了一个出特征库的脚本，根据svn status的状态，来优化，将只需要添加的DB的数据进行处理。

3. 编写了一个脚本，用于比对两个文件夹的文件（文件数量大约在+），之后选择需要处理的文件。用perl强大的正则匹配获取对应的字段，并将数据全部放入到excel当中。其中有部分字段需要进行英中文对应，此时创建了两个文件夹进行存放对应的中英文字段，让脚本读取两个文件来进行正确匹配，这样易于后期的维护。此外，由于文件夹的路径可能会发生更改，又用一个bash脚本来连接几个perl脚本，并将常用的参数直接写入到bash脚本中，这样亦可能对应单独使用perl，又可能在不更改参数的情况下，使用bash脚本快速执行脚本功能。后续会将代码贴上来做个分享。

以下为刚开始看perl语言入门的一些基础小笔记，之后在改写脚本和自己编写脚本的时候也积累了一些东西，并没有记录进去，以后应该会做整理补充进去。因为这是最开始的记录，可能会显得非常基础的东西。

# 为注释

#! 则表示执行下面文件的程序

反引号 `......` 表示运行外部程序

下划线可以用来分割数据，并不会改变原数据

如 98908008080 为了方便阅读，可以写成

         98_908_008_080

perl 中的NULL没有特殊含义

单引号字符串内，除了单引号或者反斜杠之外的字符都表示自身

双引号字符串内，反斜杠可以用来表示控制字符

用 . 能够连接字符串

x可以表示字符串重复操作符

perl -w my_program

的 -w 参数可以在执行的时候看到警告

-X 可以忽略所有警告

在perl程序内加上

use diagnostics; 将可以看到更详细得警告说明

命令行加上 -M 参数能决定是否激活diagnostics

$变量名

{} 分隔符， 可以用于分隔字符串

数字      0 为 false

字符串 空串 为 false

       undef 为 false

比较特殊的是， 字符串 '0' 也为false

<STDIN> 可用于标准输入流

如 $line=<STDIN>;

chomp() 可以用来去掉换行符 （很常用）

结合使用： chomp($line=<STDIN>) 读入且不包含换行符

defined 函数可以用来判断是否为undef

$define ($text)                  text为undef时返回false，否则返回true

perl 数组没有长度限制，未赋值的数组元素值为undef

$#array 表示array数组最后一个元素得索引

array[-1] 表示最后一个数组元素

@array 表示 all of the array 即可以对所有元素进行整体操作

@array = (1 .. 5) 将1，2，3，4，5赋值给array 赋值是括号可以不加

@array = qw (qwe wer ert rty); 将字符串"qwe", "wer", "ert", "rty"赋值给array

qw可以允许使用任何标点符号作为分界符

push/pop (数组从尾部压栈出栈)， shift/unshift (从开头压栈出栈)

foreach $rocks (@rocks) 可以遍历数组

$_ 可以代表 foreach 循环中省略的控制变量

  1 foreach (1 .. 10) {

  2     print "I can count to $_!\n";

  3 }

reverse 逆转， sort 排序

@lines = <STDIN>;

CTRL+D来表明输入结束 （UNIX） CTRL+Z （WINDOWS）

@_ 是程序得私有变量

使用my可以在子程序里创建私有变量

程序开头加上 use strict; 将会使程序检查更加严谨

$! 表示系统会提供一些有用的可读信息， 比如在打开文件失败得时候

@array = split (//, $string); 函数可以将字符串拆分，//内表示按空格来拆分，/\./表示按小数点拆分。

@ARGV 表示命令行的参数列表

=~ 表示匹配绑定，成功返回true。$& 表示成功匹配的值 $` 表示匹配前 $' 表示匹配后

=~ s/正则/替换内容/g 可以用这种方式将所有匹配的字段全部替换

第一篇博客，就先这样，之后应该还会将工作中和学习中积累的点点滴滴都写进去，多总结，多积累。