Guazon

#!/usr/bin/perl

use Net::SSH qw(sshopen2);

my $user = "operador";

my $cmd = "ls";
# Archivo donde guardamos el output del comando
.
open LS,">ls.txt";


# Archivo que contiene las direcciones IP's de los servidores

open DATOS,"ips.lst";


while ( $linea = <DATOS> ) {



# Guardamos la direccion IP en el archivo de salida
print LS $linea;



# Quitamos el retorno de carro final

chomp($linea);



# Ejecutamos el proceso

sshopen2("$user\@$linea", *READER, *WRITER, $cmd) || die "ssh: $!";



# Leemos la salida y la grabamos

while ( <READER> ) {

print LS $_;

}

}



close(READER);

close(WRITER);

close(LS);

close (DATOS);