Hola,
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");
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.
2011-11-02 14:49 @659
