Foro - Perl en Español

por **xigr** » 2006-02-22 03:08 @172

¡Buenos días!

Pues no sé por qué me hace lo siguiente :s para unos switch no hay problema, y para otros leyendo lo mismo sí. Capturo varios datos de al hacer "show version" en este caso capturo el modelo del switch para luego poner unas u otras configuraciones, pero no sé por qué me sale el error.

Las primeras líneas que captura son: (y yo le digo que lea la segunda, y siempre es la segunda)

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Switch>sh version

Cisco Internetwork Operating System Software 

IOS (tm) C2950 Software (C2950-C3H2S-M), Version 12.0(5.3)WC(1), MAINTENANCE INTERIM SOFTWARE

Accediendo al Switch 4: 10.96.216.230

Modelo switch --> C2900XL

Accediendo al Switch 5: 10.227.99.113

Use of uninitialized value in split at grgrgrSwitch.pl line 56, <FILE> line 5.

Use of uninitialized value in pattern match (m//) at grgrgrSwitch.pl line 58, <FILE> line 5.

Use of uninitialized value in concatenation (.) or string at grgrgrSwitch.pl line 60, <FILE> line 5.

Modelo switch --> Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En el script lo tengo puesto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$session->cmd('show ver');
@salida=$session->waitfor(String => 'Switch#');
$resul=$salida[0];
@lineas = split(/\n/, $resul);
$model=$lineas[2];
($model2) = $model =~ m/^IOS \(tm\) (.+) Software/;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Es más... Acabo de lanzarlo otra vez, y sin hacer cambios ahora no da error el que antes si lo daba :s

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Accediendo al Switch 5: 10.227.99.113

Modelo switch --> C2900XLColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡Gracias!
iñaki

No sé a qué puede deberse el error...

Puedes hacer varias cosas. Puedes utilizar errmode y errmsg para intentar averiguar si ocurre algún tipo de error en el momento de enviar y recibir.

Si es algo que al final no se puede solucionar (es decir, es completamente aleatorio que los switchs generen una salida correcta o no), puedes incluir tus líneas de petición de información dentro de un bucle.

Algo así como (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $intentos = 0;
my $resultado;
while ( not defined($resultado) and $intentos < 3 ) {
    $session->cmd('show ver');
    ($resultado, undef) = $session->waitfor(String => 'Switch#');
    $intentos++;
}
die "No pude conectarme!" if $intentos == 4;
my @lineas = split ...
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **kidd** » 2006-02-22 09:57 @456

Hola.

Para que no te siga apareciendo el error, cambia la parte que dice:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

($model2) = $model =~ m/^IOS \(tm\) (.+) Software/;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

a lo siguiente

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $model2 = '';
 
if ( $model =~ m/^IOS \(tm\) (.+) Software/ ) {
    $model2 = $1;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

SALUDOS

por **xigr** » 2006-02-22 10:33 @481

¡Gracias!

¿Podrías ser porque capturara algún espacio en blanco? Es decir, por otros scripts me ha parecido que ese error, o similar, me ha salido al decirle "captura linea 4" y esa línea estuviera vacía :s

De todas formas, usaré las variables para los errores ahora, a ver qué me dice.

Saludos,
iñaki

por **explorer** » 2006-02-22 12:41 @570

Pues sí... podría ser...

Habría que echar un vistazo al código de Net::Telnet, por si acaso...

Foro - Perl en Español

Use of uninitialized value in pattern match (m//) at...

Use of uninitialized value in pattern match (m//) at...

Publicidad

Re: Use of uninitialized value in pattern match (m//) at...

Re: Use of uninitialized value in pattern match (m//) at...

¿Quién está conectado?