> > thru the stat() function.
> > http://www.perldoc.com/perl5.6.1/pod/func/stat.html
> >
>
> anything BUT what i need above.
Sure, you want these two elements:
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
alester@flr4[~/play]$ more owner
!/usr/bin/perl -w
use strict;
for my $filename ( @ARGV ) {
my (undef,undef,undef,undef,$uid,$gid) = stat $filename;
printf( "%8s %8s %s\n", $uid, $gid, $filename );
}
If you want to translate the uid and gid to strings, look into getpwent
and getgrent.
xoxo,
Andy
--
'Andy Lester [EMAIL PROTECTED]
Programmer/author petdance.com
Daddy parsley.org/quinn Jk'=~/.+/s;print((split//,$&)
[unpack'C*',"n2]3%+>\"34.'%&.'^%4+!o.'"])
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
