File::Find trying to pass variables to the wanted subroutine 2

[travs69]

use File::Find;
my $test = 1;
my $test3;
my $dir = 'c:/temp';
find(\&wanted, $dir);

for (0..0) {
	my $test2 = 2;
	find(\&wanted2, $dir);
}
for (0..0) {
	$test3 = 3;
	find(\&wanted3, $dir);
}
sub wanted {
	print "T1:$test\n";
}
sub wanted2 {
	print "T2:$test2\n";
}
sub wanted3 {
	print "T3:$test3\n";
}

output:
T1:1
T1:1
T2:
T2:
T3:3
T3:3


It's as if File::Find only sees the variables scoped at the highest level. I have tried passing my data to the subroutine \&wanted($test2) but I get errors back from File::Find.

Has anyone else ran into this or know a easy fix, I hate scoping the variable way out side of where they need to be just for File::Find.


Thanks!!



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[rharsh]

You mentioned errors from File::Find, what are they? Are you running this with warnings/strict turned on?

Does something like this not work:

use File::Find;
my $dir = 'c:/temp';

my $test = 1;
find(\&wanted($test), $dir);

for (1) {
    my $test2 = 2;
    find(\&wanted2($test2), $dir);
}

sub wanted {
	my $val = shift;
    print "T1:$val\n";
}
sub wanted2 {
	my $val = shift;
    print "T2:$val\n";
}

 

[travs69]

Nope.. I get

T1:1
Not a CODE reference at C:/Perl/lib/File/Find.pm line 849.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[rharsh]

hmm... I tried running that code before I posted it and it worked just fine. Again, are you using warnings and strict? Are you getting any other error messages? Did you run the code exactly as posted or could there be an error somewhere else in your code that is causing the problems?

 

[travs69]

Exactly as you put above but with the addition of use strict; and use warnings;

Ran it with strawberry perl 5.10 on a win32 machine and on perl 5.8.8 redhat 2.6 and got the exact same output.

The only interesting bit I saw was when I copied it over to the linux machine I forgot to change the directory and saw this error

[travis@machine ~]$ ./test.pl
T1:1
Can't stat c:/temp: No such file or directory
at ./test.pl line 8
T2:2
Can't stat c:/temp: No such file or directory
at ./test.pl line 9


So it made it to the T2:2 there but when I put in a actual correct directory it gave me the same error as before.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[travs69]

Rharsh, did you have a chance to see if you were getting the same results as I am getting?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[Annihilannic]

For what it's worth, I get the same results as you.

I think the simplest solution is to define the function in the same scope as the variable, e.g.

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]File::Find[/green][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$dir[/blue] = [red]'[/red][purple]travs69[/purple][red]'[/red][red];[/red]

[olive][b]for[/b][/olive] [red]([/red][fuchsia]0..0[/fuchsia][red])[/red] [red]{[/red]
    [black][b]my[/b][/black] [blue]$test2[/blue] = [fuchsia]2[/fuchsia][red];[/red]
    [url=http://perldoc.perl.org/functions/sub.html][black][b]sub[/b][/black][/url] [maroon]wanted2[/maroon] [red]{[/red]
        [url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [red]"[/red][purple]T2:[blue]$test2[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
    [red]}[/red]
    [maroon]find[/maroon][red]([/red]\[maroon]&wanted2[/maroon], [blue]$dir[/blue][red])[/red][red];[/red]
[red]}[/red]

Annihilannic.

 

[travs69]

Aggh.. I never considered trying that, still strange as to why it happens but it's something to considered..

Thanks!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;