ДОброго дня всем.
Задача такая - надо получить uid владельца каталогов, которые в свою очередь лежат в определенном каталоге.
Вот мой код
#!/usr/bin/perl -wT
use strict;
use File::stat;
my $dir = "/usr/home/";
opendir(HOME, $dir);
while(my $catalog = readdir HOME)
{
my $sb = stat($catalog);
printf "File is %s, uid %d\\n", $catalog, $sb->uid;
}
closedir(HOME);
exit;
вот что мне на этот код выдает система
File is ., uid 0
File is .., uid 0
stat() on unopened filehandle File::stat::nik at /usr/local/lib/perl5/5.6.1/File/stat.pm line 49.
Can\'t call method "uid" on an undefined value at ./fstat.pl line 12.
Подскажите плиз, в чем проблема?