将sqlplus命令的输出保存到数组中的任何可能方法-Perl

Question

Currently, I am spooling the sqlplus command into a text file but even this is causing me problems as I would like to separate the values by commas. So far It has not worked.

I was hoping something like this would work

 @test = system('sqlplus un/pw@host @test.sql');

The test.sql file contains three statements all returning numbers. If I could save these to the @test array, this would be great.

Any ideas?

Answer 1

Use the DBI module with DBD::Oracle :

#!/usr/bin/perl
use warnings;
use strict;

use DBI;

my $dbh = DBI->connect("dbi:Oracle:host=host;sid=dbname",
                       $user, $password);

open my $IN, '<', 'test.sql' or die $!;
$/ = ';'; # Queries separated by semicolons, no other semicolons anywhere!
while (my $sql = <$IN>) {
    my $sth = $dbh->prepare($sql);
    $sth->execute;
    my @test = @{ $sth->fetchall_arrayref // [] };
    print "@$_\n" for @test;
}

Answer 2

The DBI script based is good, but if your point is about the use of sqlplus command in any case, you should take a look at this CPAN module: Expect . It provides you a deeper control of an external command in many and useful ways.