[SP-pm] [Fwd: duvidas]

Frederico Recsky frederico at gmail.com
Fri May 29 05:01:28 PDT 2009


Olá

2009/5/28 Alexei Znamensky <russoz em gmail.com>:
>
>
> 2009/5/28 Andre Carneiro <andregarciacarneiro em gmail.com>
>>
>> [...]
>>
>> Só implemente essa linha acima, se o seu arquivo for realmente muito
>> pequeno. Caso contrário você pode fazer:
>>
>> <code>
>>
>> #$fh é o filehandle que eu sugeri mais acima...
>> my $line = '';
>> my $lnumber = 0;#contador de linhas.
>> while(<$fh>) {
>>      $line = $_; $_
>>      if($line =~ m{$keyword}){
>>           print "\nACHEI! - $lnumber";
>>      }
>>      $lnumber++;
>> }
>>
>> </code>
>>
>> Esse while pode ficar mais legível assim:
>>
>> <code>
>> .
>> .
>> .
>> $lnumber = 0;
>> while($line = readline($fh)){
>>    if($line =~ m{$keyword}){
>>       print "\nACHEI! - $lnumber";
>>    }
>>    $lnumber++;
>> }
>> .
>> .
>> .
>> </code>
>
> Ou menos legível assim ;-)
>
> <code>
>
> while(<$fh>) {
>   print "\nACHEI! - $." if /$keyword/;
> }
>
> </code>
>

<code>

use feature ':5.10' ;

...

while(<$fh>){
    say "Achei! - $. " if /$keyword/;
}


</code>


Sem entrar no merito forte de uma questão ... digamos pessoal, mas eu
acho mais legivel a sugestão do Alexei.  Também gosto bastante do say
do 5.10, o que ele me economiza \n não ta escrito ;).


[]'s


-- 
____________________________
Frederico Recsky
Linux User: #253572
http://www.fred.eti.br
http://www.perl.org.br


More information about the SaoPaulo-pm mailing list