[Cascavel-pm] Como listar somente imagens de um diretório?

[Igor Sutton Lopes]

Sandro,

<code>
opendir my $dir, "fotos" or die "Problemas ao abrir diretorio: $!";
my @fotos = grep { /\.(?:jpg|gif|png)$/i } readdir $dir;
closedir $dir or die "Problemas ao fechar diretorio: $!";
<code>

Creio que você poderia também utilizar o módulo File::Glob.

Informações sobre a solução:

$ perldoc -f grep
$ perldoc File::Glob

Espero ter ajudado.

On Mon, 2005-09-05 at 18:58 -0300, Sandro de Almeida Filho wrote: 
> Oi pessoal,
> 
> tenho a seguinte aplicação:
> 
> ######################
> opendir(dir, "fotos"); 
> @fotos = readdir(dir); 
> closedir(dir); 
> ######################
> 
> Como listar somente arquivos .jpg, .gif e .png ?
> 
> Abração!
> Sandro
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
-- 
Igor Sutton Lopes <igor em izut.com>