> Here's a newbie question I guess. How would I build a list of all
> files on a specified drive, recursively building the list?
> Suggestions or snippets would be appreciated.
>
> Robert Maxwell
$drive = 'c';
open MYFILELIST, "dir $drive: /s/b |" or die "could not
spawn dir $drive: /s/b: $!";
while (<MYFILELIST>){
chomp;
-f $_ or next;
push @ListOfAllFiles, $_;
};
--
David L Nicol
$SesKey=join"",grep{/\w/}map{chr rand 128}0..99;#Zesty!
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
