1. 在 shell 里运行下面的语句：

   $ perl -mSmart::Comments -el
   

   如果提示了类似下面的错误， Can’t locate Smart/Comments.pm in @INC (@INC contains: c:/strawberry/perl/lib c:/strawberry/perl/site/lib .).

   则表明你的 Perl 并没有安装这个模块。如果已经安装了该模块，则不会发生任何事情。

   还可以用相类似的方法来测试，比如说，直接从 shell 里运行一下 Perl 的 use 命令：

   $ perl -e "use Smart::Comments;"
   

   直接在后面使用 use 语句，如果这个模块存在的话，则不会报错；如果这个模块不存在的话，会提示出错信息。

2. 如果在 Perl 代码里需要查询、获得已安装的模块信息，则可以使用 ExtUtils::Installed 模块。

$ perldoc perllocal

来查询，这个命令会显示出你系统里所有已经安装上的模块名称、安装路径等信息。

同样，如果是 ActivePerl，可以用命令

C:\>ppm query

来检查已安装的模块信息。

1. Smart::Comments

   Smart comments 提供了一个调试与追踪代码的简单方法，可以打印一个变量值，也可以追踪、显示一个循环的进度等。

   最巧妙的是，当你完成了程序的编写，不需要这些调试代码的时候，只需要注释掉

   use Smart::Comments;
   

   这行就可以了。下次还需要再次调试代码的时候，不需要再添加一遍追踪代码，只要把上面那行代码重新激活就可以了。

   如果你不在程序里用上面的语句显式的激活 smart comments，我们也可以在运行脚本的时候，显示地激活 smart comments 模块：

   $ perl -MSmart::Comments $application.pl
   

2. 给 Perl 提供类似 C++ 宏的功能

   如果有一段代码，需要在多个地方重复用到，但是写成函数却并不是很合适，这个时候，最好的办法，是用类似于 C++ 的宏定义，在需要的地方插入这个宏即可。可以用 Filter::cpp 这个模块来实现，安装这个模块后，用起来和 C++ 的宏就没有什么区别了。

3. 在 Perl 里操作 Excel 文件

   现在很多测试用的测试用例 (test case) 以及测试报告都是用 Excel 来写的，要完成自动化测试，Perl 脚本最好能够自动从 Excel 读入数据、并在相应位置上记录测试结果。与这相关的工作，可以用下面的模块来完成：

   如果我们需要读入 (parse) 一个已有的 Excel 文件，可以使用 Spreadsheet::ParseExcel，适用于 Excel 95-2003 版本。如果你用的是 Excel 2007 版本，则你需要用 Spreadsheet::XLSX 这个模块。

   如果我们需要创建一个全新的 Excel 文件并写入数据，我们可以用 Spreadsheet::WriteExcel 模块。

   如果我们需要打开一个 Excel 文件读入测试数据、再输出测试数据到这个 Excel 文件，我们需要使用 Spreadsheet::ParseExcel::SaveParser 这个模块，它综合了 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 的功能。这里特别强调一下，不管是修改 (overwrite) 已有的 Excel 数据，还是创建 (add) 新的 Excel 数据，均可以使用 AddCell 这个方法，如下所示：

       # Overwrite the string in cell A1
       $worksheet->AddCell( $row, $col, 'New string' );
   
       # Add a new string in cell B1
       $worksheet->AddCell( $row, $col + 1, 'Newer' );
   

   最重要的是，在用 AddCell 修改或是添加了新数据后，一定要记得保存 Excel 文件，否则修改不会被保存下来！保存文件用下面的语句：

       # Write over the existing file or write a new file.
       $template->SaveAs('newfile.xls');
   

   如果是同一个文件名，则把数据保存到原来的文件；如果是新文件名，则把数据保存到新的文件里。

4. Badger::Timestamp

   用 Badger::Timestamp 模块可以很方便地对时间戳 (timestamp) 进行修改、比较等操作，相当方便。

sub test_sub {
    print "test";
}

我又有一个变量：

$test = "test_sub";

这个 $test 的值刚好就是上面子过程的名称。既然我通过 $test 知道了这个子过程名称，我可以通过 $test 达到调用这个子过程的目的吗？也就是说，我让用户从命令行里输入一个子过程的名称，然后就可以根据这个名称来调用相对应的子过程。

方法一，直接根据用户输入的子过程名来调用该子过程。

