Foro - Perl en Español

Buen día, señores.

Espero que me puedan ayudar en este asunto.

¿Existe alguna forma de capturar el STDOUT o STDERR en una variable y volcar su contenido en alguna variable? Me explico...

DBD::mysql::db do failed: Incorrect number of arguments for PROCEDURE ihome.INSERT_QUEUE_JOIN; expected 7, got 8 at /usr/lib/perl5/site_perl/5.8.8/DB_UTIL.pm line 171.

Este es un error que se ve desde el STDOUT o STDERROR. Mi idea es colocarlo en una variable para poder sacar un log más provechoso.

sub execQuery{
my ($self, $query) = @_;
my $dbh = $self->getDefaultConnection();
my $result = $dbh->do($query);
if ( $dbh->err() ) {
return "DB_ERROR code: " . $dbh->err() . " Error Mgs: " . $dbh->errstr();
}
return $result
}

En caso de error, la variable $result tiene un contenido parecido a este:

DB_ERROR code: 1318 Error Mgs: Incorrect number of arguments for PROCEDURE salon.update_producto

Pero el STDOUT o STDERR tiene esta información:

DBD::mysql::db do failed: Incorrect number of arguments for PROCEDURE salon.update_producto; expected 7, got 8 at /usr/lib/perl5/site_perl/5.8.8/DB_UTIL.pm line 169.

Saludos cordiales.

Bienvenido a los foros de Perl en Español, raul_javier.

El DBI, por defecto, activa la opción 'PrintError', que hará un warn() (salida de un mensaje por el STDERR) de las advertencias que ocurran en la ejecución de las consultas a la base de datos.

Prueba a desactivarlo.

En el manual de DBI, busca por "PrintError", donde te indica un procedimiento para capturar esos mensajes, si les quieres manipular antes de sacarlos o guardarlos en el registro.