Perl

参考：http://perldoc.perl.org/perlhist.html

perldoc 是一个很好的查看 Perl 帮助文档的工具。

查看模块说明，如：

perldoc File::Basename

查看内置函数说明，如：

perldoc -f split

查看内置变量说明，如：

perldoc -v '$_'

查看模块位置，如：

perldoc -l File::Basename

查看模块详细信息，包括模块源码，如：

perldoc -m File::Basename

参考：“Perl 语言编程”第 1 章。

my 声明的变量为词法变量（lexical 变量）。
词法变量的作用域受限于定义它的最内层语句块（或文件）。应该尽量只用词法变量。

local 是把包变量局域化。
注：当变量被局域化后，其值会被重设为 undef。如果要保留以前的值，则可以 local $var=$var，看起来怪，但却有效。
注：对 lexical 变量使用 local 关键字是没有什么意义的，这也是非法的。

our 的作用是声明一个全局变量（这个全局变量可能在其他文件中定义）

参考：
PBP 第五章
http://shake863.iteye.com/blog/189799
http://www.cnblogs.com/softwaretesting/archive/2012/01/13/2321310.html

参考： perldoc perlop

           Customary  Generic        Meaning        Interpolates
               ''       q{}          Literal             no
               ""      qq{}          Literal             yes
               ``      qx{}          Command             yes*
                       qw{}         Word list            no
               //       m{}       Pattern match          yes*
                       qr{}          Pattern             yes*
                        s{}{}      Substitution          yes*
                       tr{}{}    Transliteration         no
                        y{}{}    Transliteration         no
               <<EOF                 here-doc            yes*

q{}相当于给整个列表加上单引号
qq{}相当于给整个列表加上双引号
qw{}相当于给列表里的每个单词添加单引号
qx{}相当于执行外部命令
qr{}生成正则表达式

举例说明：
qw(fred barney betty wilma dino)等同于：
('fred', 'barney', 'betty', 'wilma', 'dino')

Perl 内置变量如表 3 所示。

参考：Perl 语言编程(第三版,何伟平译)，第 28 章
参考：http://www.cnblogs.com/ace9/archive/2011/04/29/2032755.html

实例：输出记录分隔符$\

#!/usr/bin/env perl

$\ = "\n";       # automatically add newline on print

print "abc";
print "def";

上面程序将输出（省去了在每个 print 后加 \n 来进行换行的麻烦）：

abc
def

要进行正则匹配可以用 m/regex/modifiers ，默认匹配 $_ 。
说明：正则匹配中的定界符 // 可以换成其它成对的定界符。 如果采用双斜线作为定界符，则开头的 m 字符可以省略。
例如 /test/, m/test/, m(test), m<test>, m{test}, m[test] 的含义相同，都是尝试匹配 $_ 中的 test 字符。

要进行正则替换可以用 s/regex/replacement/modifiers ，默认操作 $_ 。

参考：
Perl regular expressions quick start: http://perldoc.perl.org/perlrequick.html
Perl regular expressions tutorial: http://perldoc.perl.org/perlretut.html

Perl 可用函数原型来限制函数的调用方式。

我们知道，perl 中函数的定义不要指定参数个数及类型，所有传入的参数都保存在@_数组中。

sub fun_test1 {
  print "OK\n";
}

这个函数可以通过 fun_test1()，fun_test1(1,2)等几乎任何方式调用（这样做其实没有什么意义）。

如果想指定参数个数和类型，那么就要使用函数原型！它的作用是限制函数的调用方式。

sub fun_test2() {
  print "OK\n";
}

上面就是函数原型，只能通过 fun_test2()这种方式来调用，用其它方式调用会报编译时的错误。

参考：
perldoc perlsub
https://perldoc.perl.org/perlsub.html
perl 语言编程，第六章 子例程

perl 中可以用 local 定义嵌套子函数。
注意：一般情况下都不要用嵌套子函数，完全可以用其它方法来实现相同的功能。

摘自：
http://www.cnblogs.com/softwaretesting/archive/2011/07/26/2117730.html

用-e 'code'选项可以直接执行 code，简单的代码就不必写入到文件中再执行了。

$ perl -e 'print "hello\n"'

-n 选项，使 Perl 认为在你的脚本周围围绕着下面的循环（像 sed -n 或者 awk 中一样）：

while(<>) {
   ...   # 你的脚本在这里
}

-n 选项实例：

$ cat file1
Torbin Ulrich   98107
Yeshe Dolma     98117

$ perl -n -e 's/^/      /g; print;' file1
      Torbin Ulrich   98107
      Yeshe Dolma     98117

$ sed 's/^/      /g' file1
      Torbin Ulrich   98107
      Yeshe Dolma     98117

-p 选项和-n 类似，用了-p 后就不需要显示地用 print 函数了。

