S
SRB
I get invalid top directory at E:/Perl/lib/File/Find.pm line 562. when i
run this in windows. Can someone explain what I am doing wrong?
use File::Find;
use Win32::File;
use Win32API::File 0.08 qw( :ALL );
my $LogDir = "C:\\";
print $LogDir;
&File::Find::find(\&doFile, $Logdir);
print "done.\n";
sub doFile
{
return unless (-f $_);
print "File: $_ \n";
}
run this in windows. Can someone explain what I am doing wrong?
use File::Find;
use Win32::File;
use Win32API::File 0.08 qw( :ALL );
my $LogDir = "C:\\";
print $LogDir;
&File::Find::find(\&doFile, $Logdir);
print "done.\n";
sub doFile
{
return unless (-f $_);
print "File: $_ \n";
}