Foro - Perl en Español

Pero, ¿te refieres a errores del propio script o a errores que detecte Expect cuando dialoga con el otro sistema?

Según la documentación, existe el método error(), que devuelve el último error detectado.

También puedes activar el log de actividad, que es lo más normal para saber qué está ocurriendo, por ejemplo a un archivo:

$object->log_file("filename");

o a la salida estándar

$object->log_stdout(1);


También se puede hacer de otra manera. Normalmente se llama al método expect() en contexto escalar, pero si lo haces en contexto de lista te devuelve más información:

my ($matched_pattern_position, $error, $successfully_matching_string, $before_match, and $after_match) = $object->expect($timeout, @match_patterns);


Del manual:

El segundo valor que devuelve, $error, es el error que obligó regresar a expect(). $error contendrá un número seguido de una cadena equivalente que expresa la naturaleza del error. Los posibles valores son: undef, que indica que no hubo error; '1:TIMEOUT' que indica que pasaron $timeout segundos sin que ocurriera una coincidencia de patrones; '2:EOF' que indica que se leyó un fin de archivo desde $object; '3: spawn id($fileno) died' que indica que el proceso salió antes de realizar la coincidencia; y '4:$!' que indica que se estableció cualquier otro tipo de error en $ERRNO durante la última lectura sobre el identificador de archivo de $object o durante un select(). Todos los identificadores de archivo apuntados por el método set_group(), más STDOUT, tendrán datos que mostrar que $object les mandó durante expect(), si se establecieron log_group() o log_stdout().

Si se trata de un archivo que está en el mismo directorio o sistema de archivos en donde se está ejecutando el programa, se puede comprobar si existe o no con la ayuda de un operador del tipo -X:


No sé si te refieres a esto.

Tienes más información en perldoc -f -X

Pues... yo no soy muy experto en Expect, así que no sé si eso es posible.

¿Sabes que se ha instalado correctamente el archivo en el destino? Una forma sería calcularle un MD5 y compararlo con el del original, pero es muy posible que no exista el comando md5sum en el equipo remoto, o que incluso podamos ejecutar algo allí.

Veo que estás usando sftp para mover los archivos. Entonces, estás usando Expect para conectarte a una máquina, y con el sftp, llevar un archivo local tuyo a esa máquina. ¿Es correcto? Entonces, ¿por qué no usar directamente Net::SSH2::SFTP o alguno de los otros módulos sftp para llevar archivos locales hacia/desde sistemas remotos? Controlas la presencia de los archivos locales por medio de test. Y la comunicación está asegurada por el propio protocolo, o devolverá un error muy claro.

Como último recurso, se me ocurre bajarme el archivo para ver si es igual al que tenía antes.