Discussion :

[floxi]

Bonjour,
voila je cherche à exécuté une commande contenant une variable changeante à l'intérieur d'un foreach.

Le code fonctionne si je ne rajoute pas le "| cut -d " " -f4" de la ligne my $varin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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 | cut -d " " -f4` ;
 
                print"$varin\n";
                }

Message d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sh: -c: line 1: syntax error near unexpected token `|'
sh: -c: line 1: ` | cut -d " " -f4'

Je précise, que le script doit permetre d'afficher le traffic d'un switch de toutes les interfaces qui sont "UP".

Si quelqu'un peut m'aider, c'est mon premier script PERL lol

Merci

[fearyourself]

J'aimerais voir ce que te donne ces commandes :

snmpwalk sd21 -c public -v 2c Ifoperstatus | grep up | grep 101 | cut -d "." -f2 | cut -d " " -f1


Choisis un des VAR comme tu veux :
snmpwalk sd21 -c public -v 2c ifInOctets.$VAR | cut -d " " -f4

Jc

[ankou29666]

J'ai eu le même problème avec les backquotes ... ni les tubes ( | ) ni les redirections (< et >) ne semblent fonctionner

mais dans un 'system' ça marche ... le problème c'est qu'on ne peut alors pas récupérer le résultat dans une variable ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
system ("curl http://www.mon-site.com/ma-page.html | tcs -f 8859-1 > page.html") ; # Fonctionne
`curl http://www.mon-site.com/ma-page.html | tcs -f 8859-1 > page.html` ; # Erreur

Pour que la version system fonctionne, il faut passer les arguments dans une seule et unique chaine, si on décompose la commande en liste d'arguments, ça ne fonctionne plus ...

[Jedai]

J'ai eu le même problème avec les backquotes ... ni les tubes ( | ) ni les redirections (< et >) ne semblent fonctionner

mais dans un 'system' ça marche ... le problème c'est qu'on ne peut alors pas récupérer le résultat dans une variable ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
system ("curl http://www.mon-site.com/ma-page.html | tcs -f 8859-1 > page.html") ; # Fonctionne
`curl http://www.mon-site.com/ma-page.html | tcs -f 8859-1 > page.html` ; # Erreur

Pour que la version system fonctionne, il faut passer les arguments dans une seule et unique chaine, si on décompose la commande en liste d'arguments, ça ne fonctionne plus ...

Les pipes et les redirections fonctionnent dans les backquotes, je ne sais pas exactement de quoi tu parles, mais je soupçonne un autre problème (d'interpolation involontaire par exemple). (NB : Je parle de Linux ici, Windows est problème bien différent)

--
Jedaï

[Jedai]

La question aurait sans doute reçu une réponse plus rapide si elle avait été posée sur le forum Perl. La source probable de l'erreur que tu obtiens est que $VAR se finit par un saut de ligne, il faut faire un chomp() pour s'en débarasser :

Code Perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
my $cmd = 'snmpwalk sd21  -c public  -v 2c Ifoperstatus '
  . '| grep up | grep 101 | cut -d "." -f2 | cut -d " " -f1';
for my $var ( `$cmd` ) {
  chomp($var);
  my $varin = `snmpwalk sd21 -c public -v 2c ifInOctets.$var | cut -d " " -f4` ;
  print"$varin\n";
}

--
Jedaï

[ankou29666]

Les pipes et les redirections fonctionnent dans les backquotes, je ne sais pas exactement de quoi tu parles, mais je soupçonne un autre problème (d'interpolation involontaire par exemple). (NB : Je parle de Linux ici, Windows est problème bien différent)

euh oui j'ai peut-être parlé un peu trop vite ... pour qu'un pipe ou une redirection marche, il faut que perl passe par l'interpréteur du shell, càd généralement bash ... or cette interprétation n'est pas réalisée si on passe les arguments sous forme d'une liste dans system ... Ce qui est bien le cas si on les passe dans system sous forme d'une seule et unique chaine, et peut-être bien dans les backquotes ...

[Jedai]

euh oui j'ai peut-être parlé un peu trop vite ... pour qu'un pipe ou une redirection marche, il faut que perl passe par l'interpréteur du shell, càd généralement bash ... or cette interprétation n'est pas réalisée si on passe les arguments sous forme d'une liste dans system ... Ce qui est bien le cas si on les passe dans system sous forme d'une seule et unique chaine, et peut-être bien dans les backquotes ...

Tout à fait, les backquotes n'offrent d'ailleurs pas ce choix contrairement à system() ou exec(), ils passent toujours par le shell, on est obligé de forker soi-même (ou d'employer IO::Pipe qui est dans le CORE) pour éviter de passer par le shell tout en récupérant la sortie standard.

--
Jedaï