Discussion :

[neonico]

bonjour tout le monde,
une commande est lancée, le résultat de cette commande est stockée dans une variable que j'appelle $data. Des données qui se trouvent dans $data, je ne voudrais extraire que les lignes qui ne commencent pas par 2 espaces.
je vous livre ces 2 lignes ci-dessous pour vous donner l'esprit... comme c'est là ecrit, je mets plutôt mes lignes avec mes 2 espaces dans le tableau et je voudrais le contraire...

Code :

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

1
2
3
 
  my $data = qx(cmd);
  my @table = (split /\n/, $data) =~ m/\s\s(.*)/;

D'avance, merci pour l'aide
Nicolas

[2Eurocents]

Code :

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

1
2
my $data = qx(cmd);
my @table = grep { s/^\s\s// } (split /\n/, $data);

• Le split sépare les éléments dans une liste.
• Le grep supprime les deux blancs initiaux, s'il y en a.
• et comme en cas de substitution réussie par le s///, la valeur de l'expression de substitution est vraie, le grep sélectionne tous les éléments pour lesquels il a fait une substitution.

[neonico]

merci,

mais en fait, je ne veux pas faire de substitution et je veux pas stocker les elements subtitués... En fait, ce que je souhaite, c'est justement le contraire, c'est ne pas selectionner les lignes qui commencent par les 2 espaces. Quelle modif faut il alors apporter à

Code :

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

my @table = grep { s/^\s\s// } (split /\n/, $data);

Je vous remercie.

Nicolas

[2Eurocents]

Code :

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

my @table = grep { $_ !~ m/^\s\s/ } (split /\n/, $data);

=~ signifie : qui correspond au motif suivant ...
!~ signifie : qui NE correspond PAS au motif suivant ...

Ca convient ?

[neonico]

oui, parfait, merci beaucoup.

Nicolas