Can't stat e:: Unknown file or directory ???

[Abe]

I have a strange Perl problem I don't understand. I've written the
following program to scan different disks on a Windows server to look
for directory files. Works fine until it gets to 'e:' when I get this
warning:

Can't stat e:: Unknown file or directory

(If I don't have the "use warnings" in the code I get no message.)

There are folders and files on e:. I don't understand what the
problem is but I suspect there's some kind of syntax issue.

use File::Find;
use warnings;

@disks = ('h:','g:','f:' ,'e:','d:');

$rfile = "sharebug.t xt";
open (OFILE, ">$rfile") || die "Can't Open $rfile: $!\n";

foreach $disk (@disks)
{
printf ">>>Search disk: %s\n", $disk;
printf OFILE ">>>Search disk: %s\n", $disk;
@dir = ($disk);
find (\&wanted, @dir);
$dir = ();
}
close (OFILE);
exit;

sub wanted
{
use warnings;
$fname = $_;
if (-d $fname)
{
printf OFILE "$File::Find::n ame\n";
}
}
** Due to SPAM I no longer receive email responses to
** newsgroup postings, so don't bother.

[Jim Gibson]

In article <pt************ *************** *****@4ax.com>, Abe
<ma*******@PLEA SE.NOSPAM.gags-r-us.org> wrote:

I have a strange Perl problem I don't understand. I've written the
following program to scan different disks on a Windows server to look
for directory files. Works fine until it gets to 'e:' when I get this
warning:

Can't stat e:: Unknown file or directory

(If I don't have the "use warnings" in the code I get no message.)

There are folders and files on e:. I don't understand what the
problem is but I suspect there's some kind of syntax issue.
If it were a syntax issue, perl would tell you about it. It is more
likely a permissions issue. I don't have a Windows server to test your
program, however. It looks like your syntax is fine.

I can make some suggestions:
use strict;
use File::Find;
use warnings;

@disks = ('h:','g:','f:' ,'e:','d:');
my @disks = ... # for this and all other variables

$rfile = "sharebug.t xt";
open (OFILE, ">$rfile") || die "Can't Open $rfile: $!\n";

foreach $disk (@disks) foreach my $disk ( @disks )
{
printf ">>>Search disk: %s\n", $disk;
printf OFILE ">>>Search disk: %s\n", $disk;
@dir = ($disk);
You don't need to define an array to pass to find(). Perl will form an
array from all of your parameters and pass it to the subroutine.
Therefore, 'find ( \&wanted, $disk );' works fine.
find (\&wanted, @dir);
$dir = ();
You don't need this in any case. There is no relation between $dir and
@dir (other than they live in the same glob).
}
close (OFILE);
exit;

sub wanted
{
use warnings;
There is no need to repeat 'use warnings' here.
$fname = $_;
if (-d $fname)
{
printf OFILE "$File::Find::n ame\n";
}
}

Last suggestion: post further questions to comp.lang.perl. misc. This
newsgroup is defunct.

[Abe]

Thanks. I just posted a slightly cleaned up version in the other
newsgroup.

I don't think it's a permission problem because if I change the
"@disk=" line to this:

@disks = ('h:','g:','f:' ,'e:\\','d:');

It handles all the drives just fine.
On Tue, 23 Nov 2004 13:00:29 -0800, Jim Gibson
<jg*****@mail.a rc.nasa.gov> wrote:

In article <pt************ *************** *****@4ax.com>, Abe
<ma*******@PLE ASE.NOSPAM.gags-r-us.org> wrote:

I have a strange Perl problem I don't understand. I've written the
following program to scan different disks on a Windows server to look
for directory files. Works fine until it gets to 'e:' when I get this
warning:

Can't stat e:: Unknown file or directory

(If I don't have the "use warnings" in the code I get no message.)

There are folders and files on e:. I don't understand what the
problem is but I suspect there's some kind of syntax issue.

If it were a syntax issue, perl would tell you about it. It is more
likely a permissions issue. I don't have a Windows server to test your
program, however. It looks like your syntax is fine.

I can make some suggestions:
use strict;

use File::Find;
use warnings;

@disks = ('h:','g:','f:' ,'e:','d:');

my @disks = ... # for this and all other variables

$rfile = "sharebug.t xt";
open (OFILE, ">$rfile") || die "Can't Open $rfile: $!\n";

foreach $disk (@disks)

foreach my $disk ( @disks )

{
printf ">>>Search disk: %s\n", $disk;
printf OFILE ">>>Search disk: %s\n", $disk;
@dir = ($disk);

You don't need to define an array to pass to find(). Perl will form an
array from all of your parameters and pass it to the subroutine.
Therefore, 'find ( \&wanted, $disk );' works fine.

find (\&wanted, @dir);
$dir = ();

You don't need this in any case. There is no relation between $dir and
@dir (other than they live in the same glob).

}
close (OFILE);
exit;

sub wanted
{
use warnings;

There is no need to repeat 'use warnings' here.

$fname = $_;
if (-d $fname)
{
printf OFILE "$File::Find::n ame\n";
}
}

Last suggestion: post further questions to comp.lang.perl. misc. This
newsgroup is defunct.

** Due to SPAM I no longer receive email responses to
** newsgroup postings, so don't bother.