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):
et voici la sortie du terminal:
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 }
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:
Merci d'avance à l'ame charitable qui voudra bien m'aider
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 }![]()
Partager