Foro - Perl en Español

por **neodani** » 2013-05-25 16:44 @739

Buenas noches.

Tengo un script en Perl para realizar copias de BD de MySQL, y quiero poder detectar cuándo se ejecuta bien o cuándo da algún error, pero no consigo cazar las excepciones de errores.

¿Sabéis cómo puedo saber si un comando se ejecutó correctamente o dio algún error en Perl?

Orden que utilizo (acepto consejos):

system("/usr/bin/mysqldump -u $userDB --password=$passwordDB --single-transaction --routines --events --triggers --hex-blob $bd | /bin/gzip -c > $DST/$DATA" . "_" . $bd . ".sql.gz");

Ej. de excepciones:
mysqldump: Got error: 1045: Access denied for user 'root'@'localhost' (using password: YES) when trying to connect

DBI connect('database=mysql;user=root;password=xxxxxxxxxxx','',...) failed: Can't connect to local MySQL server through socket

Muchas gracias.

if ( $? == -1 ) {
    print "fallo al ejecutar: $!\n";
}
elsif ( $? & 127 ) {
    printf "El proceso murió con la señal%d, %s volcado de memoria\n", ( $? & 127 ), ( $? & 128 ) ? 'con' : 'sin';
}
else {
    printf "El proceso salió con el valor %d\n", $? >> 8;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

(sacado de perldoc -f system).

Si todo ha ido bien, el resultado debería ser 0. Si no, otro valor. Tienes los valores descritos en la página Types of Error Values de MySQL.

Otra cosa son los errores del DBI...

Si, en el momento de hacer la conexión (connect()), le pones la opción RaiseError => 1, entonces DBI generará un error en lugar de devolver códigos de error. Entonces... como dice la página de manual de DBI, este comportamiento se suele usar junto con el de eval{}, para que las excepciones sean capturadas, y luego compruebas el valor de $@ para ver qué errores se han producido. Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

         eval {
           ...
           $sth->execute();
           ...
         };
         if ($@) {
                    # $sth->err y $DBI::err serán verdaderos si el error se generó en DBI
           warn $@; # imprime el error
           ...;     # tratar el error aquí
         }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en la sección RaiseError de DBI.

Foro - Perl en Español

Cómo detectar un código de error al ejecutar comando

Cómo detectar un código de error al ejecutar comando

Publicidad

Re: Cómo detectar un código de error al ejecutar comando

¿Quién está conectado?