finding who owns a file in unix

[jimberger]

Hi all,

Is there a way in perl (like a system call) to return who owns a directory e.g user:group

jim

 

[gkmccone]

This works on a solaris box, so I am guessing it will
work on all Unix like boxes.

It doesn't seem to work on NT



($ownerid, $groupid) = (stat( "/home/gmccone" ))[4,5];
$ownerName = getpwuid($ownerid);
$groupName = getgrgid($groupid);
print "owner: $ownerName , group: $groupName\n";