Re: Scan disk for files with certain owner

[Andreas Moroder]

Neal Clark schrieb:

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I'd use some combination of File::Find with getgrgid and getpwuid with the wanted callback.

#!/usr/bin/perl -w
use strict;

use File::Find;

my @directories = ('/dir1','/dir2');

find(\&wanted,@directories);

sub wanted {
        my ($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_);
        if (!(defined(getpwuid($uid)) && defined(getgrgid($gid)))) {
                print $File::Find::name . "\n";
        }
}

On Feb 28, 2007, at 12:12 AM, Andreas Moroder wrote:

Hello Neal,

It works like a charm.
thank you very much.

Andreas

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/