Problème d'utilisation de File::Find
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:
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:
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 :cry:
