[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Unidentified subject!



Cc: 
Bcc: 
Subject: Re: Perl-expressions régulières
Reply-To: 
In-Reply-To: <[🔎] 200509251522.34252.azrael07@free.fr>

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 

Attachment: signature.asc
Description: Digital signature


Reply to: