Re: File/Dir Attributes

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\

Comment on Re: File/Dir Attributes Select or Download Code

Replies are listed 'Best First'.
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]