File::Find and File Handlers

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

Hi I'm trying to print to a file from File::Find but can't figure out why the file isn't being created.

use strict;
use warnings;
use File::Find;

find(\&wanted, "c:\\");

sub wanted {
    if (/.zip$/) {
        print "$File::Find::name\n";
        open (FH, ">>test.txt");
        print FH "$File::Find::name\n";
        close (FH);
    }
}
[download]

Comment on File::Find and File Handlers Download Code

Replies are listed 'Best First'.
Re: File::Find and File Handlers by ikegami (Patriarch) on May 11, 2010 at 17:25 UTC
First of all, it's a file handle (holds a resource), not a handler (since it doesn't handle anything). If you can't figure out why the file isn't getting created, it's because you didn't check what error `open` returned. I don't know if you realize that you've instructed Perl to create a `test.txt` file in every directory that has a .zip file. File::Find's `no_chdir` option would be useful if you meant to create a single `test.txt` file.	[reply] [d/l] [select]
Re^2: File::Find and File Handlers by Gizmo (Novice) on May 11, 2010 at 18:32 UTC
Thanks, that explains a lot.	[reply]
Re: File::Find and File Handlers by Anonymous Monk on May 11, 2010 at 17:24 UTC
Because 1) You aren't error checking and 2) your current directory is not what you think it is	[reply]
Re: File::Find and File Handlers by hotpelmen (Scribe) on May 11, 2010 at 17:29 UTC
You are giving relative path to the file. It will be created in the same folder where the zip file resides.	[reply]
Re: File::Find and File Handlers by ww (Archbishop) on May 11, 2010 at 17:36 UTC
Works for me under nx (modification at your line 5: search dir changed to `"./");` sted `"c:\\);"` But, I have vague recollection that (some versions of ?) W32 can be configured so that an ordinary user (non-admin) cannot write to the root directory. If you're getting a list of .zip files to the console from your script, then I would check to see if 'doze will let you write to c:\.	[reply] [d/l] [select]