[Cascavel-pm] Duvida ao ler arquivo

[Luis Motta Campos]

Patty Silva wrote:
> Pessoal.. meu programa esta funcionando.. eu ja estou lendo os arquivos 
> e tudo.. o q eu quero saber eh:
> no diretorio possui lista1.txt lista2.txt lista3.txt lista4.txt 
> ...............
> eu leio arquivo por arquivo se ao ler o arquivo lista2.txt por exemplo e 
> na 1 linha estiver a palavra TESTE eu pulo para o outro arquivo! A minha 
> duvida é: como pular par ao outro arquivo sem finalizar o programa!!
> 
> 
> Obrigada pessoal pela força!!

   Vamos ver outra vez:

   #!perl
   ### ... milhões de linhas de código cortadas daqui
   # Rotina de leitura de arquivos
   FILE: foreach my $filename ( @files ){

     my $fh;
     open $fh, $filename or next;
     # Lendo as linhas de cada arquivo
     LINE: while( <$fh> ){

       # proximo arquivo caso encontre a palavra mágica
       # próxima linha vai ser lida do próximo arquivo
       next FILE if /TESTE/;

       # para rejeitar uma linha apenas:
       # continua lendo do mesmo arquivo
       next LINE if /COMENTARIO/;

       ### continua processando a linha, caso não tenha palavra mágica

     } # end while

   } # end foreach
   __END__ # perl
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
  Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
  Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

		
_______________________________________________________ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/