Discussion :

[perldebutant]

Bonsoir, j'ai un petit probleme a propos des regexp .. j'ai deja fait le tour de pls FAQ mais je n' ai pas trouve la solution (ou je suis passe a cote )

Mon probleme (pas specifique de perl mais plutot des regexp en general) : j'ai une liste de "mots" (toto1 , toto2 , blabla1 , blabla2 , blabla3 , ... , blabla120 , ... , blablan) et je voudrait n'en recuperer qu'une partie (tous les blabla(x) mais pas blabla5 par exemple) avec une regexp :

blabla[0-9]+ permet de recuperer l'ensemble des mots blabla(x)
[^blabla5] permet de ne pas considerer blabla5

Comment utilise t-on les 2 conditions de manière simultannee (dans une meme regexp) ?

Merci

[pospos]

[^blabla5] ne fait pas ce que tu crois qu'il fait : il va matcher tout caracter different de l'ensembnle que tu lui donne, sans notion d'ordre. Pour ce que tu cherche a faire il faut utiliser (?!blabla5).

Mais pour le cas precis que tu decris ici voila la regexp adaptée:
/blabla[012346789]/

[perldebutant]

Bon j'aurais du etre plus precis, en fait il y a pls lignes, je recupere un mot cle pour chacune d'elles :

toto1
toto2
blabla1
blabla2
blabla3
...
blabla120
...
blablan

Si une ligne m'interesse (par ex, les blabla(x) mais pas blabla5 (et cela peut varier)), je realise un traitement. L'ideal serait de dire "je considere une partie importante de mon ensemble et je retire ceci" plutot que de dire, je prends ca, ca ,ca, ca , ca et ca .... Il faudrait dc quelquechose de tres flexible.

Merci

[pospos]

alors dans ce cas utilise regexp::list :

Code :

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

1
2
3
4
5
6
7
8
 
  use Regexp::List;
  my @list = qw(blabla1 blabla2);
  my $l  = Regexp::List->new;
  my $re = $l->list2re(@list);
  while (<$fh>) {
    print "ok for $_" if /$re/
  }

en gros tu construit ta regexp en fonction d'une liste
tu peux aussi construire cette regexp à la main (un peu moins efficace, en tous cas sur perl < 5.9.5) :

Code :

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

1
2
3
4
5
6
7
 
  my @list = qw(blabla1 blabla2);
  my $re = join('|', sort map {quotemeta} @list);
  $re = qr/$re/;
  while (<$fh>) {
    print "ok for $_" if /$re/
  }

et bien sur tu peux constituer ta liste de depart de maniere automatique :

Code :

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

1
2
 
my @list = map {"blabla$_"} grep {$_ != 5 && $_ != 7} (1..10);

[perldebutant]

Merci pour ta reponse mais ca me parait un peu complique, non ?

Il n'y a vraiment pas moyen de faire cela directement avec des regexp (et1 si possible) ?
ex motif1 : "blabla[0-9]+"
ex motif2 (utilise par la suite en negation) "^blabla5$|^blabla6$"

[minus]

Ca doit etre faisable... mais apres ca depend du resultat que tu souhaite obtenir... si ton code en devient totalement illisible tu n'auras au final aucun gain.

[Jedai]

Merci pour ta reponse mais ca me parait un peu complique, non ?

Il n'y a vraiment pas moyen de faire cela directement avec des regexp (et1 si possible) ?
ex motif1 : "blabla[0-9]+"
ex motif2 (utilise par la suite en negation) "^blabla5$|^blabla6$"

Tu ne pourrais pas te contenter de quelque chose comme :

Code :

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

m/blabla(\d+)/ and $1 != 5

--
Jedaï