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

[Marco A P D´Andrade]

Sandro,


Na linha TIMTOWTDI...

File::Find pode ser uma opção, pois vc pode procurar em sub-diretorios...

Glob já resolveria seu problema, se for um único diretorio:
    perldoc -f glob


Sds,
Marco Antonio
Rio-PM


Igor Sutton Lopes wrote:

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