I am having difficulty opening a directory and recursively listing the files
on NT Win32
I can do it on Unix but when I try it on NT with both UNC and drive letter I
get nothing...
Unix
#######################
!/util/perl5.static -w
use File::Find;
open(OUT, ">docs.out");
sub wanted
{
print OUT "$File::Find::name\n";
}
find( \&wanted, "/docs/1");
close(OUT);
#####################
NT
######################
use File::Find;
open(OUT, ">docs.out");
sub wanted
{
print OUT "$File::Find::name\n";
}
find( \&wanted, "D:\\");
close(OUT);
#######################
Jaime Hourihane
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
