#!/usr/bin/perl -w 
use strict; 
 
#Verificar argumentos 
 
if (@ARGV != 1) {die("Precisar de entrar um argumento,sendo ele uma directoria")} 
 
#Verificar se o argumento é directoria 
 
if (!-d $ARGV[0]) {die("O argumento não é directoria");} 
 
#abertura da directoria 
 
opendir(DIR,"$ARGV[0]") || die ("Erro ao abrir directoria"); 
my @dir = readdir(DIR); 
chomp (@dir); 
close (DIR); 
 
my $fich; 
my $emptyfile; 
 
foreach my $i (@dir){ 
 
if ($i eq "."){next;} 
if ($i eq ".."){next;} 
 
    if (-f $i){ 
 
       $fich++; 
        if (-z $i){ 
          $emptyfile++; 
          print "$emptyfile é ficheiro vazio \n"; 
 
 
        } 
   } 
 
} 
 
print " Total Ficheiros: $fich  \n  Total FichVazios: $emptyfile \n";