Pessoal<br><br>fiz assim:<br>foreach my $arquivo (sort(readdir DIR))<br>{<br> next if $arquivo eq '.' or $arquivo eq '..';<br> print "FILE $arquivo\n";<br>}<br><br>funcionou :D<br><br><b><i>Patty Silva <ptfzs@yahoo.com.br></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Ola pessoal.. <br>Estou com uma duvida...<br>eu estou fazendo assim:<br><br>--------------------------------------------------------------------------------------------------------------------<br><br>opendir(DIR, $caminho) or die "Can't open directory:$!";<br><br>while($arquivo = readdir(DIR))<br>{<br><br> next if $arquivo eq '.' or $arquivo eq '..';<br> chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br>
<br> print "Arquivo $arquivo\n"<br>}<br><br>--------------------------------------------------------------------------------------------------------------------<br><br>Para ler arquivos de um diretorio..<br>Dentro desse diretorio tem arquivos nesse formato yyyymmdd_hhmm<br>Eu quero q ele pegue em ordem crescente.. tem como?<br><br>ex: no diretorio tem: 20070426_0500 20070426_1200 20070426_0300<br>quero que ele leia na ordem:<br>1) - 20070426_0300<br>2) - 20070426_0500<br>3) - 20070426_1200<br><br><br>Como posso fazer isso? :D<br><br>Obrigada pessoal<br><br>[]s<br><br> <br><div> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ _______________________________________________<br>Cascavel-pm mailing
list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</div></blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/