Discussion :

[dubis]

Bonjour,

Mon script fonctionne mais je n'arrive pas à attraper la valeur qui m'intéresse
Voic la valeur de mon tableau "@tab"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Nbre de session NX active :       22
 Nbre de session NX active :       22
 Nbre de session NX active :       22
 Nbre de session NX active :       22
 Nbre de session NX active :       23
 Nbre de session NX active :       23
 Nbre de session NX active :       23
 Nbre de session NX active :       23
 Nbre de session NX active :       23
 Nbre de session NX active :       23
 Nbre de session NX active :       23

Voci mon l'extrait de mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
my @list ;
my @tab=grep (/active/, @file);
#print "@tab \n";
 
foreach my $value (@tab) {
my @value=split(/ /, $value);
push(@list, $value[5]);
}
 
print "@list\n" ;

Mon soucis est que la valeur "$value[5]" correspond à l'emplacement des deux point ":" de la liste précédemment donnée. Si je prend $value[6], le tableau @list est vide et cela jusqu'à $value[10] et encore je n'ai pas toutes la colonne du nombre de session active cela doit sauter certaine valeur ....

Comment corriger mon script pour que je n'aie que la colonne des nombres du tableau "@tab"?

[Mr6]

Salut !

A l'arrache :

Code :

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

my @list = map { $& if /\d+/} @tab;

Ca passe ca ou pas ?

@+
Mr6
*coup de vent, a la bourre...*

[dubis]

Nickel ....

Code :

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

 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 23 23 23 23 23 23 23

Du coup je ne suis pas obligé de faire de boucle .....
Je vais chercher de la doc pour la fonction map mais je veux bien des petites explication

Pour info, j'avais résolu en prenant "$value[12]" mais par rapport à la fonction map cela à l'air relou maintenant

[Philou67430]

map est une fonction magique en perl (j'en compte plusieurs comme celle-ci, des indispensables : grep, sort).

La fonction map prend comme argument une liste et produit une liste.
Pour chaque élément de la liste en entrée, elle exécute l'expression ou le code en paramètre et cette évaluation produit la liste en sortie.
Dans la fonction map, la variable automatique $_ est un alias de la valeur de la liste en entrée (alias signifie que si on la modifie, elle sera aussi modifiée dans la liste en entrée ; méfiance donc dans l'usage de s///).

Je crois qu'on peut résumer la proposition de Mr-6 à

Code :

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

my @list = map { /(\d+)/ } @tab;

[dubis]

Merci pour toutes ces infos ... .
Je vais essayer de maîtriser la variable $_ en lisant de la doc ....

Mais en ce qui concerne le termes /(\d+)/ ?
Est ce que d+ correspond au dernier termes de la ligne?

Je ne comprend pas très bien

[Philou67430]

\d, dans une expression régulière représent un digit numérique, c'est à dire un chiffre de 0 à 9.
\d+ signifie "au moins un digit"
Le fait d'ajouter des parenthèses autour permet d'indiquer au moteur de recherche de capturer "au passage" le motif trouvé et de le retourner dans un contexte de liste.

[dubis]

Merci .......