owner of a file

[Sara]

This node falls below the community's threshold of quality. You may see it by logging in.

[tommyw]

perldoc -f -X returns...
-o File is owned by effective uid
-O File is owned by real uid.

--
Tommy
Too stupid to live.
Too stubborn to die.

[grummerX]

-O is a file test operator -- it will return either a 1 or "" (or undefined if the file doesn't exist), not the actual UID.

Update:
/me is far too hasty. tommyw is right, this does suit the original question.

-- grummerX

[tommyw]

What? You mean like the original question asked?

--
Tommy
Too stupid to live.
Too stubborn to die.

[hacker]

Something like:

use strict;
use File::stat;

my $file = $0;
my ($st, $uid, $gid);

if (($st = stat ($file))) {
        $uid = $st->uid;
        $gid = $st->gid;
        print "Owner = $uid,  Group = $gid, File = $file\n";
} else {
        print "Errors were found on $file\n";
}