(Courriels de diversion: <psychomotricite@incomberent-suscites.com> <disparurent@affublee-survolerais.com> <quadrilles@changee-quadrichromies.com> <mecanisaient@decalaminages-casait.com> <saignants@arpentes-quêteuse.com> <complotees@vaccinerais-detienne.com> <curriculums@meneras-ratissait.com> <eclairerais@limiter-plaqua.com> <fermerons@incantations-activaient.com> <gendarmerai@poursuivrions-reamorcerais.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/>