$ perl -p -e 's/^/      /g;' file1  # -p does the printing.
      Torbin Ulrich   98107
      Yeshe Dolma     98117

-l 选项的说明如下：

-l[octnum]
            enables automatic line-ending processing.  It has two separate
            effects.  First, it automatically chomps $/ (the input record
            separator) when used with -n or -p.  Second, it assigns "$\"
            (the output record separator) to have the value of octnum so
            that any print statements will have that separator added back
            on.  If octnum is omitted, sets "$\" to the current value of $/.

下面例子打印所有库文件的路径：

$ perl -e "print foreach @INC"
/etc/perl/usr/local/lib/perl/5.14.2/usr/local/share/perl/5.14.2/usr/lib/perl5/usr/share/perl5/usr/lib/perl/5.14/usr/share/perl/5.14/usr/local/lib/site_perl.

使用-l 选项（省略了 octnum，默认使用$\，即换行符），可让输出更好看：

$ perl -le "print foreach @INC"
/etc/perl
/usr/local/lib/perl/5.14.2
/usr/local/share/perl/5.14.2
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.14
/usr/share/perl/5.14
/usr/local/lib/site_perl
.

也可以用命令 perl -e 'print "$_\n" foreach @INC' 得到上面的输出结果。

此外，指定-l 选项的参数，可定制分隔符。如：

$ perl -l072 -e "print foreach @INC"
/etc/perl:/usr/local/lib/perl/5.14.2:/usr/local/share/perl/5.14.2:/usr/lib/perl5:/usr/share/perl5:/usr/lib/perl/5.14:/usr/share/perl/5.14:/usr/local/lib/site_perl:.:

Perl 支持一种叫 pod(plain old documentation)的简单文本标记格式。

pod 是在程序中写文档的一种办法，它以 pod 命令指示字(等号=)开始，以=cut 结束！也就是从第 1 个 pod 命令指示字开始到遇到=cut 指定，其中间部分内容都会被 perl 认为是文档而忽略。

=xxx
这中间的代码，都会被perl认为是pod。
=cut

perl 脚本中的 pod 文档部分可以使用工具 pod2text 或 pod2html 方便地转换为 text，html 等。

参考： man perlpod

perltidy 是个 perl 源码格式化工具。

实例：

$ perltidy -b foo.pl     # 先备份原文件，再格式化代码
$ perltidy -pbp foo.pl   # 按PBP要求格式化代码

工具 Critic 可用来审查代码。
Perl::Critic is an extensible framework for creating and applying coding standards to Perl source code.
Critic 使用的大部分的审查规则来自 Damian Conway 的经典之作——"Perl Best Practices"。

安装：

cpan Perl::Critic

查看帮助：

$ man perlcritic
$ perldoc Perl::Critic

使用实例：
检测所有等级为 5 的问题。

$ perlcritic foo.pl

仅检测所有在 pbp 中描述过的问题。

$ perlcritic --theme pbp -1 foo.pl

参考：
http://www.slideshare.net/joshua.mcadams/extending-perl-critic
http://www.slideshare.net/joshua.mcadams/yapcna-2007-customizing-and-extending-perl-critic
http://www.slideshare.net/joshua.mcadams/an-introduction-to-perl-critic

perlfilter:
http://www.tu-chemnitz.de/docs/perldoc-html/perlfilter.html

Perl 程序源码怎么加密：
http://www.php-oa.com/2013/05/24/perl-source-code-encrypt.html

用 -d 选项启动自带的调试器，如：

$ perl -d script.pl

如果在调试器中查看 hash 表？
方法 1：
如果用 p 查看 hash 表，其格式是乱的。若改用 x 查看，则非常清晰：

x %hash

方法 2：
用下面方法查看 hash 更完美，把对应关系清楚地显示出来了：

x \%hash

方法 3：
还可以使用模块 Data::Dumper 查看 hash 表。

方法 1：
网上有人说 use warnings 能够找出未使用的变量。
但测试后发现 use warnings 基本不能用来发现未使用的变量！

#!/usr/bin/perl -w
use warnings;
$x;

运行时，有下面提示。
Name "main::x" used only once: possible typo at foo1.pl line 4.

但是如果用 my 和 our 声明的变量，use warnings 无法发现只声明而未使用！而好的编程规范是只用 our 和 my 声明变量！所以不能依靠 use warnings 来发现未使用的变量！

http://compgroups.net/comp.lang.perl.misc/finding-unused-variables-in-a-perl-script/341813

方法 2：
Perl::Critic::Policy::Variables::ProhibitUnusedVariables
不过，它也有很多情况无法发现！
赋值过一次，但后面一直没有使用的变量，它无法发现，也就是说只能发现未使用变量中没有初始化的这种情况！

上面所说的限制在下面网站有说明：
http://search.cpan.org/~elliotjs/Perl-Critic-1.112_002/lib/Perl/Critic/Policy/Variables/ProhibitUnusedVariables.pm

