<span style="font-weight: bold;">Pessoal.. meu programa esta funcionando.. eu ja estou lendo os arquivos e tudo.. o q eu quero saber eh:<br>no diretorio possui lista1.txt lista2.txt lista3.txt lista4.txt ...............<br>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!!<br><br><br>Obrigada pessoal pela força!!<br><br></span><br><b><i>Nelson Ferraz <nferraz@gmail.com></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Patty Silva wrote:<br>> essoal.. eu estou lendo todos os arquivos .TXT de um diretorio.. so<br>> que se o arquivo possuir uma variavel eu quero que ele leia o proximo<br>> arquivo..<br><br>Patty,<br><br>Você tem duas opções para começar o script: pode deixar o "*.txt" <br>embutido no código
("hard-coded"), ou fazer um script genérico.<br><br>Um script genérico poderia ser executado da seguinte forma:<br><br> ./script.pl *.txt<br><br>Ou:<br><br> ./script.pl foo/*.txt<br><br>Ou ainda:<br><br> ./script.pl bar/*.xyz<br><br>Esta é uma solução melhor, pois permite resolver toda uma classe de <br>problemas, ao invés de um problema em particular.<br><br>E também é muito fácil de implementar, pois a lista de argumentos pode <br>ser lida diretamente de @ARGV:<br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>foreach my $filename ( @ARGV ) {<br> print "$filename\n";<br>}<br><br><br>Este é apenas o início da solução: você ainda precisa abrir cada <br>$filename (open) e verificar seu conteúdo (while {...}).<br><br>[]s<br><br>Nelson<br><br>-- <br>Nelson Corrêa de Toledo Ferraz<br><br>Segula Technologies (www.segula.fr)<br>Free Software Foundation Associate Member #3203<br>Sociedade Perl do Brasil (www.perl.org.br)<br>Rede Livre de Compartilhamento
de Cultura Digital<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p>
<hr size=1>
<a href="http://us.rd.yahoo.com/mail/br/tagline/mail/*http://br.info.mail.yahoo.com/">Abra sua conta no Yahoo! Mail</a> - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.