Discussion :

[Dr_GonZO]

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 :

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

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

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

[getupa]

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

[Jedai]

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 :

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

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 :

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

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 :

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

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

TIMTOWTDI comme on dit en Perl !

--
Jedaï

[nematoad]

ou même :

Code :

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

@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 :

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

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

[Jedai]

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 :

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

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

TIMTOWTDI

--
Jedaï

[nematoad]

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

N

[Jedai]

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.


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