I got tired of finding gigantic tumor-like growths left over from the prior sysadmin's lack of filesystem caretaking, so I wrote this little script. When invoked, it sniffs around for bloated files and emails me a list of the main offenders. In this case, it looks for the largest 100 files above 4MB (4096K, ala 8192 blocks).. Feel free to tweak to your hearts delight. 
#!/usr/bin/perl
###
### BloatDetector.pl v0.1 written 031405:1749 by BJP
###
### Builds a report showing the top 100 biggest-sized files, excluding
### oracle stuff, backups, etc...  Thats what the back|archiv|ora excl
+usion stuff does. :)
###

use Mail::Sendmail;

$reportFile="/tmp/bloatdetector.tmp";
$recipient="youremailaddress\@goes.here.com";
chomp($hostName=`hostname`); # $HOSTNAME is non-ubiquitous. Ugh.
$sender=$ENV{"USER"}."\@".$hostName;
chomp($dateStamp=`date`);

print "BloatDetector: Recipient is [$recipient]\n";
print "BloatDetector: Sender is    [$sender]\n";
print "BloatDetector: Scanning files..This may take a while.\n";

@bloatedFiles = `find / -depth -size +8192 -ls| grep -i -v -E \"back|a
+rchiv|ora?\"| sort -r -n +6 | cut -d" " -f2- | head -n100`;

open(FILE,"+>>$reportFile") or die ("BloatDetector: Can't open tempora
+ry logfile. My life was short, yet sweet -- grieve not for me, my fri
+end.");

print "BloatDetector: Preparing report..\n";

print FILE "\n\n\nHere's the latest BloatDetector report from $hostNam
+e..\n\n";
 
foreach $line (@bloatedFiles)
{
        print FILE "$line";
}

chomp($endTime=`date`);

print FILE "\n\n";
print FILE "Time invoked   : $dateStamp\n";
print FILE "Time completed : $endTime";
close(FILE);

open(REPORT,$reportFile);
@report = <REPORT>;
chomp(@report);
close(REPORT);

%mail=( To      => $recipient,
        From    => $sender,
        Subject => "BloatDetector Results for ".$dateStamp." from ".$s
+ender,
        Message => join("\n",@report));

print "BloatDetector: Sending report..\n";

sendmail(%mail); # a-la-peanut-butter-sandwiches!
print "BloatDetector: Exiting..\n";

unlink $reportFile;

[download]

In reply to Bloated File Detector for Unix Boxes by bpoag

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.