$thispath = 'd:\my documents\my other stuff\*.*';
print "thispath is [$thispath]\n";
@thisdir = glob($thispath);
foreach $thisfile (@thisdir) {
print " Found [$thisfile]\n";
}
####
thispath is [d:\my documents\my other stuff\*.*]
Found [d:./my]
Found [docsmy]
####
12/11/2000 07:49p .
12/11/2000 07:49p ..
12/11/2000 07:42p 480 dir.pl
12/11/2000 07:52p 185 dir2.pl
12/11/2000 07:53p 0 out.txt
12/11/2000 11:00a 1,125 populate.pl
####
thispath is [.\*.*]
Found [.\dir.pl]
Found [.\dir2.pl]
Found [.\out.txt]
Found [.\populate.pl]