Discussion :

[jotape75]

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

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
use warnings;
use File::Find;
use Cwd;
$direct = getcwd;
print "$direct \n";
find (\$wanted, $direct);
 
sub wanted {
  print $_;
  print $File::Find::name;
  print $File::Find::dir;
}

$wanted n'est jamais déclaré dans ton code (tu devrais utiliser le pragma "strict", ça t'aurait aidé), ce qui est déclaré c'est la subroutine wanted, dont tu peux prendre une référence avec \&wanted :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
use strict; use warnings;
use File::Find;
use Cwd;
my $direct = getcwd;
print "$direct \n";
find (\&wanted, $direct);
 
sub wanted {
  print $_;
  print $File::Find::name;
  print $File::Find::dir;
}

--
Jedaï

[jotape75]