Foro - Perl en Español

por **perlo** » 2007-09-06 09:29 @437

Soy nuevo en Perl y estoy haciendo un programa que reinicia varios routers pero no me funciona. Tengo un error de variables por lo que hago una consulta porque no puedo ver las variables... ¿Está mal el código?

Muchas gracias

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

!/usr/local/bin/perl
use Net::Telnet::Cisco;
my@ciscos=({ip=>'1.1.1.1', user=>'test', pass=>'test1', root=>'root'});
formy$cisco(@ciscos){

my$session= Net::Telnet::Cisco->new(Host =>'$ip');
$session->login($cisco=>'$user',$cisco=>'$pass');
my@output;
#Enable mode
if($session->enable($cisco=>'$root')){
$session->errmode(sub{die@_unless$_[0]=~/eof/});
@output=$session->cmd("reload\n\n");}
else{
warn"Can't enable: ".$session->errmsg;}

}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

estás usando las referencias, tu tendrás un array donde cada elemento es una referencia a un hash...verdad ?

entonces en vez de

$session->login($cisco=>'$user', $cisco=>'$pass');

debes usar algo así como

$session->login($$cisco{'$user'}, $$cisco{'$pass'};

no lo probé pero debería de funcionar...

Saludos

por **perlo** » 2007-09-06 11:41 @528

Muchas Gracias por la respuesta, pero me dio un error

Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/5.8.8/Net/Telnet/Cisco.pm line 39.
write error: filehandle isn't open at reloadscript.pl line 19

por **explorer** » 2007-09-06 11:42 @529

En la primera línea el shebang está mal escrito: falta el '#' inicial.
Defines la variable @ciscos de una forma bastante complicada, para un novato, pero suponemos que lo haces así porque te interesa conectarte a las máquinas en un determinado orden. Lo que has definido es un array con una lista de un solo elemento que es un array con cuatro pares clave/valor, con este contenido:
Código: Seleccionar todo
$VAR1 = { 'pass' => 'test1', 'ip' => '1.1.1.1', 'user' => 'test', 'root' => 'root' };
por lo que en principio, está bien.
Dentro del bucle, estás usando los separadores '=>' en lugar de la indirección '->'. Y comillas simples alrededor de variables, impidiendo que se interpole su contenido. Por ejemplo, en lugar de $cisco=>'$user', deberías escribir $cisco->{user}.

por **perlo** » 2007-09-06 12:10 @548

Muchísimas gracias por la respuesta , que tonto error de sintaxis que tenía

Son los mejores, saludos

Foro - Perl en Español

Usar variables de arreglo de hashes

Usar variables de arreglo de hashes

Publicidad

¿Quién está conectado?