Delete inactive Tomcat log files.

logcrusher.pl

#!/usr/bin/perl
# Delete inactive log files. 

use strict;
use warnings;

my $dir = '/opt/tomcat6/logs';

# Files which are open
my %open;
open LSOF, "lsof -Fn $dir/* |";
$open{$_} = 1 for map { m/n(\/.*)/g } <LSOF>;
close LSOF;

# Files which have not been modified in an hour
my $inactive = time - (60 * 60);

my $bytes = 0;

for my $file (<$dir/*>) {
    next if (stat($file))[9] >= $inactive;
    next if $open{$file};
    $bytes += (stat($file))[7];
    unlink $file;
}

print "Freed $bytes bytes.\n";