Salut,

je n'ai pas d'erreur de syntaxe

lami20j@debian:~$ cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;
foreach my $VAR (`snmpwalk sd21  -c public  -v 2c Ifoperstatus | grep up | grep 101 | cut -d "." -f2 | cut -d " " -f1`) {
    my $varin = `snmpwalk sd21 -c public -v 2c ifInOctets.$VAR | cut -d " " -f4` ;
    print"$varin\n";
}
lami20j@debian:~$ perl -cW ccm.pl
ccm.pl syntax OK

Merci de ta réponse,
explication:

En fait voila ce que devrais faire le code , pour chaque interface up d'un switch, afficher uniquement le débit entrant, via la commande snmpwalk.

J'essai en fait de transcrire ce script shell en PERL:

for i in `snmpwalk $host  -c $com -v $vers Ifoperstatus | grep up | grep 101 | cut -d "." -f2 | cut -d " " -f1`  ; do
        varin=`snmpwalk sd21 -c public -v 2c ifInOctets.$i| cut -d " " -f4``

        in=`sh $rep/scriptbc $in+$varin`


done

IF-MIB::ifInOctets.10101 = Counter32: 883735657

IF-MIB::ifInOctets.10102 = Counter32: 4226079414

IF-MIB::ifInOctets.10103 = Counter32: 2947602820

IF-MIB::ifInOctets.10105 = Counter32: 3821959613

IF-MIB::ifInOctets.10106 = Counter32: 852246388

IF-MIB::ifInOctets.10108 = Counter32: 560528995

IF-MIB::ifInOctets.10109 = Counter32: 672882322

IF-MIB::ifInOctets.10110 = Counter32: 247499512

IF-MIB::ifInOctets.10111 = Counter32: 613109941

IF-MIB::ifInOctets.10112 = Counter32: 3541198374

IF-MIB::ifInOctets.10113 = Counter32: 1954398019

IF-MIB::ifInOctets.10114 = Counter32: 2185799660

IF-MIB::ifInOctets.10115 = Counter32: 768

IF-MIB::ifInOctets.10116 = Counter32: 3930895612

IF-MIB::ifInOctets.10117 = Counter32: 2615655947

IF-MIB::ifInOctets.10120 = Counter32: 1084073186

IF-MIB::ifInOctets.10121 = Counter32: 856584858

IF-MIB::ifInOctets.10122 = Counter32: 1845225790

IF-MIB::ifInOctets.10123 = Counter32: 83744505

IF-MIB::ifInOctets.10124 = Counter32: 3057346105

IF-MIB::ifInOctets.10125 = Counter32: 3162132350

IF-MIB::ifInOctets.10127 = Counter32: 3862719933

IF-MIB::ifInOctets.10128 = Counter32: 784908254

Salut,


En fait voila ce que devrais faire le code , pour chaque interface up d'un switch, afficher uniquement le débit entrant, via la commande snmpwalk.

je pense que tu te compliques un peu

Si tu me donne ce qu'il t'affiche la commande

snmpwalk $host  -c $com -v $vers Ifoperstatus 

Ben, il y a une incohérence en ce qui tous demande


IF-MIB::ifInOctets.10128 = Counter32: 784908254

et ça

IF-MIB::ifOperStatus.14501 = INTEGER: up(1)

Il n'y a pas la possibilté d'obtenir un résultat groupé groupé ?

Tu applique la commande snmpwalk sur un résultat d'une commande précedente snmpwalk, c'est un peu rédondant.

Quelque chose de genre (je ne connais pas cette application)
snmpwalk sd21 -c public -v 2c Ifoperstatus -v 2c ifInOctets


lami20j

Non on ne peut rassembler les deux valeur car il doit y avoir un test :

Si: l'interface est UP (ifoperstatus)
Alors: comptabiliser le traffic ( ifinoctect)


Je pense ne pas etre loin de la solution avec mon script il faut juste résoudre cette petite erreur peut etre des guillment des crochet je ne sais pas et ne trouve pas :
`snmpwalk sd21 -c public -v 2c ifInOctets.$VAR | cut -d " " -f4` ;


Flox

Essaie

foreach $VAR (`snmpwalk sd21  -c public  -v 2c Ifoperstatus | grep up | grep 101 | cut -d "." -f2 | cut -d " " -f1`) {
  my $varin = `snmpwalk sd21 -c public -v 2c ifInOctets.$VAR` ;
  $varin =~ s/.*:\s*//;
  print"$varin\n";
}

Oups, error!
lami20j

Ca marche,

$varin =~ s/.*:\s*//;

c'est quand meme un peu plus compliqué qu'un "cut" lol.

c'est compliqué quand on ne sait pas :-))
et c'est facile quand on le sait :-))

Quand j'ai parlé de cut je n'ai pas pensé au simple, mais plutôt à la paresse :-))
Trop de cut quand même.

Voilà une version optimisé (je ne l'ai pas testé, mais pas de cut ou grep shell, le grep que j'utilise c'est une fontion Perl), je vais le tester ce soir chez moi. Je mets en résolu quand même :-)

foreach $VAR ( grep { /(101\d*)\s*=.*up/ } `snmpwalk sd21  -c public  -v 2c Ifoperstatus` ) {
  my $varin = `snmpwalk sd21 -c public -v 2c ifInOctets.$VAR` ;
  print"$varin\n";
}

Essaie ça

foreach $VAR ( grep { s/.*(101\d*)\s*=.*up.*/$1/ }
    `snmpwalk sd21  -c public  -v 2c Ifoperstatus` ) {
     my $varin = `snmpwalk sd21 -c public -v 2c ifInOctets.$VAR` ;
     print"$varin\n";
}