完整的例子代码如下：

use warnings;
no strict 'refs';

sub test_sub {
    print "test";
}

$test = "test_sub";

$test->();

&{$test}();  #anyway to invoke the subroutine

这里要注意，需要用

no strict 'refs';

这个语句，否则脚本不能运行，Perl 解释器会提示类似于下面的错误：

Global symbol “$test” requires explicit package name at test2.pl line 10.

方法二，更常规的做法是专门用一个起分派作用的散列，根据用户输入的请示而调用相应的子过程。例如下面的 %dispatcher 就起到了绑定识别标记与相应子过程引用的作用，通过这个唯一的标记 (key)，我们可以很容易地找到对应的子过程引用。

my %dispatcher = (
    sub_test => sub { print "test" },
);

然后可以用和方法一相同的语法来调用这个子过程：

$dispatcher{$sub_name}->();

下面是方法二的一个完整的例子：

use warnings;
use strict;

sub test_sub {
    print "test\n";
}

sub test_other {
    print "test other\n";
}

my %dispatcher = (
                  "test_sub"     => \&test_sub,
                  "test_other"   => \&test_other,
                 );

print "\nPlease enter the test case you want to test:\n";

while( my $cmd = <> )
{
    chomp($cmd);

    $dispatcher{$cmd}->() if exists $dispatcher{$cmd};
}

当然，方法二要比方法一优秀得多，它可以避免用户输入错误的子过程名而导致一系列的麻烦。

1) 用Perl获得当前目录的路径名：

use Cwd;
print getcwd;

2) 打印变量值到屏幕的同时，保存到一个变量里：

print $str = ‘foo bar’;

当然，换成文件句柄也是一样的。

这种情况下，可以用Term::Complete这个module来实现用tab键自动补全。用法非常简单，看代码就差不多能理解了：

use warnings;
use strict;

use Term::Complete;

my @completion_list = (“atest”,”btest”,”cdtest”,”efgtest”);

my $input = Complete(‘please input the start character and use tab to complete: ‘, \@completion_list);
#$input = Complete(‘prompt_string’, @completion_list);

print “The input word is: “.$input;

在上面的代码里，我们设定了一个数组@completion_list，里面包含了需要补全的名称，Perl就是根据这个列表来对你输入的字符进行补全的。Complete函数是主导这个工作的核心，它的第一个参数是在终端上输出提示输入的说明，第二个参数就是能用于补全的词组列表。

运行这个脚本的时候，你按tab键，Perl会自动用列表中的词来帮你补全，你输入回车确定补全、输入结束后，Perl会把你输入的内容存到变量$input里。

这样，以后就再也不用敲一长串的字符了。

试了很多有名的工具，如Bugzilla，Mantis，感觉都太厚重了，团队用倒是蛮合适的。

后来想着用XML定义一个日志数据库，一个Bug开一个文件，这样可以详细记录Bug的内容及解决过程、方法等。再写一个前端，用来管理组织这些XML文件。但我个人的bug量不多，更多的时候，是随手写一点想法，这种XML严谨的组织方式，并没有让我觉得更轻松。

尝试着用Emacs Muse记录了一段时间，有一个缺点，就是我写下来的解决方法里，有很多是代码，如果我不加<verse></verse>标签，Muse会尽量地帮我重新转义一下。总的来说，Muse还是偏排版多一点，不适合于记录随想随写的东西。

最后，我发现用Perl的pod来做自己的bug追踪系统挺好的。Pod虽然是个文档系统，但是只要灵活地运用标签也是能做简单的bug追踪系统。Pod的优点是，当你不需要用命令的时候，直接输入你的内容即可，总体来说，比较简洁。

我的pod格式定义如下：

=pod

=head1 project 1

=head2 Bug #000001

=head3 Bug #000001的简单描述或标题

Bug #000001的详细描述，所有的有关内容。。

=head3 Bug Status::Fixed

=head3 Bug解决方法记录

=over indentlevel

=item 解决步骤一

解决步骤一的内容。

=item 解决步骤二

解决步骤二的内容。

=item Bug Fix summary

Solution of Bug #000001, the summary of this bug is:

Try to readcord the document in time and in style.

这里就写一写把Bug搞定后的总结。

=back

=head2 Bug #000002

=head3 Bug #000002的简单描述或标题

Bug #000002的详细描述，所有的有关内容。。

