[Cascavel-pm] Listando arquivos em um diretorio

[Alceu R. de Freitas Jr.]

--- 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/