[Cascavel-pm] duvida - ler arquivo

[Thomas Britis]

use strict;
use warnings;

my @files;

opendir (DIR, 'teste')
   || die "DIR: $!";
while (my $file = readdir (DIR)) {
	next if ($file =~ /^[\.|\.\.]$/);
	push (@files, $file);
}

my @sorted = sort { $a cmp $b } @files;

foreach (@sorted) {
	print $_, "\n";
}

Patty Silva wrote:
> 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

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA