$path=`cd`; print $path; my %files = Recurse(["$path"], { match => '\.', nomatch => '' }); foreach (sort keys %files) { print; foreach (@{ $files{"$_"} }) { $files=$_; my $fullname="$dirs"."\\"."$files"; print $fullname; } }
In reply to Directory Recursion Question by rupesh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |