perlquestion
mikelupo
I'm a perl noob <br/>
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. <br/>
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.<br/>
It seems that I should be able to do this:
<code>
my $var = $Find::File::name;
</code>
but lo, it does not work. <br/>
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.<br/>
<code>
print $Find::File::name;
</code>
<br/>
Here is my attempted implementation of Wanted.<br/>
<code>
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;
}
</code>
Any takers?<br/>
Thanks in advance.