方法 3：
B::Xref

chomp removes the current "input record separator", it is saved in built-in perl variables $/.

在不同的操作系统中，perl 会自动把 $/ 设置为合适的 EOL(End of Line)字符：
Linux 平台： \n
Windows 平台： \r\n
Mac 平台（旧）： \r
Mac 平台（新）： \n

这样，使用 perl 的 chomp 函数，在平台 A 中操作与平台 A 匹配的文本文件不会有问题，但如果有平台 A 中操作与平台 B 匹配的文本文件，就会出现问题。

如果我们知道所要操作的文件的 EOL，可能通过修改内置变量 $/ 的值使 chomp 得到期待的结果。
如果我们并不能确定所要操作的文件的 EOL，则最好不使用 chomp 函数，用下面正则表达式即可处理 Linux/Windows/Mac 三个平台：

s/(\n|\r)//g

参考：
http://www.perlmonks.org/?node_id=549385
https://en.wikipedia.org/wiki/Newline

一次读入整个文件到数组中：

my @lines = <$fd>;

一次读入整个文件到标量中：

my $code = do { local $/ = undef; <$fd>};
# 也可以省写为：
my $code = do { local $/; <$fd>};

说明： $/ 是默认的分隔符。 do {} 代码块的目的是把对 $/ 的修改限制在小范围内，不影响程序后续读取操作的行为。

这和下面代码是等价的，但上面代码更简单：

my $code
while (my $line = <$fd>) {
    $code .= $line;
}

参考：PBP 第十章 I/O

先举个例子：

#!/usr/bin/perl

while(<STDIN>)
{
        my $text=quotemeta($_);
        print $text;
        system("touch $text");
}

这个程序的目的是 touch file，这个大家都知道。但是你想过没有，如果你想创建一个文件名为*.txt or a*txt 的 file 时,是不是就会有问题了。因为*在 shell 里有特殊的意义，如果想创建带*号文件就的用反引号"\"将它的特殊意义屏蔽掉，这个时候 quotemeta 就派上作用了。
quotemeta 的作用就是将非字母字符（数字也算）前加反斜线"\"来去掉特殊意义。

如上面的程序，你想创建 a*txt,直接输入就可以了而不必考虑需要将*先转换，函数 quotemeta 已经替你做了，这样是不是方便了许多。

参考：http://blog.chinaunix.net/uid-24549940-id-3191115.html

查询所有库文件的路径：

perl -le "print foreach @INC"

查询某个模块的位置：

perl -le "print foreach @INC" |xargs find -L |grep MODULE

当然也可以通过下面命令搞定：

perldoc -l MODULE

通过后缀查找：

find `perl -e 'print "@INC"'` -name "*.pm" -print

查看已经安装了哪些模块，包括版本号：

cpan -a

在 Android 上导入的通讯录为 vcf 格式文件，非 ansii 码的字符用 quoted-printable 编码了，无法直观地在电脑上查看。

#!/bin/sh
# a very crude script to replace quoted-printable encoded strings
# (possibly spanning mulitiple lines) with 8-bit characters

perl -pe 's/(=[a-f\d][a-f\d])=\r?\n$/$1/i' $1 \
| perl -pe 'next unless /(=[a-f\d][a-f\d]){2}/i; s/=([a-f\d][a-f\d])/chr(hex($1))/ieg' \
| perl -pe 's/CHARSET=UTF-8.*?:/CHARSET=UTF-8;ENCODING=8BIT:/;'

# First join multiple qp-encoded lines. Make a minimal check
# so as not to mistakenly process non-qp-encoded lines ending with "=".
# Also take care of both linux newline (\n) and dos/windows newline (\r\n).

# Then do the conversion. Make a minimal check so as not to mistakenly
# process non-qp-encoded strings such as "PHOTO;ENCODING=BASE64;"

# Finally change the encoding string, or add one if there wasn't one.

把上面脚本保存为 qp-8bit，运行下面命令就能看到 vcf 中的中文了。

$ ./qp-8bit contacts.vcf > contacts-8bit.vcf

参考：http://user.frdm.info/ckhung/p/vcf2csv/

用 cperl-mode 代替 perl-mode
如果用 emacs 打开 perl 程序，会默认进入 perl-mode。其实还有一个更好用的 cperl-mode，它是也是默认安装的。

使用命令 M-x cperl-mode 可以开启 cperl-mode，如果要在打开 perl 程序时自动开启 cperl-mode，可以在.emacs 文件中加入下面这行：

(defalias 'perl-mode 'cperl-mode)

配置 cperl-mode，在.emacs 中加入下面一行将会显示 Index 菜单。

(add-hook 'cperl-mode-hook 'imenu-add-menubar-index)

参考：http://www.emacswiki.org/cgi-bin/wiki/CPerlMode