=head3 Bug Status::Active

=head3 Bug解决方法记录

=over indentlevel

=item 解决步骤一

解决步骤一的内容。

=item 解决步骤二

解决步骤二的内容。

=item Bug Fix summary

Solution of Bug #000002, the summary of this bug is:

Try to readcord the document in time and in style.

这里就写一写把Bug搞定后的总结。

=back

=head2 Bug #000003

=head3 Bug #000003的简单描述或标题

Bug #000003的详细描述，所有的有关内容。。

=head3 Bug Status::Suspended

=head3 Bug解决方法记录

=over indentlevel

=item 解决步骤一

解决步骤一的内容。

=item 解决步骤二

解决步骤二的内容。

=item Bug Fix summary

Solution of Bug #000003, the summary of this bug is:

Try to readcord the document in time and in style.

这里就写一写把Bug搞定后的总结。

=back

=cut

把上面的例子代码存成一个文档，比如说，我喜欢存为WaterBug.txt，后缀用.txt是为了方便用其它编辑器查看。

用pod2html的命令生成文档给其他人观看：

pod2html –infile WaterBug.txt –outfile WaterBug.html –title WaterBug

当然，你可以为这个文档写一个你自己的Style Sheet，生成一个打着你的logo的个性化文档：

pod2html –infile WaterBug.txt –outfile WaterBug.html –title WaterBug –css stylesheet.css

在定义我的pod格式时，我分别用Active，Suspended，Fixed，On-hold四种状态来标明Bug的状态，即”正在进行”、”还未开始”、”已经搞定”、”暂时放着”等四种状态，这些状态关键字都是以::开头进行标识。

以这些简单的标记来记录文档，我可以随手写在任何文本文件里，包括Google Docs这些在线文档，即使将来要转成其它格式的文档，也可以轻松地用perl来实现转换。

要查找特定状态的bug，只要搜索一下::Fixed或是::Suspended或是::Active或是::On-hold即可。

这个时候，我只好先修复配置错误，然后重新从头执行脚本。这样浪费了大量的时间，也弄得我很烦躁。工作原本就没太多乐趣，而我，哪里可能记得住这么多琐碎的事呢？

今天写了一个循环控制的东西，能在出错的步骤停止下来，等我修改了出错的步骤（系统环境而非代码本身），又能从中止的地方重新开始。示例代码如下：

use warnings;
use strict;

sub test1 {
print “test1\n”;
}

sub test2 {
print “test2\n”;
}

sub test3 {
print “test3\n”;

}

my $result = undef;

sub controller {
my $code_array = shift;
my ($code,$code_name) = @$code_array;
while (1) {
my $new_result = eval {&$code};
if ($@) {
print “$@ \n Someting is wrong when execute $code_name, please input ENTER when you fix it.”;
<>;
} else {
last;
}
}
}

my @codes = ([\&test1,"test1"],[\&test2,"test2"],[\&test3,"test3"]);

map {controller($_)} @codes;

运行这段代码，会依次执行子函数test1，test2，test3等。

其中的eval语句，是必不可少的！有了eval后，如果子函数运行时出错或执行了die函数，就会返回一个undefined的值，并且错误消息也会存储到$@变量里；如果一切顺序，$@里就是一个空的字符串。有关这个用法，可以详细地看看perldoc里有关eval的说明。

可以在test2或是其它子函数里插入一个die来试试中断的效果。

通过这样的结构，我就可以把很长的脚本分成若干个简短的子过程，大大地提高我的工作效率。另外要说明的是，代码本身的问题，并不能通过这样的方法来得到解决；还是得手动修改code，再重新运行。

有了pod，只要在写脚本的时候，随手记下想法、说明，就不用再另外编写文档了，非常方便。

建议先仔细读一读perldoc perlpod里面的内容，文档详细介绍了pod标记语言的语法。

$ perldoc perlpod

尽量保证一个比较好的书写习惯，例如：

=pod

=head1 NAME

Water::Test – The great new Water::Test!

=head1 VERSION

Version 0.01

=cut

开始和结束都应该要空一行。当你用如上形式写到你的代码文件里后，你只要用pod2html, pod2man之类的命令，就可以把它转为文档。

例如，如果你把上面的代码保存为test.txt文件，则用如下命令可以把它转为html文档：

$ pod2html –infile test.txt –outfile text.html