eagle’s home

不知道国内有多少dba平时使用perl,印象里好像不多。国外使用perl的人相对要多一些。

大部分人估计都是用shell编程的。
我也是在进公司后才开始写perl程序的，前前后后一年时间写了一些简单的程序。

感觉perl的功能确实很强大，对dba的日常数据库管理有很大帮助，特别是在数据库很多的情况下。

在对一些比较复杂的问题处理上比shell要好用，写起来也比较优雅一点:)

如果有兴趣的朋友可以学习一下，关于perl数据库编程方面有这本书可以参考下

Programming The Perl DBI.pdf

当然还有经典的

Programming Perl.pdf

下面给一个我的最简单的perl链接数据库运行query的例子，希望大家先有个感觉，perl就是这么简单:)

#!/usr/bin/perl -w

use strict;
use DBI;
use Getopt::Std;

my $dbh=DBI->connect(‘dbi:Oracle:’,”xfan/xfan”) || die “Can not connect to database.”;
$dbh->{RaiseError}=1;
$dbh->{PrintError}=0;

my $sql = qq{ select tname from tab };
my $sth = $dbh->prepare($sql) ;
$sth->execute();

print join(‘,’,@{$sth->{NAME}}),”\n”;

while( my @result = $sth->fetchrow_array ) {
print $result[0],”\n”;
}
$sth->finish;
$dbh->disconnect;

运行结果

$ t.pl
TNAME
PLAN_TABLE

Eagle Fan oracle