<div>Adriano, bom dia.</div>
<div> </div>
<div>Coloquei no meu banco de conhecimento a sua sugestão, contudo, encontrei outro modulo que realiza de uma maneira mais facil e rapida.</div>
<div> </div>
<p>use DBI;<br>use DBD::Oracle;<br>use DBIx::Procedure::Oracle;</p>
<p>sub ExecProcedure<br>{<br> my ($proc,$uf,$parm) = @_;<br> $usr = "xxx\@yyy";<br> $pass = "ddddd";<br> gravalog "Recebido na ExecProcedure: $proc - $uf - $parm - $parm1\n";<br> unless ($dbh = DBI->connect("dbi:Oracle:", $usr, $pass, { PrintError => 0, RaiseError => 1} ))
<br> {<br> return -1,"Erro ao tentar conectar no Oracle: $DBI::errstr\n";<br> <br> }<br> <br> gravalog "Conexao Estabelecida com Sucesso ao Bco de Dados";<br> $pointp = DBIx::Procedure::Oracle->new( $dbh, , object_name => $proc );
<br> <br> unless ($retorno = $pointp->execute($uf,$parm))<br> {<br> gravalog "Erro na Execução da Procedure [$DBI::errstr] ";<br> if ( chomp($DBI::errstr) == NULL )<br> {<br> return -1, "Erro na Execucao da Procedure\n$DBI::errstr";
<br> }<br> }<br> return 0, "Procedure Executada com sucesso. [$proc - $uf - $parm]";<br>}<br></p>
<div><br> </div>
<div>Resalto apenas para o fato de que esse modulo não foi adicionado pelo PPM e sim pelo</div>
<div>MCPAN.</div>
<div> </div>
<div>Abraços<br> </div>-- <br>Juliano Dantas Almeida Silva