[Cascavel-pm] duvida - ler arquivo

[Patty Silva]

Pessoal

fiz assim:
foreach my $arquivo (sort(readdir DIR))
{
    next if $arquivo eq '.' or $arquivo eq '..';
        print "FILE $arquivo\n";
}

funcionou :D

Patty Silva <ptfzs em yahoo.com.br> escreveu: Ola pessoal.. 
Estou com uma duvida...
eu estou fazendo assim:

--------------------------------------------------------------------------------------------------------------------

opendir(DIR, $caminho) or die "Can't open directory:$!";

while($arquivo = readdir(DIR))
{

        next if $arquivo eq '.' or $arquivo eq '..';
        chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";
        
        print "Arquivo $arquivo\n"
}

--------------------------------------------------------------------------------------------------------------------

Para ler arquivos de um diretorio..
Dentro desse diretorio tem arquivos nesse formato yyyymmdd_hhmm
Eu quero q ele pegue em ordem crescente.. tem como?

ex: no diretorio tem: 20070426_0500  20070426_1200  20070426_0300
quero que ele leia na ordem:
1) - 20070426_0300
2) - 20070426_0500
3) -  20070426_1200


Como posso fazer isso? :D

Obrigada pessoal

[]s

        
 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070427/38b8a771/attachment.html