Find::File error

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello,
I'm using the following code on a windows box:

#!/perl/bin/perl

use File::Find;

File::Find::find(\&wanted,'\\');

find \&wanted, "\\";

sub wanted {
    print "$File::Find::dir is the apache dir" if $File::Find::name =~
+ /[Hh]ttpd\.conf/;
}
[download]

And I'm getting the follwoing error: Can't opendir(\/System Volume Information): Invalid argument I've searched through the docs, and can't see what I'm doing wrong.

Does anyone know?

Comment on Find::File error Select or Download Code

Replies are listed 'Best First'.
Re: Find::File error by BrowserUk (Patriarch) on Aug 01, 2003 at 18:43 UTC
You don't have permission to read the 'System Volume Information' folder, so when File::Find attempts to use opendir on it, the attempt fails, so it does `warnings::warnif "Can't opendir($dir_name): $!\n";` [download] The "Invalid parameter" is the contents of $! as set by the perl core code for opendir. It apparently assumes that the only reason you wouldn't be able to open a directory is if you supplied a bad, non-existant or malformed directory name. Ie. An invalid parameter. However, if you print $^E, immediatly after a failed opendir attempt, then you will usually get a little more specific information from the OS about why the attempt failed. In this case, "Access denied" `P:\test>perl -Mstrict -wl opendir D, 'c://System Volume Information' or warn $!,$/, 'OS reports: +', $^E; print while $_=readdir(D); close D; ^Z Invalid argument OS reports:Access is denied at - line 1.` [download] I guess a patch to File::Find to use $^E under Win32 would be a nice idea. Till then, if you wish to suppress these warnings for directories and files for which you don't have access, you can turn off the warnings, locally, for the duration of the `find()`. `P:\test>perl -MFile::Find -Mstrict -wl { local $^W; find( sub{ print; }, 'c:/System Volume Information' ); } ^Z .` [download] You could maybe find a `no warnings '???';` setting that would be less all encompassing. Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller If I understand your problem, I can solve it! Of course, the same can be said for you.	[reply] [d/l] [select]
Re: Find::File error by waswas-fng (Curate) on Aug 01, 2003 at 19:45 UTC
BrowserUK has your answer, but I wonder what you script would do with my file c:\lol-this-is-not-apache\httpd.conf or c:\either-is-this\FAQ_Why_I_Hate_Httpd.conf_so_much.txt. I hope you are not acting on that "match" =) -Waswas	[reply]