[Regex]Remplacement d'un nombre indéfinie de motif

Version imprimable

11/01/2006, 17h55
gege2061

[Regex]Remplacement d'un nombre indéfinie de motif

Bonjour,

J'ai un problème avec une expression régulière qui doit me transformer quelque du genre :

Code:

.B nom

en

Code:

nom

Donc avec :

Code:

$file =~ s#\.B [\"]?([^\"^\n]*)[\"]?\n#$1 #g;

pas de problème (c'est peu être pas terrible mais je fais ce que je peux :lol:), par contre il se peut aussi que le texte soit :

Code:

.B nom, autre, nom

et j'aimerai obtenir :

Code:

nom, autre, nom

Et là je calle :?

Si quelqu'un a une idée, je suis prenneur.

Merci ;)
12/01/2006, 09h11
djibril

tu veux que t'es mot soit mis sous balise  à chaque fois que tu rencontres une ligne commencant par .B??? est ce bien cela?
12/01/2006, 15h33
gege2061

Citation:

Envoyé par djibril

tu veux que t'es mot soit mis sous balise  à chaque fois que tu rencontres une ligne commencant par .B??? est ce bien cela?

Oui c'est ça, le problème c'est que la ligne peut contenir soit 1 mot (pas de problème) soir une liste de mots séparée par des virgules (là je n'y arrive pas).

C'est pour transformer les pages man au format HTML. Je connais man2html mais j'ai mis moins de temps à refaire un script (mis à part ce dernier point) que d'essayer de comprendre comment marche cette commande :(
12/01/2006, 16h37
2Eurocents

Citation:

Envoyé par gege2061

Oui c'est ça, le problème c'est que la ligne peut contenir soit 1 mot (pas de problème) soir une liste de mots séparée par des virgules (là je n'y arrive pas).

Euh ... pourquoi ne pas tenter de diviser pour régner ?

Ainsi, tu testes la présence de ton .B, dans un match dans un if, et en cas de succès, à l'intérieur du bloc du if, tu parcours la chaine mémorisée pour lui appliquer un traitement d'insertion des balises et autour de chaque mot, au moyen d'une seconde expression rationnelle.

C'est peut être moins élégant, mais cela me paraît moins risqué que de tenter de faire plusieurs trucs à la fois (recherche du .B et ajout de plusieurs ).

Ce n'est qu'une idée ... ;)
13/01/2006, 19h25
Jedai

Citation:

Envoyé par 2Eurocents

Ainsi, tu testes la présence de ton .B, dans un match dans un if, et en cas de succès, à l'intérieur du bloc du if, tu parcours la chaine mémorisée pour lui appliquer un traitement d'insertion des balises et autour de chaque mot, au moyen d'une seconde expression rationnelle.

C'est peut être moins élégant, mais cela me paraît moins risqué que de tenter de faire plusieurs trucs à la fois (recherche du .B et ajout de plusieurs ).

A mon humble avis, cette solution est à la fois plus simple et plus lisible, donc plus élégante... :P (et c'est comme ça que je ferais)

--
Jedaï

En suivant vos conseils à 0.02€, voilà ce que j'ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  while ((my $l) = ($file =~ m#\.B ([^\n]*)\n#))
  {
    if ($name eq 'Index.'.$num)
    {
      $l =~ s#[\"]?([^ ^,]*)[\"]?#<a href=\"\./$1\.$num\.php\" class=\"lienArticle\">$1</a> #g;
    }
    else
    {
      $l =~ s#[\"]?([^ ^,]*)[\"]?#<b>$1</b> #g;
    }
    $file =~ s#\.B ([^\n]*)\n#$l#;
  }

En tout cas ça marche, c'est déjà ça :P

Si vous avez des commentaires sur la forme, ils sont les bienvenue ;)