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
