Re^6: perl challenge 3

you need to replace
my $SubDirs= File::Find::Rule->directory->in('etc', 'dev', 'bin');
with

my @startDirs = qw(/etc /dev /bin);
my @SubDirs= File::Find::Rule->directory->in( @startDirs );
[download]

and then use @SubDirs in the next statement... this might work (untested) it could also ve @startDirs

Comment on Re^6: perl challenge 3 Select or Download Code

Replies are listed 'Best First'.
Re^7: perl challenge 3 by Anonymous Monk on Dec 16, 2015 at 21:18 UTC
What is in /etc /dev and /bin ? I can't imagine they have both files and subdirs ... you can probably just skip that part and give these original dirs to the next find call	[reply]