use FileHandle, readdir???

[dbs]

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.

thx!

[GrandFather]

Because readdir requires a directory handle created with opendir perhaps?

[toolic]

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;
}

[kennethk]

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.