Perl

Regexp qui devrait matcher plus d'une seule fois

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Regexp qui devrait matcher plus d'une seule fois

Tomate

Bonjour,

Juste pour savoir pourquoi ma regexp ne matche qu'une seule fois, alors qu'elle devrait matcher 2 fois ??

la chaîne :

[quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/2tw5.jpg[/img][/URL]
[/quote]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/2tw5.jpg[/img][/URL][quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/2tw5.jpg[/img][/URL]
[/quote]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/2tw5.jpg[/img][/URL]

la regexp :

Code :

if ( m/\[quote\s+(.*?)\](.*?)\[\/quote\]/isg ) {
print "match\n";
print $2."\n";
$_ = $2;
$_ =~ s/\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\]/$3/ig;
print $_."\n";
}

merci

---------------
:: Light is Right ::

Publicité

Elmoricq

Modérateur

Tout simplement parce que ton if() ne traite que la première occurrence trouvée.

Fais plutôt :

Code :

while ( m/\[quote\s+(.*?)\](.*?)\[\/quote\]/isg ) {
print "match\n";
print $2."\n";
$_ = $2;
$_ =~ s/\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\]/$3/ig;
print $_."\n";
}

Tomate

han ok merci

ça avance tant que ça matche en gros si je comprends bien

---------------
:: Light is Right ::

anapajari

s/travail/glanding on hfr/gs;

Autant y aller franchement dans la regex incompréhensible non?

Code :

$tachaine =~ s/(\[quote\s+(.*?)\])\s*(\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\])\s*(\[\/quote\])/$1$6$7\n/isg;

Message cité 1 fois
Message édité par anapajari le 20-02-2008 à 17:13:56

---------------
Software and cathedrals are much the same - first we build them, then we pray.

Tomate

hum il matche un peu trop je crois là

Code :

while ( m/\[quote\s+(.*?)\](.*?)\[\/quote\]/isg ) {
$_ =~ s/\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\]/$3/isg;
print "\n\nmatch\n\n";
print $_."\n";

et ça sort tout ça :

match

[quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg[quote author=TOTO link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg

match

[quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg[quote author=TOTO link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg

match

[quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg[quote author=TOTO link=topic=1789.msg130897#msg130897 date=1203505782]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg
[/quote]
http://img405.imageshack.us/img405/7328/sanstitre2tw5.jpg

---------------
:: Light is Right ::

Tomate

anapajari a écrit :

Autant y aller franchement dans la regex incompréhensible non?

Code :

$tachaine =~ s/(\[quote\s+(.*?)\])\s*(\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\])\s*(\[\/quote\])/$1$6$7\n/isg;

merci ça marche nikel [:jar jar]

il y a plus simple tu crois ?

---------------
:: Light is Right ::

Tomate

bon en fait ça ne marche que dans ce cas particulier

je cherche tout simplement à supprimer les balises IMG ou URL/IMG imbriquées, mais uniquement dans les quotes

vous aurez compris que c'est pour faire comme sur le forum hardware, éviter d'avoir les images dans les quotes

---------------
:: Light is Right ::

anapajari

s/travail/glanding on hfr/gs;

le premier \s+ devrait être un \s*
De la même façon, il doit en manquer entre url et img et pareil sur les balises fermantes.
Montre un exemple "qui marche pas" stp.

Message cité 1 fois

---------------
Software and cathedrals are much the same - first we build them, then we pray.

dreameddeath

Bonjour,

Pour la correction avec le while

Citation :

Code :

while ( m/\[quote\s+(.*?)\](.*?)\[\/quote\]/isg ) {
$_ =~ s/\[url=(.*?)\]\[img(.*?)\](.*?)\[\/img\]\[\/url\]/$3/isg;
print "\n\nmatch\n\n";
print $_."\n";
}

L'erreur vient du $_, il vaut utiliser $1.

Sinon, quelques principes que j'applique :

il vaut mieux éviter les .*? pour moi, même si ça marche, surtout si on cherche "tout ce qui est différent de ']'", car il existe une syntaxe toute faite pour ça : [^...]. Bon il est vrai qu'ici, ce n'est pas très pratique car le caractère ] est un caractère spécial...
Ensuite en regexp, il vaut mieux aussi éviter les parenthèses inutiles elles ne doivent servir qu'à extraire les données, et si l'on doit définir une sous-chaine, il vaut mieux utiliser (?:...)

donc pour moi, la première regexp devrait s'écrire

Code :

while (m/\[quote[^\]]*\](.*?)\[\/quote\]/isg){
...
}

et donc tout est contenu dans $1...

Ensuite la 2ème regexp ne match que les [url...][img]...[/img][/url]. Donc si tu souhaite aussi récupérer les [img][/img] seules ça ne marchera pas...

Donc, tu pourrais faire qqch du style

Code :

$tmp=$1;
$tmp =~ s/(?:\[img[^\]]*\]\s*)?\[url[^\]*\](.*?)\[\/img\](?:\s*\[\/url\])?/$1/isg;

Le seul truc que j'ai pas compris : tu veux virer le quote complet ou juste les liens/images dans les quotes?

Message édité par dreameddeath le 20-02-2008 à 21:35:24

Tomate

anapajari a écrit :

le premier \s+ devrait être un \s*
De la même façon, il doit en manquer entre url et img et pareil sur les balises fermantes.
Montre un exemple "qui marche pas" stp.

par exemple 2 liens/images dans un même quote, ça merdouille

dreameddeath : je veux virer les images qui se trouvent dans des quotes
comme sur le forum en fait
mais il y a les cas avec balise img simple et balises url et img imbriquées

Message édité par Tomate le 21-02-2008 à 09:52:27

---------------
:: Light is Right ::

Publicité

dreameddeath

Tu peux essayer qqch du style :

Code :

my @replace_str=();
while(s/\[quote[^\]]*\](.*?)\[\/quote\]/%%%%/isg){
my $tmp = $1;
$tmp =~ s/(?:\[img[^\]]*\]\s*)?\[url[^\]*\](.*?)\[\/img\](?:\s*\[\/url\])?/$1/isg;
push(@replace_str,$tmp);
}
s/%%%%/shift(@replace_str)/eg;

