HPE Community
Operating System - Linux
1753377 Members
5138 Online
108792 Solutions
New Discussion

Perl/ksh script to find files used by users...

 
SOLVED
Go to solution
jmckinzie
Super Advisor

‎01-31-2008 08:29 AM

‎01-31-2008 08:29 AM

Re: Perl/ksh script to find files used by users...

used:

perl -MFile::Find -e'find(sub{-f and push@{$f{-s$_}},[$File::Find::name,(stat$_)[4],(stat".")[4]]},@ARGV);for$s(sort{$b<=>$a}keys%f){printf"%-8s %9d %s\n",defined getpwuid$_->[1]?"":getpwuid($_->[2])||$_->[2],$s,$_->[0] for sort@{$f{$s}}}' /home11

Thanks a bunch.
0 Kudos
The opinions expressed above are the personal opinions of the authors, not of Hewlett Packard Enterprise. By using this site, you accept the Terms of Use and Rules of Participation.