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:
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.
Here is my attempted implementation of Wanted.
Thanks in advance.
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:
but lo, it does not work.my $var = $Find::File::name;
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.
Any takers?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; }
Thanks in advance.
Back to
Seekers of Perl Wisdom