[Cascavel-pm] Verificar tamanho arquivo

Nelson Ferraz nferraz em gmail.com
Quinta Maio 20 06:29:19 PDT 2010


2010/5/20 Patty Silva <ptfzs em yahoo.com.br>:
> Olá Pessoal,
> Uma dúvida boba que surgiu e que não está funcionando.
> Estou lendo um diretorio no qual tentei usar o next if para nao pegar os
> arquivos vazios.
> Só que nao esta funcionando. Alguem saberia me dizer o pq??

opendir(DIR, $dir) or die "Erro ao tentar acessar o diretorio:$!";

foreach my $file ( sort( readdir DIR ) ) {
    print "File '$file' not found\n" if !-f $file and !-d $file;
}


Mais detalhes sobre a lista de discussão Cascavel-pm