Cc: Bcc: Subject: Re: Perl-expressions régulières Reply-To: In-Reply-To: <[EMAIL PROTECTED]>
Le dimanche 25 septembre 2005 à 15:22, Maurice Doison écrivait ..... > Le Dimanche 25 Septembre 2005 12:43, Paulo Gravito a écrit : > > Voila un moment déjà que j'essaie de trouver un moyen d'obtenir 2 > > variables dans un texte de type HTML. > > le texte d'exemple est donné ci-dessous > > ..................... > > <tr><td class=dedans><img src='images.gif'></td><td > > class=web><a > > href='?nom=paul'>paul</a></td><td > > class=dedans>10000</td></tr><tr> > > <tr><td class=dedans><img src='images.gif'></td><td > > class=dedans><a > > href='?nom=jean'>jean</a></td><td > > class=dedans>20000</td></tr><tr>................... > > > > Ce que j'aimerais c'est sortir de ce texte les variables $nom pour des > > valeur supérieur à 15000 par exemple. > > J'ai pour l'instant déjà réussi à tirrer une valeur avec les variables > > $' et $` mais je me rend compte que ce n'est trop top et surtout pas du > > tout automatique sachant qu'il y aurait plusieurs dizaine de ligne de ce > > genre . > > > > Merci de votre aide. > > probablement quelque chose comme ca : > push @tab, $1 while($text =~ m/\?nom=(\w+)'>\w+<\/a><\/td><td> > class=dedans>((\d{6})|([2-9]\d{4})|(1[5-9]\d{3}))/ig); > > Bonne chance ! > > Oulala j'en suis loint j'ai encore de nombreux progrès à faire en perle. Je dit cela car je viens de réussir avec une methode pas très propre (je débute) . while ( /nom=/ ){ /nom=/; $list = $'; $_ = $list; /\'\>/; $nom = $`; $_ = $list; /dedans\>/; $list = $'; $_ = $list; /\</; $somme = $`; } j'en retire $nom et $somme et ça marche merci je vais étudier la solution en une seule ligne quand même :-) -- Paulo GVO http://p.gvo.free.fr
signature.asc
Description: Digital signature