http://qs321.pair.com?node_id=11120688


in reply to pass one or more directories into a file and use that as INPUT to a called script

Were you looking for something like this?

#!/usr/bin/perl use strict; use warnings; my $runTest = 'one.d,ants,mail,3chess.pl,two.d'; sub dive { map { -d $_ ? dive( glob "$_/*" ) : $_ } @_ } my @files = map { dive($_) } split /,/, $runTest; print "$_\n" for @files;