Question

How can I find a file, user owned by tree and group owned by tree? And how can I find a whole directory inside which files are owned by tree?

Answer 1

The File::Find module is a standard Perl module (i.e., it is available on all installations of Perl). You can use File::Find to go through a directory tree and search for the file you want.

To use, you create a wanted subroutine that parses the files, then have the find subroutine include that wanted routine in its call. The File::Find module is a bit klutzy because it was originally only meant to use for the find2perl command.

Here’s some completely untested code. Notice that you do yucky stuff like using global variables and package variables. It’s one of the reasons I don’t like File::Find.

use File::Find;
our $myUid = getpwnam('tree');
our $muGid = getgrnam('tree');
find (\&wanted, @dirList);

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($File::Find::name);
    next if (not -f $File::Find::name);
    next if ($uid != $myUid);
    next if ($gid != $myGid);
    print qq(File "$File::Find::name" is owned by group 'tree' and user 'tree'\n);
}

I wrote my own File::Find called File::OFind because it’s more object oriented. You can get that from here. It’s a bit easier to understand. (Again, completely untested):

use File::OFind;
# Really should test if these return something
my $myUid = getpwnam('tree');
my $muGid = getgrnam('tree');

# Create your directory search object
my $find = File::OFind->new(STAT => 1, $directory);

# Now keep looping and examining each file
while($find->Next) {
   next if ($find->Uid != $myUid);
   next if ($find->Gid != $myGid);
   next if ($find->Type ne "f");   #Is this a file?
   print $find->Name . " is owned by group and user tree\n";
}