PERL ORACLE数据库

#!/usr/bin/perl


use DBI;
use DBI qw(:sql_types);

#&connectOra;


sub connectOra
{
        my ($strHost,$strUser,$strPasswd) = @_;
        DBI->trace(0);
        my $dbhOra = DBI->connect("dbi:Oracle:${strHost}", ${strUser}, ${strPasswd},
                               { AutoCommit => 1, PrintError => 0, RaiseError => 0 } ) ;
                                                            
        unless (defined($dbhOra) ) { return undef; }

        return $dbhOra;
}








$dbh = DBI->connect("dbi:Oracle:","scott","tiger") or die("DB connect error! \n");

$sql = "select * from emp";
$sth = $dbh->prepare($sql);
$sth->execute() or die("error!");

while(@rows = $sth->fetchrow_array)
{
foreach(@rows)
{
print "$_\t";
}
print "\n";
}

$sth->finish;
$dbh->disconnect();
exit 0;