[Cascavel-pm] Duvida ao ler arquivo

[Alceu R. de Freitas Jr.]

--- Solli Moreira Honorio <shonorio em terra.com.br>
escreveu:

> hummmm, aproveitando que o senhor está melhor
> hoje... quero tirar uma dúvida no teu código.
> >
> > FILE: while ($arquivo = <*.TXT>)
> > {
> >     ....
> >     LINE: while ( $linha= )
> >    {
> >          # para pular uma linha, baseado numa
> condição:
> >          next LINE if $condicao;
> >          # para pular de arquivo, baseado em outra
> condição:
> >          next FILE if $outra_condicao;
> >    }
> > }
> >
> O "Best Practice Perl" recomenda a utilização destes
> marcadores 'nome:' para melhorar a leitura do
> código, mas aí eu fiquei pensando se isto não seria
> um problema também, se é que melhora a leitura do
> código. Afinal, desda maneira eu posso fazer uma
> função migrar o fluxo para outra função de maneira
> abrutalhado (também conhecido de maneira "champs" :)
> ).

O uso de marcadores é particularmente útil para
simular  a função case existente em outras linguagens
de programação. Assim:

MARCADOR: {

    if ($condicao eq 'um') {

        # faz alguma coisa
        last MARCADOR;

    }

    if ($condicao eq 'dois') {

        # faz alguma coisa
        last MARCADOR;

    }

}

Mais elegante que usar um monte de if-then-else
aninhados.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1


		
_______________________________________________________ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
http://br.acesso.yahoo.com