• Publicidad

Programa de conexión SSH2

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Programa de conexión SSH2

Notapor DonJuanTenorio » 2007-04-13 06:27 @310

Buenas tardes a todos,

Estoy intentando crear un programita que se conecte por SSH2 a un dispositivo, para ello me he instalado el ActivePerl 5.8.8 con el módulo NET::SSH:Perl y he hecho una prueba sencilla con este script:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new("172.17.24.2", protocol => 2);

$ssh->login("user","pass");
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


y al ejecutarlo me da el siguiente error:

Código: Seleccionar todo
The getpwuid function is unimplemented at :/Perl/site/lib/Net/SSH/Perl.pm line 110.


Mi duda es que esta función no sé dónde ha de estar implementada y que estructura debe tener y si necesito algún otro módulo, pero no creo que sea esto último ya que he utilizado para instalar el módulo el gestor de paquetes que trae el ActivePerl.
DonJuanTenorio
Perlero nuevo
Perlero nuevo
 
Mensajes: 5
Registrado: 2007-04-13 05:55 @288

Publicidad

Notapor explorer » 2007-04-13 06:45 @323

Bienvenido a los foros de Perl en Español.

Perl te dice la verdad: la función getpwuid no está implementada en la versión Perl de Win32:
http://perldoc.perl.org/perlport.html#D ... erivatives

La solución pasa por usar otro módulo. Usa el sistema de búsqueda de este foro para encontrar otras posibilidades.
search.php?mode=results
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor DonJuanTenorio » 2007-04-14 04:25 @226

Muchas gracias por todo y seguiré tu consejo.
DonJuanTenorio
Perlero nuevo
Perlero nuevo
 
Mensajes: 5
Registrado: 2007-04-13 05:55 @288

Notapor creating021 » 2007-04-14 08:57 @414

Tanbién puedes usar Net::SSH que si funciona en Windows
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor DonJuanTenorio » 2007-04-17 05:15 @260

Muchas gracias creating021, el módulo que he utilizado es el NET::SSH2, ya que la conexión ha de realizarse por dicho protocolo; el programa que he creado es:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use Net::SSH2;

  my $ssh2 = Net::SSH2->new();

  $ssh2->connect('172.17.4.18') or die;

  if ($ssh2->auth_password ('user', 'pass'))
        {
                my $chan = $ssh2->channel();
                $chan->exec('set clock timezone GMT+01:00');
               
        }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Ahora no da ningún error pero no ejecuta el comando que le paso, me podrías decir qué estoy haciendo mal.
DonJuanTenorio
Perlero nuevo
Perlero nuevo
 
Mensajes: 5
Registrado: 2007-04-13 05:55 @288

Notapor explorer » 2007-04-17 07:21 @348

Sería mejor que sacaras en pantalla el resultado del comando. Lo normal es que al hacer exec terminara el procesado del canal SSH que has abierto. Quizás con el método shell te vaya mejor.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados