Bonjour,
Vrai débutant je suis desolé de poser une question sans doute naive mais je n'ai pas trouvé de réponse dans la FAQ à mon problème:
Voici mon code appelé "tespat.pl" (je suis sur Windows XP Pro, mais j'obtiens le même message d'erreur sur un script similaire sous Linux):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
1 use warnings;
2 use File::Find;
3 use Cwd;
4 $direct = getcwd;
5 print "$direct \n";
6 find (\$wanted, $direct);
7 sub wanted {
8 print $_;
9 print $File::Find::name;
10 print $File::Find::dir;
11   }
et voici la sortie du terminal:

D:\perl\Test>tespat.pl
D:/perl/Test
Not a CODE reference at D:/perl/lib/File/Find.pm line 822

pour info voici le code autour de la ligne 822 de D:/perl/lib/File/Find.pm:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
808     # push the starting directory
809     push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
810 
811     if ($Is_MacOS) {
812 	$p_dir = $dir_pref;  # ensure trailing ':'
813     }
814 
815     while (defined $SE) {
816 	unless ($bydepth) {
817	    $dir= $p_dir; # $File::Find::dir
818 	    $name= $dir_name; # $File::Find::name
819 	    $_= ($no_chdir ? $dir_name : $dir_rel ); # $_
820	    # prune may happen here
821 	    $prune= 0;
822 	    { $wanted_callback->() };	# protect against wild "next"
823 	    next if $prune;
824 	}
Merci d'avance à l'ame charitable qui voudra bien m'aider