Would you help me how to execute like @xx.sql in PL/SQL in perl?
If I do not execute select query, I want to get the query result using by x.sql
file.
It mean that I want to execute x.sql file after connecting oracle, then I want
to get the output.
Is it possible or not ?
use DBI;
...
...
my $dbh = DBI->connect ($dsn, $username, $password, \%attr) || die "Database
connection not mode : $DBI::errstr";
my $que = "@/lhome/elcaro/scripts/admin/moniCPU.sql";
#my $que = "select instance_name from v\$instance";
my $cursor = $dbh->selectall_arrayref($que);
for (@$cursor) {
print "@{$_} \n";
}
$dbh->disconnect;
Hyejin Woo
GM&Q / Network & DBA
Certificate : CISA, CCNP, IBM AIX Expert, HP-UX, ITIL
HP-DIS
23, Sungju-dong, Changwon, Kyeongnam, 641-745, South Korea
Office : +82-55-269-1272 / Fax: +82-55-269-1261
Mobile : +82-10-9300-6793
Mail : [email protected]
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