Tomate

avec le texte suivant :

[quote author=Skurpit link=topic=1789.msg130897#msg130897 date=1203505782]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre1.jpg[/img][/URL]
[/quote]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre2.jpg[/img][/URL][quote author=TOTO link=topic=1789.msg130897#msg130897 date=1203505782]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre3.jpg[/img][/URL]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre4.jpg[/img][/URL]
[/quote]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre5.jpg[/img][/URL]

$_ contient ça :

[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre3.jpg[/img][/URL]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre4.jpg[/img][/URL]

[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre2.jpg[/img][/URL]
[URL=http://imageshack.us][IMG]http://img405.imageshack.us/img405/7328/sanstitre5.jpg[/img][/URL]

---------------
:: Light is Right ::

dreameddeath

Bon j'ai corrigé pas mal de choses et voici un truc qui marche pas mal

Code :

s/(\[quote[^\]]*\])(.*?)(\[\/quote\])/
my $quote_start = $1;
my $quote_intern_to_modify = $2;
my $quote_end = $3;
$quote_intern_to_modify =~ s!(?:\[url[^\]]*\]\s*)?\[img[^\]]*\](.*?)\[\/img\](?:\s*\[\/url\])?!$1!isg;
$quote_start.$quote_intern_to_modify.$quote_end;
/iseg;

ça remplace les [url][img]tutu[/img][/url] par tutu

voilà voilà

Tomate

un grand merci ça à l'air de fonctionner nikel !

---------------
:: Light is Right ::

FORUM HardWare.fr

Programmation

Perl

Regexp qui devrait matcher plus d'une seule fois

Sujets relatifs
Remplacer plusieurs procédure par une seule dans un module	[JS] Matcher des caractères Unicode via une regexp
Sous ensemble regexp	Regexp et cpp
Help : script awk avec match regexp sur deux lignes	probleme de regexp
Aide pour regexp	Comment choisir un e seule lettre dans une chaine de lettre ?? Help !
Mysql-afficher une seule donnée
Plus de sujets relatifs à : Regexp qui devrait matcher plus d'une seule fois

Page générée en 0.085 secondes