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.