Use of uninitialized value in numeric lt (<)

Bonjour,

Je viens vers vous car j'ai un petit soucis. J'ai un bou de code qui me génère un Warning :

Code:

---

1 2 3 4 5 6 7

opendir my($dir), $path or die "Couldn't open $path : $!\n";   my ($last_file_name) = reduce { -M "$dir/$a" < -M "$dir/$b" ? $a : $b } grep { /$type/ && not -d "$dir/$_" } (readdir $dir); closedir $dir;

---

Mon problème se situe plus à ce niveau là :

Code:

---

reduce { -M "$dir/$a" < -M "$dir/$b" ? $a : $b }

---

le reduce vient apparement de la bibliothèque List::Util. Et d'après cette page, http://search.cpan.org/~gbarr/Scalar...b/List/Util.pm , la syntaxe est bonne.

Lorsque j'execute mon script, j'ai ce warning qui s'affiche :

Citation:

---

Use of uninitialized value in numeric lt (<) at ./ciscobackup4.pl line 263, <FICHIER> line 1.

---

Quelqu'un a t'il une ptite idée?

Merci d'avance,

Olivier

Ben, comme indiqué par Perl : une de tes variables n'est pas initialisée, soit $dir, soit $a, soit $b.
Faute de voir où sont initialisées $a et $b, et n'utilisant les handles indirects que quand ils me sont utiles (c'est à dire quasiment jamais), je ne saurais être catégorique, mais j'ai de gros doutes sur la déclaration de $dir en plein milieu d'un expression open. Pour moi, $dir est le principal suspect.
Tu n'as qu'à ajouter des print pour trouver quelle variable n'est pas initialisée.

Merci pour ta réponse.

Je viens d'essayer d'initialiser $a et $b. $dir est bien initialisé car lorsque je fais un print j'ai cette valeur : GLOB(0x9a10054)

$a et $b ne peuvent pas être initialisé. Elles ne sont accessible que dans reduce.

L'erreur

Use of uninitialized value in numeric lt (<) at ./ciscobackup4.pl line 264, <FICHIER> line 1.

persiste....

Voici le code de la fonction complete :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

sub Fichier_plus_recent {   my $path = $_[0]; my $type = $_[1]; my $dir; use List::Util qw(reduce);   opendir $dir, $path or die "Couldn't open $path : $!\n"; print "DIR=$dir";   my ($last_file_name) = reduce { -M "$dir/$a" < -M "$dir/$b" ? $a : $b } grep { /$type/ && not -d "$dir/$_" } (readdir $dir); closedir $dir; print "$last_file_name\n"; return $last_file_name;   }

---

Avez-vous une idée?

Merci d'avance,
Olivier

Je devais être crevé quand j'ai répondu, parce que c'est encore plus simple que je ne l'imaginais : l'opérateur -M est un opérateur de test sur fichier, prenant comme argument une chaîne de caractère contenant le chemin du fichier à tester. Alors ce serait peut-être une bonne idée de lui fournir ça, c'est à dire $path au lieu de $dir.

Effectivement, ça venait bien de là! Merci beaucoup!!

Juste pour google, Cette fonction perl permet de lister un répertoire et de récupérer le nom du fichier le plus récent en fonction d'une partie de son nom.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

sub Fichier_plus_recent {   use List::Util qw(reduce);   my $path = $_[0]; #Chemin du répertoire à lister my $type = $_[1]; #Partie du nom de fichier que l'on recherche my $dir;     opendir $dir, $path or die "Couldn't open $path : $!\n"; print "DIR=$dir";   my ($last_file_name) = reduce { -M "$path/$a" < -M "$path/$b" ? $a : $b } grep { /$type/ && not -d "$path/$_" } (readdir $dir); closedir $dir;     return $last_file_name; #Nom du fichier le plus récent   }

---