Re: aide sur perl (suite)

Page principale

Répondre à ce message
Auteur: sCALP
Date:  
À: guilde
Sujet: Re: aide sur perl (suite)
From: "anne aublanc" <anne.aublanc@???>
Sent: Thursday, November 14, 2002 11:05 AM

> | > La ligne que j'ai écrite pour le test :
> | > if ($ligne =~ m!(.*?);(.*?)$!gi)


je pense que vous vous compliquez un peu la tache, ou alors c moi qui ait
rate un passage....
je viens d'ecrire le bout de code suivant :

@a = ('tt\'tt\'\'tt;\'tt\'\'', 'qsdfqsfsf;sqfsfd\'sfqfssq');
for ($i=0; $i<@a; $i++) {
    if ($a[$i] =~ /^(.*?);(.*?)$/) {
        print "== ".$1." == ".$2." =="."\n";
    }
}


et j'ai bien en sortie :

== tt'tt''tt == 'tt'' ==
== qsdfqsfsf == sqfsfd'sfqfssq ==

le 'g' en parametre de l'expression reguliere signifie 'global', pour une
recherche du motif x fois dans la meme chaine, et le 'i' permet d'etre en
case-insensitive, mais il ne concerne que les caracteres specifiés pour la
recherche, et le '.' n'est pas concerné.... a moins qu'il n'existe un
point-virgule majuscule ;-)

sCALP