http://qs321.pair.com?node_id=874034

mikelupo has asked for the wisdom of the Perl Monks concerning the following question:

I'm a perl noob
I'm trying to inventory a bunch of file with .wgt extension and store the matches (from some seeded input) in a report at the end. I need the full path that Find::File::name provides.
To that end, I'd like to be able to store the output of Find::File::name into a local variable so I can eventually do append the string to a file.
It seems that I should be able to do this:
my $var = $Find::File::name;
but lo, it does not work.
but...I'm confused because I can send it to std out by using print so it seems to reason that it's returning a string.
print $Find::File::name;

Here is my attempted implementation of Wanted.
sub Wanted { return unless (-f $_); # only operate on compiled widgets /\.wgt$/ or return; my $file = $_; chomp ($file); chomp ($line); #print $file ." \n" if $file eq $line; if (lc($line) eq lc($file)){ print $File::Find::name. "\n"; #my $foundFile = $File::Find::name. "\n"; #this does not work +hence it is commented out!! } return; }
Any takers?
Thanks in advance.