Stocker resultat execution tableau

Re bonjour,
voila j'ai suivi la FAQ de developpez.com ;)
et elle dis que l'on peut stocker resultat de l'execution d'un programme dans un tableau.
Voici donc mon code:

Code:

---

1 2 3 4 5 6

@sortie = `/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`; print "$sortie[0] \n"; print "$sortie[1] \n"; print "$sortie[2] \n"; print "$sortie[3] \n"; print "$sortie[4] \n";

---

Or mon résultat est du type

Citation:

---

OK : use 18 % idle : 82

---

Et je voudrais stocker chaque mot dans une case...

En gros, la question est peut-on definir un séparateur de champ (ici espace) qui me permettrai de stocker correctement mon resultat :)

Merci

Sinon tu stocke la sortie de ton exécution dans un scalaire et tu le split juste après ...

Tout à fait, mais il s'agira d'une information globale, c'est-à-dire que la prochaine lecture de fichier se fera avec le même séparateur. C'est pourquoi je te recommande l'emploi de cette structure qui évite le problème en local()isant la modification du séparateur d'enregistrement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my @sortie; { local $/ = " "; @sortie = `/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`; }   print "$sortie[0] \n"; print "$sortie[1] \n"; print "$sortie[2] \n"; print "$sortie[3] \n"; print "$sortie[4] \n";

---

Par ailleurs, comme l'a fait remarquer getupa, une solution plus souple et sans-doute préférable est d'utiliser une construction de ce type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my $ouput; my @sortie;   $output = `/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`;   @sortie = split /\s+/, $output; print "$sortie[0] \n"; print "$sortie[1] \n"; print "$sortie[2] \n"; print "$sortie[3] \n"; print "$sortie[4] \n";

---

ou même :

Code:

---

@sortie = split /\s+/, scalar(`/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`);

---

TIMTOWTDI comme on dit en Perl ! :D

--
Jedaï

Citation:

---

Envoyé par Jedai

ou même :

Code:

---

@sortie = split /\s+/, scalar(`/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`);

---

---

Le seul problème avec ça, si c'est un problème, est que tous les "mots" des lignes vont arriver à la queue-leu-leu et ce sera peut-être pas évident de savoir où on en est.

Code:

---

1 2 3 4 5

my @sortie; for my $ligne( `/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n` ) { chomp; push @sortie, [split]; }

---

Ici, chaque entrée de @sortie contient une ligne, découpé au mot par mot dans un array.

N

Oui mais d'après son exemple j'avais cru comprendre qu'il n'y avait qu'une seule ligne. Si on a plusieurs ligne, il vaut mieux effectivement faire comme propose Nematoad pour s'y retrouver, on peut aussi faire la même chose ainsi :

Code:

---

1 2	@sortie = map { [ split ] } `/usr/local/nagios/libexec/check_nrpe -H $hostname -c check_cpu -n`;

---

TIMTOWTDI :wink:

--
Jedaï

il n'y aura pas de \n la-dedans ?

N

split coupe sur les /\s+/ par défaut je crois, donc à priori, il ne devrait pas y avoir de \n (c'est compris dans \s) mais par contre il pourrait y avoir un champ vide, c'est à vérifier, mais c'est assez peu génant de toute façon. :D


[EDIT] Après vérification il ne devrait pas y avoir de champ vide parasite à la fin. :)
--
Jedaï