详解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);  

本文来源：www.lxlinux.net/7454.html，若引用不当，请联系修改。

服务器购买/咨询热线：15637009171或15617636856