Help for this page

Select Code to Download


  1. or download this
    perl -MFile::stat -le'$pv=stat(shift); print "$pv->uid,$pv->gid,$pv->m
+ode"' /dir/filename
  2. or download this
    perl -le'$,=","; print((stat shift)[4,5,2])' /dir/filename
  3. or download this
    perl -e'printf "%s,%s,%04o\n", (stat shift)[4,5,2]' /dir/filename
  4. or download this
    perl -e'printf "%s:%s,%s,%04o\n", $_, (stat)[4,5,2] for @ARGV' file1 f
+ile2