combinaison de split et de pattern

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:

---

1 2 3

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

---

D'avance, merci pour l'aide
Nicolas

Code:

---

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.

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:

---

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

---

Je vous remercie.

Nicolas

Code:

---

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 ?

oui, parfait, merci beaucoup.

Nicolas