Ajuda a corrigir código

[andrebarradas]

boa tarde,

Código: Seleccionar todos


#!/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 "$i é ficheiro vazio \n";


        }
   }

}

print " Total Ficheiros: $fich  \n  Total FichVazios: $emptyfile \n";



O exercicio é seguinte:
http://img179.imageshack.us/img179/6439/semttulokq.jpg

Se alguém me puder ajudar a corrigir este código agradecia.

Cumps,
André Barradas

[andrebarradas]

Ninguem pode ajudar por favor??

[andrebarradas]

fechem isto se quiserem...já vi que não teem tempo para ajudar

[JoaoRosa]

era fechar e banir-te...

[andrebarradas]

era fechar e banir-te...

insultei alguem?pelo menos ao dizer aquilo ja vi que pelo menos veem ler o topico.ja e bom sinal

[JoaoRosa]

A mim por exemplo.

[JoaoRosa]

A mim por exemplo.

[andrebarradas]

em vez de tarmos a discutir por uma coisa insignificante,não consegues ajudar-me com o perl por favor?

[JoaoRosa]

Tens o algoritmo correcto?
Tens a sintaxe correcta?

[andrebarradas]

Tens o algoritmo correcto?
Tens a sintaxe correcta?

Não dá erro nenhum.O que acontece é que ele não conta ficheiro nenhum,ou seja, ele mostra Total Ficheiros:0; TotalFichVazios:0

EDIT:Já descobri o erro.O unico problema dele é que nao estava a procurar na directoria escolhida pelo utlizador, ou seja, onde fiz if(-f $i) e onde diz if(-z $i) teria de ter if(-f $ARGV[0]/$i) e if(-z $ARGV[0]/$i) para ele puder procurar na directoria escolhida pelo utlizador.

Podem fechar o topico e obrigado pela NENHUMA ajuda dada.Espero que me possam ajudar no outro programa que estou a tentar resolver.