Suena bien, pero digamos q no te dejan hacer eso en el server, y q tienes q introducir una clave,, como introduciras, eso en el codigo? utilizarias a un SSH ?
#ssh("$user\@$host", "$cmd");?
Saludos,
-
- Publicidad
Conectividad SSH a varios Host
23 mensajes
• Página 3 de 3 • 1, 2, 3
Publicidad
por explorer » 2007-07-19 15:52 @703
Pues fácil... si quieres modificar la salida, significa que necesitas cambiar la forma de hacer los printsitu escribiste:¿Cómo puedo hacer para obtener como resultado lo siguiente?
- Código: Seleccionar todo
IP
salida del comando
Así sé a qué servidor corresponde cada salida.
Gracias
Using perl Syntax Highlighting
# Para cada $linea de DATOS
while ( $linea = <DATOS> ) {
# Pintamos la IP en el fichero de salida
print LS $linea;
# Quitamos el retorno de carro final
chomp($linea);
# Run!
sshopen2("$user\@$linea", *READER, *WRITER, $cmd) || die "ssh: $!";
# Leemos lo que llega y lo grabamos
while ( <READER> ) {
print LS $_;
}
}
while ( $linea = <DATOS> ) {
# Pintamos la IP en el fichero de salida
print LS $linea;
# Quitamos el retorno de carro final
chomp($linea);
# Run!
sshopen2("$user\@$linea", *READER, *WRITER, $cmd) || die "ssh: $!";
# Leemos lo que llega y lo grabamos
while ( <READER> ) {
print LS $_;
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
23 mensajes
• Página 3 de 3 • 1, 2, 3
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados