大神教你：Perl 编程技巧

共计 1521 个字符，预计需要花费 4 分钟才能阅读完成。

调试 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::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);

阿里云 2 核 2G 服务器 3M 带宽 61 元 1 年，有高配

腾讯云新客低至 82 元 / 年，老客户 99 元 / 年

代金券：在阿里云专用满减优惠券