Passing Referene to Subroutine Reference

[NorthernHeights]

I have a tough nut that I have not been able to crack. Any help would be apprecriated. I'm using File::Find.

Inside the wanted function of the find command I want to build a data structure and pass it back. I have even tried making the data structure global but doesn't work either.

Here is what I'm calling:
find( {wanted => \&GetFiles, follow => 1}, $ReducedSearchPath);

Here is the approx syntax of what I want to do:
find( {wanted => %{$PossibleMatches} = \&GetFiles(\%PossibleMatches), follow => 1}, $ReducedSearchPath);

sub GetFiles {
my $HashRef = shift @_;
my %FoundFiles = %{$HashRef};

# Make some modifications to %FoundFiles

return \%FoundFiles;
}

And ideas? I can't seem to get it to work. I don't know if it's my syntax of the find command.

Many thanks

 

[prex1]

I don't use File::Find, but from a quick look into perldoc it seems that you are out of the way.

The wanted function. ... In fact, its return value is ignored.
The wanted function takes no arguments...

Anyway your use of references in subs is incorrect, if not wrong. You don't need to copy the hash inside the sub, just modify it (unless you really want to keep the original) and don't need to return its reference, the hash is already modified.

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[NorthernHeights]

Thanks. I looked at the docs but not specifically for that. Too close the problem and not checking my basics.