comment on

Thanks Roboticus, you got the nerve "It also contains commands that sqlplus uses to format the output." I tried many ways, two popular one are using DBI and DBIx::MultiStatementDo but still no results. Example using DBI

$dbh=DBI->connect("dbi:Oracle:$xmlArray[$flagArray[$outerCounter]][0]"
+,"$xmlArray[$flagArray[$outerCounter]][1]","$xmlArray[$flagArray[$out
+erCounter]][2]",{AutoCommit=>0}) or die "Can't log in: $!"
 open FILE, "<defaultOutput.sql";
           my $file_contents = do { local $/; <FILE> };
printf "\nFinal sql :: %s \n",$file_contents ;
$sth=$dbh->prepare($file_contents) or die "$DBI::errstr";
$sth->execute or die "Can't execute sth: $DBI::errstr.";
while (($mycolumn)=$sth->fetchrow_array)
{   
  print "\n$mycolumn\n" if defined $mycolumn;
}
[download]

Example using DBIx::MultiStatementDo;

$dbh=DBI->connect("dbi:Oracle:$xmlArray[$flagArray[$outerCounter]][0]"
+,"$xmlArray[$flagArray[$outerCounter]][1]","$xmlArray[$flagArray[$out
+erCounter]][2]",{AutoCommit=>0}) or die "Can't log in: $!"
 open FILE, "<defaultOutput.sql";
           my $file_contents = do { local $/; <FILE> };
printf "\nFinal sql :: %s \n",$file_contents ;
            my $batch = DBIx::MultiStatementDo->new( dbh => $dbh );
            my @results = $batch->do( $file_contents ) or die $batch->
+dbh->errstr;
print scalar(@results) . ' statements successfully executed!';
$dbh->disconnect;
[download]

Please let me know where I am doing wrong ? What I should be doing ?

In reply to Re^2: Multiple sql statements in one sql file by leo_jeo
in thread Multiple sql statements in one sql file by leo_jeo

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Do you know where your variables are?
	PerlMonks