Perl one liner and stat function

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

Replies are listed 'Best First'.
Re: Perl one liner and stat function by ikegami (Patriarch) on Mar 23, 2009 at 22:59 UTC
`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.	[reply] [d/l] [select]
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]
Re: Perl one liner and stat function by samtregar (Abbot) on Mar 23, 2009 at 22:10 UTC
There's nothing about that line of code that works. The stat call is broken by the lack of quotes around /dir/filename. Then the rest is broken because stat() doesn't return an object, it returns an array. And even if it did return an object, the method calls wouldn't work because they're in the middle of a quoted string! Here's a version that works: `perl -le '@pv=stat("/dir/filename"); printf "%d,%d,%04o", $pv[4],$pv[5],$pv[2] & 07777;'` The mode stuff is tricky - I took that bit-mask and format stuff from stat. -sam	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks