<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt">Olá Pessoal,<br>Uma dúvida boba que surgiu e que não está funcionando.<br>Estou lendo um diretorio no qual tentei usar o next if para nao pegar os arquivos vazios.<br>Só que nao esta funcionando. Alguem saberia me dizer o pq??<br><br><br><div>opendir(DIR, $dir) or die "Erro ao tentar acessar o diretorio:$!";<br><br>foreach my $file (sort(readdir DIR))<br>{<br><br><br> if(-z $file) {print "File is empty!\n";} --------> Nao funcionou<br><br> next if $file eq '.' or $file eq '..' or ($file !~ /\.log$/ ) or -z $file; ----------> tb nao funcionou...<br>...........<br><br><br><br>Obrigada<br> <br></div>
</div><br>
</body></html>