Perl

[Perl] Problème de syntaxe

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Problème de syntaxe

Profil supprimé

Bonjour j'ai récupéré ce script qui via SNMP récupére les adresses IP et Label des interfaces de routeurs Cisco.

Code :

#!/usr/bin/perl
#
# host.pl -- a script to build a detailed host file from
# information gathered from a router list.
#
#Set behavour
$workingdir="/home/****";
$snmpro="*****";
#
$rtrlist="$workingdir/RTR_LIST";
$snmpwalk="/usr/bin/snmpwalk -v2c -c $snmpro";
$snmpget="/usr/bin/snmpget -v2c -c $snmpro";
open (RTR, "$rtrlist" ) || die "Can't open $rtrlist file";
open (RESULT, ">$workingdir/RESULT" ) || die "Can't open RESULT file";
while (<RTR> ) {
chomp($rtr="$_" );
@ifIndex=\Q$snmpwalk $rtr "ipAdEntIfIndex"\Q;
@ipAddress=\Q$snmpwalk $rtr ipAdEntAddr\Q;
$rtr1=\Q$snmpget $rtr .1.3.6.1.4.1.9.2.1.3.0\Q;
chomp(($foo, $RTR) = split (/"/, $rtr1));
$arraynum=0;
for $ifnumber (@ifIndex) {
chomp(($foo, $ifnum) = split(/= /, $ifnumber));
$ifDescription=\Q$snmpget $rtr ifName.$ifnum\Q;
chomp(($foo, $ipaddr) = split(/: /, $ipAddress[$arraynum]));
chomp(($foo, $ifdes) = split(/= /, $ifDescription));
$name="$RTR-$ifdes";
#$name=~s/\//-/;
if ( $ifdes eq "Lo0" ) { $name=$RTR };
print RESULT "$ipaddr\t\t$name\n";
$arraynum++;
}
}
close(RTR);
close(RESULT);

Voici le résultat lors de l'éxecution du script qui montre que la syntaxe \Q pose pb (qui d'ailleurs je ne connaissais pas l'existence de ce paramétre) :

String found where operator expected at host.pl line 17, near "$rtr "ipAdEntIfIndex""
(Missing operator before "ipAdEntIfIndex"?)
Backslash found where operator expected at host.pl line 17, near ""ipAdEntIfIndex"\"
(Missing operator before \?)
Bareword found where operator expected at host.pl line 18, near "$rtr ipAdEntAddr"
(Missing operator before ipAdEntAddr?)
Backslash found where operator expected at host.pl line 18, near "ipAdEntAddr\"
Backslash found where operator expected at host.pl line 19, near "1.3.6.1.4.1.9.2.1.3.0\"
(Missing operator before \?)
Bareword found where operator expected at host.pl line 24, near "$rtr ifName"
(Missing operator before ifName?)
Backslash found where operator expected at host.pl line 24, near "$ifnum\"
(Missing operator before \?)
syntax error at host.pl line 17, near "$rtr "ipAdEntIfIndex""
syntax error at host.pl line 18, near "$rtr ipAdEntAddr"
syntax error at host.pl line 19, near "1.3.6.1.4.1.9.2.1.3.0\"
syntax error at host.pl line 24, near "$rtr ifName"
Execution of host.pl aborted due to compilation errors.

Meric d'avance pour votre aide.

Publicité

Elmoricq

Modérateur

qx// je pense

Profil supprimé

càd Elmoriq?

d'ailleurs dans le code original ligne 17 il n'y a pas de "" pour ipAdEntIfIndex ...

Message cité 1 fois

Elmoricq

Modérateur

Documentation PERL : http://perldoc.perl.org
Et plus particulièrement, pour le cas qui t'occupes, la page concernant les opérateurs : http://perldoc.perl.org/perlop.html

edit : d'ailleurs, j'viens ainsi d'apprendre que \Q existe bien, mais je ne suis pas sûr de l'utilisation qui en est faite ici... tu es sûr que ce script que tu as pompé fonctionne ? [:opus dei]

Message édité par Elmoricq le 12-12-2007 à 12:06:04

Profil supprimé

OK merci ça marche.

FORUM HardWare.fr

Programmation

Perl

[Perl] Problème de syntaxe

Sujets relatifs
probleme de droit pour acceder a une page avec site nuked clan	[Resolu] Probleme de hauteur de tableau
probleme java bean	probleme sur formulaire
probleme de quotes !	[Javascript] Problème entre deux fonctions
Probléme Vb error '429'	[G TRouvé] A locker merci modo
Probleme d'affichage	Problème affichage du text dans un fichier après OpenTextFile
Plus de sujets relatifs à : [Perl] Problème de syntaxe

Page générée en 0.045 secondes