Question on File::Find

[Diana]

Hi,
I am struggling to use File::Find module,
the issue is, I can use with defining find function with &wanted, but
not with %options, here is what I am doing
my %findoption=( bydepth=>"1" , no_chdir => "1" );
push (@All,find(\%fort,"$Location"));
thx
-D

 

[Paul Lalli]

Hi,
I am struggling to use File::Find module,
the issue is, I can use with defining find function with &wanted, but
not with %options, here is what I am doing
my %findoption=( bydepth=>"1" , no_chdir => "1" );
push (@All,find(\%fort,"$Location"));

1) You didn't include the wanted option in your %findoption hash. If
you pass a hash reference as the first option to find, one of the
key-value pairs of that hash must be 'wanted' with the value of the
subroutine you want to call.
2) find() does not return a list of files it finds. I have no idea
what you think your push statement is doing
3) Do not needlessly double-quote variables (like you did to
$Location). See `perldoc -q quoting`

Paul Lalli

 

[Paul Lalli]

Diana wrote:

1) You didn't include the wanted option in your %findoption hash. If
you pass a hash reference as the first option to find, one of the
key-value pairs of that hash must be 'wanted' with the value of the
subroutine you want to call.
2) find() does not return a list of files it finds. I have no idea
what you think your push statement is doing
3) Do not needlessly double-quote variables (like you did to
$Location). See `perldoc -q quoting`

4) What the heck is %fort? You declared %findoption, but are passing a
reference to %fort? If this is your real code, please enable `use
strict;` and `use warnings;` in your code. If this is not your real
code, please DON'T DO THAT!

Paul Lalli

 

[Diana]

4) What the heck is %fort? You declared %findoption, but are passing
a reference to %fort? If this is your real code, please enable `use
strict;` and `use warnings;` in your code. If this is not your real
code, please DON'T DO THAT!

Paul Lalli

sorry for the mistake, I presume I modified during posting, my mistake,
it seems I am NOW able to use options like this


my %fort=(wanted=>sub{push (@AllDir,$File::Find::name)},bydepth=>"1" ,
no_chdir => "1" ); ;
find(\%fort,$Location);

--

 

[Ben Morrow]

[File::Find]
it seems I am NOW able to use options like this

my %fort=(wanted=>sub{push (@AllDir,$File::Find::name)},bydepth=>"1" ,
no_chdir => "1" ); ;
find(\%fort,$Location);

There's no need to quote "1", either. Note that you can build the
hashref inline:

find ({
wanted => sub {
push (@AllDir, $File::Find::name);
},
bydepth => 1,
no_chdir => 1,
}, $Location);

Personally I wouldn't use any of those parens, but you may find them
helpful.

Ben