大神教你：Perl 编程技巧

调试 Perl 脚本有两种方式：一种是使用 Perl 的内置调试器，另一种是在脚本中嵌入 print 语句。如果是第二种，大概就会了解到，像那样手工调试的最大问题是：一旦移除了 bug，就得也同时通篇移除调试语句。但是如果能将这些语句安全地留在代码里不是更好吗？毕竟很可能再此需要他们，特别是当又有 bug 出现的时候。

现在，在 Perl 里有这样一个模块：它可以利用注释来开启调试语句，这就是 Smart::Comments 模块。下面是最简单的示例，当使用 Smart::Comments 时，任何由三个或更多个 # 开头的注释就会变成调试语句，并会把注释的所有内容送到屏幕：

#!/usr/bin/perl
use Smart::Comments;

my @ipaddr = split //./, "10.109.32.151";

### @ipaddr;

当执行这段代码后，Smart::Comments 会找到三个一组的 # 注释，并打印出它们所包含的所有内容：

### @ipaddr: [
###            '10',
###            '109',
###            '32',
###            '151'
###          ]

Smart::Comments 的用法不只限于打印变量值，它甚至可以在代码的循环部分用进度条的形式动态现实，更加详细的描述，请参考 perldoc 文档。

我想你一定知道 Perl 中的钻石操作符（<>）。所以如果想把文件一次性读入是，应该首先修改 $/ 变量：

open CONF, "< ", $file;
my $text = do { local $/;  };

模块 File::Slurp 中有关于文件操作的更多方式。

对于向数据库中插入数据的操作，可以使用下面代码来实现 SQL 语句：

sub insert {
    my ($table, $data) = @_;

    my $sql = "insert into `$table` ";

    my $insert_fields = join ", ", map { "`$_`" } keys   %$data;
    my $insert_values = join ", ", map { "'$_'" } values %$data;

    $sql .= join " ", "(", $insert_fields, ") ";
    $sql .= join " ", "values ", "(", $insert_values, ")";

    # open a database and return $dbh
    my $sth = $dbh->prepare($sql);
    $sth->execute() or die;

    $sth->finish();
}

调用时只需要依据表名和哈希数据即可：

my %data = (
        name    => "Alice",
        age     => "23",
        country => "U.S.",
);
insert "student", /%data;

我们知道一般情况下如果需要交换两个变量的值，那么需要使用一个临时变量才能完成，但是在 perl 中，可以这么做：

my ($foo, $bar) = ("foo", "bar");
($foo, $bar) = ($bar, $foo);