Help for this page
/* 651 * The functions glob2 and glob3 are mutually recursive; there is + one level 652 * of recursion for each segment in the pattern that contains one + or more 653 * meta characters. 654 */
use File::Find::Rule; my @dirs = find( 'dir', 'name', qr/^d\d/i, 'maxdepth', 1, 'in', $path +); my @files = find( 'file', 'name', qr/^d\d/i, 'maxdepth', 1, 'in', \@di +rs );
www.com | www.net | www.org
No recent polls found