Thanks I got it to work this way (and your map function answer works great also) but was hoping I could get it
more condensed without using the map function. Just so I can understand it
better since I am a beginner. Anyway to combine what I have here to work??
#!/usr/local/bin/perl
use strict;
use File::Find;
my $dirs = '/web/directory/AA';
my $dirs2 = '/web/directory/BB';
my $dirs3 = '/web/directory/CC'
find(\&search, $dirs);
find(\&search, $dirs2);
find(\&search, $dirs3);
sub search
{
print "$File::Find::name\n";
}
| [reply]
[d/l] |
Yes.
find(\&search, $dirs, $dirs2, $dirs3);
Which should actually be
my @dirs = ('/web/directory/AA', '/web/directory/BB', '/web/directory/
+CC',);
find(\&search, @dirs);
Which can be written as
my @dirs = map "/web/directory/$_", 'AA', 'BB', 'CC';
Which we can then embed in the function call:
find(\&search, map "/web/directory/$_", 'AA', 'BB', 'CC');
:)
Makeshifts last the longest. | [reply]
[d/l]
[select] |