note
chuckbutler
<p>
Localizing <i>$_</i> is an option, also:
</p><c>
#!/usr/bin/perl
use File::Find;
#find (\&testy, ".");
$_ = 'Main Line...';
testy ('i am a nice parameter');
print "$_\n";
sub testy {
local $_ = shift; #Localizing it is cool, also.....
print "$_\n" ;
}
__END__
~Output~~
i am a nice parameter
Main Line...
</c><p>
Good luck. -c
</p><p>
PS: The first parameter passed to a <i>sub</i> is in the first element of the list @_, $_[0], which is NOT the same a $_.
</p>
843194
843194