[SP-pm] S.O.S

["Iberê O. Kuntz de Souza"]

> 3. Use opendir e readdir para ler os diretórios, e encontrar os arquivos que você quer. Isto também não é recursivo, e tem a desvantagem de precisar de tratamento de erros (diretórios podem dar problemas ao serem abertos e fechados, é preciso que o programa saiba o que fazer em caso de problemas. E isto também não lê sub diretórios recursivamente.
> 
>   Leia sobre o opendir e readding nas man-pages do Perl:
> 
>   perldoc -f opendir
> 
>   perldoc -f readdir 

O chiclete mastigado:
--------------------------------------------------
opendir my ($DIRECTORY), $dir;
for (readdir $DIRECTORY) {
         if ( m{
		.*	# qualquer coisa
		\.jpg	# a extensão
		$	# final
	     }imx ) {
                 push @FILES, $_;
         }
}
print @FILES;
--------------------------------------------------


Aproveitando o embalo.. o que eh mais bonito: opendir (my $LALA, $dir) 
ou opendir my ($LALA), $dir ?

Iberê