Kevin Pfeiffer wrote:
>
> I've taken a tip from File::Find and am doing this:
>
> scan_mb(\&wanted, $quiz_mb);
> # $quiz_mb contains a pathname to a directory
>
> (Note this is a small task similar to the newest qotw from MJD)
>
> I am reading a directory and foreach filename running my function &wanted.
> So, taking a tip from File::Find I am passing a reference to the wanted
> function to scan_mb. Now, inside sub scan_mb, how do I regain/use this
> passed function?
sub scan_mb {
my ( $code_ref, $quiz ) = @_;
$code_ref->( $_ );
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
