in reply to Re: How to get group ownership of a file
in thread How to get group ownership of a file

Actually, I meant of the directory, not the file.

This doesn't seem to be right. 

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use warnings;
#use strict;

use CGI qw/:standard/;

print header, start_html("test");

#print test";

my $filename = "/home/name/public_html/test/";

 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks)
           = stat($filename); 

print "permissions for $filename are..<p>";


print <<"END";
dev $dev <br>
ino $ino <br>
mode $mode <br>
nlink $nlink <br>
uid $uid <br>
gid $gid <br>
rdev $rdev <br>
size $size <br>
atime $atime <br>
mtime $mtime <br>
ctime $ctime <br>
blk size $blksize <br>
blocks $blocks

END

[download]
As it returns 
permissions for /home/name/public_html/test/ are..
dev 2053 
ino 6916114 
mode 16877 
nlink 7 
uid 33197 
gid 33200 
rdev 0 
size 4096 
atime 1140992338 
mtime 1140911929 
ctime 1140911929 
blk size 4096 
blocks 8

[download]
It can't be all numbers, right? the group id should be a name of sorts.

Replies are listed 'Best First'.
Re^3: How to get group ownership of a file
by graff (Chancellor) on Feb 26, 2006 at 23:05 UTC
    It can't be all numbers, right?

    On the contrary (for unix-like systems, at least), the uid and gid are always numeric. To get the name (string) associated with a given numeric gid value, you need to grep for that number in /etc/groups (and to get the user login name for a given uid, you look up the uid in /etc/passwd).

[reply]

      Or this:

      perl -e '$groupname=getgrgid("33200");print "groupname: $groupname\n"'

      [download]


      --chargrill 
      $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );

      [download]
[reply]
[d/l]
[select]
        And this for the username: 
        perl -e '$username=getpwuid("33197");print "username: $username\n"'

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom