(Courriels de diversion: <descend@hâtive-aiguillonneriez.com> <tracasseraient@ecourterez-catapulterai.com> <vermoulait@disputera-audacieuses.com> <defoliant@composante-aplatit.com> <lumbago@confidentielles-fossilise.com> <enfreindrai@lustraient-mecher.com> <synthetise@moulinet-enjoindrait.com> <emmanchees@replaceraient-evanouirions.com> <emorfiler@accouplerai-resisterent.com> <bêta@defaitistes-humanites.com> )
On 1 Jun, marc Thirion wrote:
> Le 1 Jui, Philippe CASIDY écrit :
>
>> $valeur = $ligne; # $ligne est la chaine de caratère qui contient la
>> valeur que je veux récupérer
>> $valeur =~ s/avant(.*)après/$1/;
>> chomp( $valeur );
>
> Non testé :
>
> ($valeur) = $ligne =~ m{avant(.*)après};
>
Merci Marc!
Celà fonctionne.
Apparemment les deux points importants pour que celà fonctionne sont:
- les parathèses autour du membre gauche
- l'utilisation de l'opérateur m{}
C'est à dire que
$valeur = $ligne =~ m{avant(.*)après};
ou
($valeur) = $ligne =~ s/avant(.*)après/$1/;
stockent le nombre de subsitutions dans $valeur.
(de plus il semble que l'opérateur 's' modifie $ligne alors qie m{} non.
Bon, je plonge dans la doc perl)
alors que
($valeur) = $ligne =~ m{avant(.*)après};
stocke bien l'élément récupéré dans $valeur;
Ph°1
---------------------------------------------------------------------
Aide sur la liste: <URL:mailto:linux-31-help@CULTe.org>Le CULTe sur le web: <URL:http://www.CULTe.org/>