Run a block of sql commands using 'here document'

[perlbeg]

Hi,

I know that using 'Here Documents', we can otuput multiple lines. But is it possible to run a couple of commands?

$s = qx [sqlplus user/paswd\@schema <<ENDOFSQL
select 2 from DUAL;
exit
ENDOFSQL];
 

Any ideas on how to make the above code work??
(I do not want to install DBI module and then invoke the sql commands)

Thanks in advance!!!

Sailaja

[miller]

My suggestion is that you output these commands to a file first, and then import the file. It certainly might be possible to do it the other way, but this way you could also pipe out the result.

`sqlplus user/paswd\@schema < test.sql > result.sql`;
 

Yes, this is messy. But I believe that it's cleaner than what you were attempting before at least.

- Miller

[perlbeg]

Thanks for the response.

I was able to do in the following manner:

sub sqlplus {
    my $param = shift;
    my $script_text = shift;
    open my $script, "| sqlplus $param" or die $!;
    print $script $script_text;
    close $script or die $!;
}
 
sqlplus("devscu/devscu@dbkls", <<SCRIPT );
select 2 from DUAL;
exit
SCRIPT
 

[miller]

Very nice. Well done.

- Miller