[Cascavel-pm] Verificar tamanho arquivo

[Patty Silva]

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


        if(-z $file)    {print "File is empty!\n";} --------> Nao funcionou

        next if $file eq '.' or $file eq '..' or ($file !~ /\.log$/ ) or -z $file;  ----------> tb nao funcionou...
...........



Obrigada


      
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20100520/1c71ca56/attachment.html>