开始学习perl

从今天开始学习perl,写个连接oracle数据库小例了感觉不错.

dbi2.pl

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 program_name FROM test");

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

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