File/Dir Attributes

onegative has asked for the wisdom of the Perl Monks concerning the following question:

Please forgive my ignorance O' Great Monks, But is there a function or Module that will give me directory attributes such as owner,UID/GID/ect.. without having to issue system commands to extract the information instead of the below code??? Many thanks O' Magnificant Ones

#!/usr/bin/perl -w
#pass a directory to script

use strict;

my $ownergroup=`ls -ld $ARGV[0]\| awk '{print \$3":"\$4}'`;

print $ownergroup;
[download]

Comment on File/Dir Attributes Download Code

Replies are listed 'Best First'.
Re: File/Dir Attributes by gellyfish (Monsignor) on Jun 21, 2005 at 18:53 UTC
Yep, you want to look at the `stat` builtin function: `my $filename = $ARGV[0]; + my ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks ) = stat($filename); + print "UID: $uid\nGID: $gid\n";` [download] /J\	[reply] [d/l] [select]
Re^2: File/Dir Attributes by onegative (Scribe) on Jun 21, 2005 at 19:01 UTC
Very KEWL!!! Thanks a ton, that just made it so much easier to do what I am wanting to do. Thanks again gellyfish, You ROCK!	[reply]
Re^3: File/Dir Attributes by gellyfish (Monsignor) on Jun 21, 2005 at 19:09 UTC
I showed all of the values returned from `stat` for didactic purposes - if you just want the UID and GID you would be better to use an array slice: `my ($uid,$gid) = (stat($filename))[4,5];` [download] /J\	[reply] [d/l] [select]
Re^2: File/Dir Attributes by shekarkcb (Beadle) on Aug 03, 2009 at 15:18 UTC
Hi Is there anything which equals to Unix 'file' command? Thanks, ShekarKCB	[reply]
Re^3: File/Dir Attributes (find) by toolic (Bishop) on Aug 03, 2009 at 15:27 UTC
Is there anything which equals to Unix 'file' command? There is a Perl core module File::Find which has a `find` function. There is also a CPAN module, File::Find::Rule, which, in my opinion, has a simpler interface than File::Find. This may also be of use: UNIX 'command' equivalents in Perl	[reply] [d/l]
Re: File/Dir Attributes by Xaositect (Friar) on Jun 21, 2005 at 18:56 UTC
The stat() builtin function is what you're looking for. You may also be interested in the -X type functions which test specific bits of the stat info. Xaositect - Whitepages.com	[reply]


We don't bite newbies here... much
	PerlMonks