[Cascavel-pm] Listando arquivos em um diretorio
Alceu R. de Freitas Jr.
glasswalk3r em yahoo.com.br
Segunda Julho 3 13:24:32 PDT 2006
--- Patty Silva <ptfzs em yahoo.com.br> escreveu:
> Eh.. foi redundante...
> :)
>
> Pessoall uma outra alternativa pra eu fazer isso:
> chdir ($caminho) || die "\n *** Erro no diretorio
> $caminho ***";
> for(parse_dir(`ls -ltr`))
> {
> ($nome) = @$_;
> }
TMTOWTDI:
<code>
use warnings;
use strict;
my $directory_name = shift;
opendir(DIR, "$directory_name") or die "Cannot read
$directory_name: $!\n";
my @list_of_files = readdir(DIR);
close(DIR);
my $file;
foreach $file(@list_of_files) {
next if $_ eq '.';
next if $_ eq '..';
print 'File ->', $file, "\n";
}
</code>
[]´s
Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
Mais detalhes sobre a lista de discussão Cascavel-pm