Front page | perl.beginners |
Postings from January 2002
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
Thread Previous
|
Thread Next