Re: Perl one liner and stat function

stat only returns an object when File::stat is used.

perl -MFile::stat -le'$pv=stat(shift); print "$pv->uid,$pv->gid,$pv->m
+ode"' /dir/filename
[download]

But it would be shorter to use the indexes:

perl -le'$,=","; print((stat shift)[4,5,2])' /dir/filename
[download]

It makes more sense to display the permissions in octal:

perl -e'printf "%s,%s,%04o\n", (stat shift)[4,5,2]' /dir/filename
[download]

Finally, to process multiple arguments at once:

perl -e'printf "%s:%s,%s,%04o\n", $_, (stat)[4,5,2] for @ARGV' file1 f
+ile2
[download]

Update: Oops, the first one won't work because the method calls are in a string literal.

Comment on Re: Perl one liner and stat function Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl one liner and stat function by csarid (Sexton) on Mar 24, 2009 at 00:47 UTC
Thanks for the help ikegami -- for all the variations on the solution. It's amazing how many different ways one can approach this once you have such a great handle on the deep inner workings of the language... not sure how you "PerlMonks" do it.. it's been tough for me.	[reply]
Re^3: Perl one liner and stat function by Anonymous Monk on Mar 24, 2009 at 02:30 UTC
By example :) perldoc -f stat `use File::stat; $sb = stat($filename); printf "File is %s, size is %s, perm %04o, mtime %s\n", $filename, $sb->size, $sb->mode & 07777, scalar localtime $sb->mtime;` [download]	[reply] [d/l]