use FileHandle, readdir???

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

Hi! Why isn't this working:

my $NuserDir = new FileHandle "+>> /home/$key";
while (my $fobj = readdir $NuserDir) {
    next if $fobj eq '.' or $fobj eq '..' or $fobj eq '.profile';
    print ("chown -R $key:$euser_group $fobj");
}

Can't use an undefined value as a symbol reference at usercfgforfacs.t
+est.plx line 256.
[download]

thx!

Comment on use FileHandle, readdir??? Download Code

Replies are listed 'Best First'.
Re: use FileHandle, readdir??? by GrandFather (Saint) on May 25, 2011 at 21:04 UTC
Because readdir requires a directory handle created with opendir perhaps? True laziness is hard work	[reply]
Re: use FileHandle, readdir??? by toolic (Bishop) on May 25, 2011 at 21:07 UTC
Maybe you really want to use DirHandle (instead of FileHandle) since you are opening a directory. `use warnings; use strict; use DirHandle; my $d = DirHandle->new('/tmp'); # <-- your directory here if (defined $d) { while (defined(my $fobj = $d->read)) { next if $fobj eq '.' or $fobj eq '..' or $fobj eq '.profile'; print "$fobj\n"; # <-- chown here } undef $d; }` [download]	[reply] [d/l]
Re: use FileHandle, readdir??? by kennethk (Abbot) on May 25, 2011 at 21:07 UTC
Consider your error: there is only one variable on that line, so it must be undefined. A better question you should be asking is "Why didn't my open work?" I would suggest testing your open: `my $NuserDir = new FileHandle "+>> /home/$key" or die "Open failed: $!";` I strongly suspect that you either don't have permissions for the requested operation or you are trying to clobber a directory. On a side note, after you fix that, you still won't function since readdir needs a directory handle, not a file handle.	[reply] [d/l]