详解Perl 编程技巧

Perl，一种功能丰富的计算机程序语言，运行在超过100种计算机平台上，适用广泛，从大型机到便携设备，从快速原型创建到大规模可扩展开发。

Perl 语言的应用范围很广，除CGI以外，Perl被用于图形编程、系统管理、网络编程、金融、生物以及其他领域。由于其灵活性，Perl被称为脚本语言中的瑞士军刀。

利用注释调试：使用 Smart::Comments 模块

调试 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 语句：不要直接在代码中使用 SQL 语句

对于向数据库中插入数据的操作，可以使用下面代码来实现 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);