Hashage html: Bugs dans mon Script Perl

Bonjour,
j'ai écrit un script qui parrait...logique mais qui me produit deux bugs.
Tout d'abord mon script ouvre un répertoire (donné en ligne de commande) lit les fichiers html qui s'y trouvent, les analyse et crée un fichier hash dans un répertoire de sortie (donné aussi en ligne de commande).

1- si les lignes 50-54 sont activées, l'erreur "No directory given!" est déclenchée, pourtant le répertoire où sont les fichiers html est bien donné.

2- si ces lignes sont désactivées, alors l'erreur en ligne 108 est déclenchée

Si les ligne 50-54 sont restent désactivées et les lignes 79-89 dans le "main"
on note bien que la ligne 77 est exécutée et crache le nom de tous les fichiers html du répertoire.

ligne de commande depuis la console:

c:\...>ErrorTracking_1.pl .\<répertoire> .\<répertoire sortie>



QU'EST-CE QUI CLOCHE!!??

fichiers joints:

Test.zip contenant:

1 Log4ta.pm
1 ErrorTracking_1.pl
1 répertoire de fichiers html

Bonjour,

déjà, erreur de logique, les lignes 50 à 54 devraient se trouver avant la ligne 40. Ce n'est pas logique de tester si j'ai bien reçu un nom de répertoire après avoir essayé de l'ouvrir.

Ensuite, ta condition est fausse:

Code:

---

if(! defined $DIR or ! -f $DIR)

---

Ce code dit: si $DIR n'est pas défini ou si $DIR n'est pas un fichier, sors en erreur. Mais $DIR n'est pas censé être un fichier, mais un répertoire.

Change la ligne comme suit:

Code:

---

if(! defined $DIR or ! -d $DIR)

---

Pour l'erreur de la ligne 108, ta liste de fichier contient le nom des fichiers nus, sans le chemin (sans $DIR), il est donc impossible de les ouvrir. Il faudrait soit que tu ajoutes le répertoire avant le nom de fichier, soit que tu changes de répertoire dans ton script.

Une solution plus simple serait d'utiliser la fonction glob, plutôt que opendir/reeaddir:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

# check for valid input parameter if(! defined $DIR or ! -d $DIR) { Log_Error("No directory given!"); die; } my @files = glob ("$DIR/*.html"); #... foreach (@files) { # ... }

---

L'avantage est que glob renvoie le nom du fichier avec le chemin relatif.

Dernier point: ajoute un chomp sur $out_dir, sinon il risque de conten ir un retour à la ligne et ça ne marchera pas comme il faut.

Merci Lolo78

tu avais raison en ce qui concerne le chemin relatif des fichiers.
je viens de terminer ce que je voulais faire, du moins la phase une qui n'est pas des moindres.

merci!