AnySQL.net

    对于管理Unix/Linux上面数据库的DBA来说, 学点Perl是很有用的技术. 来到这个公司后, 所有的数据库都在Unix上, 因此也就有了学习Perl的压力, 可到现在也没有学好, 没有为公司写过一个用Perl语言的小工具. 下面是我学习过程中的第二个程序, 其中用到了DBI来查询数据库的记录. 程序如下:

#!/usr/bin/perl -w
#
use DBI;

# Get a database connection Handle.
my $dbconn = DBI->connect("dbi:Oracle:tnsname","username","password");

my $row;

# Fetch record row by row into an array
$row=$dbconn->selectall_arrayref("SELECT TNAME,TABTYPE FROM TAB");

foreach my $rec (@$row)
{
   print ($rec->[0].",". $rec->[1]. "\n");
}

# Disconnect the database at last
$dbconn->disconnect();

    第一个程序是"SELECT SYSDATE FROM DUAL"的, 在这儿就不写了. 自从我写了一些Java和C程序后, 学习Perl就来得很慢了, 可能是因为年龄大了的原因吧.

    领导一直想让我学会Perl的, 后来我只能说, 你这就强迫我学SQL Server一样, 就是不容易学得会!