----- Original Message -----
From: "anne aublanc" <anne.aublanc@???>
To: <guilde@???>
Sent: Thursday, April 14, 2005 3:55 AM
Subject: Re: grep
| bon, j'ai écrit fait cela sans grep...
| my $is_there = "";
| my $elt = "";
| foreach $elt (@num_phone) {
| if ($elt eq $x_phone) {
| $is_there = "x";
| last;
| }
| }
| if ( $is_there eq "" ) {
| push ( @num_phone, "$x_phone");
| }
|
| un peu lourd !!!
| Mais cela ne résoud pas le pb...
| Après je fais des tests pour savoir si j'inclus ou pas...pour l'affichage
de
| la ligne
| if ( $ltel ne '' && $x_phone !~ /^$ltel.*/ ) { next; } # ltel
| correspond au n° de tél que j'ai sélectionné
| if ( $lttel ne '' && (! grep(/$x_phone/, @s_tel))) { next; }
| bref, j'ai des grep et des expressions régulières de partout!
| et les caractères spéciaux... Ils ne sont pas amis!
|
| faut vraiment que je trouve une autre solution!
|
trouvé => quotemeta
anne
