• Publicidad

Captura errores

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Captura errores

Notapor jmdelcampo » 2008-10-29 11:19 @513

Buenas a todos.

Tengo un proceso en el que debo acceder a archivos de forma remota para ello hago, evidentemente,

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
open(FH,$file) || $log->error_die();
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

donde
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$file = '/usr/local/bin/ssh logcollector "/usr/bin/gzcat /Informatica/ftp_core_r9/logs/cae/cae90*.prdes_access.log_20081028*.* || /usr/bin/cat /Informatica/ftp_core_r9/logs/cae/cae90*.prdes_access.log_20081028*.*" |';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Al ejecutarlo obtengo el siguiente error:
Código: Seleccionar todo
sh: /usr/local/bin/ssh: not found
y sigue ejecutando el proceso.

Alguien me podría ayudar para capturar el error y saber cuándo existe y cuándo no.

Saludos y gracias.
jmdelcampo
Perlero nuevo
Perlero nuevo
 
Mensajes: 32
Registrado: 2006-11-24 07:43 @363

Publicidad

Notapor creating021 » 2008-10-29 14:57 @664

Intenta lo siguiente ->
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
open ( FH, $file ) or {
    my $error = $!; # Esto atrapa el error;
    $log->error_die();
};
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Para saber si el ejecutable existe (como ejecutable) puedes hacer lo siguiente ->

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if ( -x "/ruta/del/ejecutable" ) {
    print "El ejecutable existe";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


O también puedes usar esto...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if ( open FH, $file ) {
    print "El archivo se ha ejecutado\n";
}
else {
    print "ERROR: $!\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


También puedes usar IPC::Open3 o algún módulo SSH que podrías encontrar en CPAN
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor jmdelcampo » 2008-10-30 08:40 @403

Gracias creating021
jmdelcampo
Perlero nuevo
Perlero nuevo
 
Mensajes: 32
Registrado: 2006-11-24 07:43 @363


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron