Matt Herzog wrote:
> Hey all.
Hello,
> I'm trying to write a script that will append a few chars (example _fr) to
> the end of the "prefix" filename. All the filenames I need to change end with
> .properties. I need to have this script descend into all subdirs of the dir
> specified at the command line.
>
> I can't seem to understand how to use a variable with the find(\&wanted
> syntax from File::Find. I suppose I can substitute "wanted" with &$whatever ?
> So far it does not work.
In the example find( \&wanted, 'dir' ) 'wanted' is the name of a subroutine
and \&wanted is a reference to that subroutine. If you want to use $whatever
you would do it something like this:
my $whatever = sub { # store sub reference into $whatever
# your code here
}
find( $whatever, 'dir' );
If you want to use a subroutine named 'whatever' then:
sub whatever {
# your code here
}
find( \&whatever, 'dir' ); # pass a reference to 'whatever'
Or you could just use an anonymous subroutine directly:
find( sub { your code here }, 'dir' );
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
