Re: grep

Top Page

Reply to this message
Author: anne aublanc
Date:  
To: guilde
Subject: Re: grep

----- 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