Volver al Programación / Codificación foro

telnet en perl

  • shoeb83
  • Born
  • Born
  • No Avatar
  • Registrado: Mar 10, 2010
  • Mensajes: 2
  • Status: Offline

Nota Marzo 10th, 2010, 10:32 am

Quiero hacer un telnet desde una plataforma UNIX a un servidor remoto y ejecutar algunos comandos (como ls-l).

Es necesario automatizar el proceso. Cómo buscar en Google me encontré Net:: Telnet, pero no entiendo realmente qué hacer.

La enfermedad esté contento si alguien me ayuda a este respecto.
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Marzo 10th, 2010, 10:32 am

  • Don2007
  • Web Master
  • Web Master
  • No Avatar
  • Registrado: Nov 21, 2006
  • Mensajes: 4924
  • Loc: NY
  • Status: Offline

Nota Marzo 10th, 2010, 3:39 pm

En primer lugar, si no su servidor, es probable que sshd se está ejecutando y no telnetd.

En cualquier caso, usted necesita un nombre de usuario y contraseña en el servidor. ¿Tiene usted que?

Aquí está un ejemplo. De mi caja de Unix Me conecté a mi máquina Linux.

queyosepa #ssh-l No 192.168.1.21
donoli@192.168.1.21s contraseña:
Don-de escritorio Linux 2.6.24-26-386 #1 Vie Dic 1 17:56:13 UTC 2009 i686
Último acceso: Lun Feb 8 20:34:26 2010 de 192.168.1. 97
Don @ don-desktop: ~ $ ls-snm
4 drwxr-xr-x 36 don don 4096 2010-02-08 20:30.
4 drwxr-xr-x 3 root root 4096 2008-08-23 23:31 ..
8-rw ------- 1 don don 6027 2010-02-06 19:44. Bash_history
4-rw-r - r - 1 don don 220 2008-08-23 23:31. Bash_logout
4-rw-r - r - 1 don don 414 2008-08-23 23:31. Bash_profile
etc.... tijeras para ahorrar espacio.
How do you know when a politician is lying? His mouth is moving.
  • shoeb83
  • Born
  • Born
  • No Avatar
  • Registrado: Mar 10, 2010
  • Mensajes: 2
  • Status: Offline

Nota Marzo 11th, 2010, 8:41 am

Creo que no puede hacer que usted entiende el problema.

Puedo a un servidor de telnet de la terminal como a continuación

telnet 192.168.111.111

Usuario: testuser
Contraseña:
Último acceso: mar..........................
........................................

Entonces puede ejecutar comandos como a continuación
ls-l
...
...


Quiero hacer esta tarea con un script en Perl para hacerlo automáticamente.
  • Don2007
  • Web Master
  • Web Master
  • No Avatar
  • Registrado: Nov 21, 2006
  • Mensajes: 4924
  • Loc: NY
  • Status: Offline

Nota Marzo 11th, 2010, 2:41 pm

Lo siento, no sé perl. Tal vez alguien más puede ayudar.
How do you know when a politician is lying? His mouth is moving.
  • this213
  • Guru
  • Guru
  • Avatar de Usuario
  • Registrado: Mar 01, 2004
  • Mensajes: 1242
  • Loc: ./
  • Status: Offline

Nota Abril 15th, 2010, 10:34 am

Net:: Telnet es bastante sencillo:
Código: [ Select ]
#!/usr/bin/perl
use Net::Telnet;
$conn = new Net::Telnet(Timeout=>30,Errmode=>'die' Prompt => '/$ $/i');
$conn->open('my.domain.com');
$conn->login('username','password');
@output = $conn->cmd('ls -l');
$conn->close;
  1. #!/usr/bin/perl
  2. use Net::Telnet;
  3. $conn = new Net::Telnet(Timeout=>30,Errmode=>'die' Prompt => '/$ $/i');
  4. $conn->open('my.domain.com');
  5. $conn->login('username','password');
  6. @output = $conn->cmd('ls -l');
  7. $conn->close;


Echa un vistazo aquí para más información:
http://search.cpan.org/~jrogers/Net-Tel ... /Telnet.pm

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 5 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 150 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC