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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :

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