#!/usr/bin/perl
#
use strict;
use DBI;
#There are many other security measures
# - Also, don't forget to use a 'username' and 'password' for the DB
# - Do Not use 'sa' and ''.
##################### DBI configuration ########################
my $hostip = "192.168.200.221";
my $username = "adminuser";
my $password = "password";
my $sid = "SOA01";
my $dsn = "DBI:Oracle:host=$hostip;sid=$sid";
my %attr = ( RaiseError => 1, AutoCommit => 0 );
# howto 1
my $dbh = DBI->connect ($dsn, $username, $password, \%attr) || die "Database connection not mode : $DBI::errstr";
# howto 2
#my $dbh = DBI->connect ("DBI:Oracle:host=$hostip;sid=$sid", $username, $password, \%attr);
my $que = "select table_name from tabs where rownum < 5";
my $table_name;
#
my $sth = $dbh->prepare($que);
$sth->execute() || die $sth->errstr;
while( ($table_name) = $sth->fetchrow() ) {
print "$table_name\n";
}
$sth->finish();
$dbh->disconnect;