[PLUG] List ten biggest files with du

Sandy Herring sandy at herring.org
Mon Oct 13 21:03:21 UTC 2008


Circa 13:54:52 on Mon, 13 Oct 2008, Fred James wrote: 
> chris (fool) mccraw wrote:
> > On Mon, Oct 13, 2008 at 13:24, John Jason Jordan <johnxj at comcast.net> wrote:
> >   
> >> This ought to be a piece of cake, but I can't get it to work.
[...snip...]

Long ago Randal published the following perl script which does the job
handily...

[sherring at pisces ~]$ cat scripts/findbig
#!/usr/bin/perl
require 'getopts.pl';
require 'find.pl';
&Getopts('n:');
$n = defined $opt_n ? $opt_n : 20;
@ARGV = ($ENV{'HOME'}) unless @ARGV;
&find(@ARGV);
sub wanted {
        $size{$name} = -s _ if not -l and -f _;
}
@sorted = sort { $size{$b} <=> $size{$a} } keys %size;
for (@sorted[0..($n-1)]) {
        printf
            "%40s, %5dK, last accessed %3d days ago\n",
            $_ , (-s)/1024, -A _;
}

e.g.

[sherring at pisces ~]$ findbig n10 /var
                /var/spool/mail/sherring, 382975K, last accessed   0 days ago
                   /var/lib/rpm/Packages, 49892K, last accessed   0 days ago
                   /var/lib/rpm/Filemd5s, 10160K, last accessed  12 days ago
                        /var/log/lastlog,  6454K, last accessed   0 days ago
/var/cache/yum/base/primary.xml.gz.sqlite,  5956K, last accessed   9 days ago
                  /var/lib/rpm/Basenames,  5532K, last accessed  12 days ago
                   /var/lib/rpm/Dirnames,  3084K, last accessed  12 days ago
     /var/www/html/gallery-backup.tar.gz,  2050K, last accessed 980 days ago
/var/cache/yum/updates/primary.xml.gz.sqlite,  1583K, last accessed   9 days ago
                   /var/lib/rpm/__db.002,  1288K, last accessed   0 days ago
   /var/www/html/bluezone/docs/admin.chm,  1286K, last accessed 980 days ago
    /var/www/html/bluezone/cabs/bzvt.cab,  1066K, last accessed 980 days ago
 /var/www/html/bluezone/cabs/bzvt.cab.35,  1053K, last accessed 980 days ago
                         /var/log/wtmp.1,  1027K, last accessed 109 days ago
    /var/www/html/bluezone/cabs/bzmd.cab,   936K, last accessed 980 days ago
    /var/www/html/bluezone/cabs/bzad.cab,   896K, last accessed 980 days ago
                   /var/cache/man/whatis,   894K, last accessed   0 days ago
      /var/cache/yum/base/primary.xml.gz,   852K, last accessed   9 days ago
        /var/www/html/bluezone/mfc42.exe,   645K, last accessed 980 days ago
/var/cache/yum/extras/primary.xml.gz.sqlite,   629K, last accessed   9 days ago

Sandy
-- 
Sandy Herring, RHCE                        o              sandy at herring.org
Peck of Pickled Pisces               __  o               http://herring.org/
*nix || Web authoring questions?  |\/ o\  o  http://herring.org/finger.html
->http://herring.org/techie.html  |/\__/     http://herring.org/pub-key.asc



More information about the PLUG mailing list