tengo que comprimir un archivo remotamente y al ser muy grande el archivo, no lo realiza.
Using perl Syntax Highlighting
- my $ssh = Net::SSH::Expect->new(
- host => $ip,
- password => $pass,
- user => $user,
- raw_pty => 1
- );
- my $login_output = $ssh->login();
- if ( $login_output !~ /Last/ ) {
- &writeLog("Login has failed. Login output was $login_output");
- $retorno = 'error';
- }
- if ( $retorno eq 'success' ) {
- my $gzip = $ssh->exec("gzip $path/$archivo");
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Ahora, si coloco timeout (my $gzip = $ssh->exec("gzip $path/$archivo",45)), espera todo el tiempo más de lo que se demoró en zipear.
¿Cómo lo hago para que suelte cuándo termina de zipear?
Gracias.
