ITEMAN Kill High Memory Usage

kill-high-memory-usage

#!/usr/bin/env perl
# ITEMAN Kill High Memory Usage - A command to kill processes with high memory usage
# Copyright (c) 2010 ITEMAN, Inc. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.

if (@ARGV < 2) {
    print_usage();
    exit 1;
}

my $command_regex = $ARGV[0];
my $memory_threshold = $ARGV[1];

my @output = split /\n/, `ps -eo pid,rss,cmd`;
foreach my $process (@output) {
    $process =~ s/^\s+//;
    my ($pid, $rss, @cmd) = split /\s+/, $process;
    my $cmd = join(' ', @cmd);
    next unless $cmd =~ m!$command_regex!;
    next unless $rss >= $memory_threshold;
    my $result = kill 'TERM', $pid;
    if ($result) {
        print "Succeeded to kill process [ PID: $pid, RSS: $rss, COMMAND: $cmd ]\n";
    } else {
        print "Failed to kill process [ PID: $pid, RSS: $rss, COMMAND: $cmd ]\n";
    }
}

exit 0;

sub print_usage {
    print "USAGE: kill-high-memory-usage COMMAND_REGEX MEMORY_THRESHOLD\n";
}

# Local Variables:
# mode: perl
# coding: utf-8
# tab-width: 4
# indent-tabs-mode: nil
# End: