スレッドダンプからRUNNABLEなものだけ抽出する

td2json.pl

#!/usr/bin/perl -w
#usage: perl td2json.pl < jvm-thread-dump.log

use strict;
use warnings;
use JSON;

my $buf = '';
my $row = 0;
my $thread_info = {};
my @threads = ();
while(<>) {
    s/\r//;
    s/\n//;
    $buf .= $_ . "\n";
    $row++;
    if( $_ eq '') {
        $thread_info->{ALL} = $buf;
        push @threads, $thread_info;
        $buf = '';
        $thread_info = {};
        $row = 0;
    }
    elsif ( $row == 1 ) {
        tr/ //;
        $thread_info->{THREAD_SUMMARY} = $_;
    }
    elsif ( $row == 2 ) {
        $thread_info->{THREAD_STATE} = $1 if (m/java\.lang\.Thread\.State: ([A-Z]+)/);
    }
    elsif ( $row == 3 ) {
        $thread_info->{STACK_TOP} = $1 if (m/^\s+at\s([a-zA-Z0-9_.\-]+)/);
    }
}

print encode_json(\@threads);

td_filter.pl

#!/usr/bin/perl -w
use strict;
use warnings;
use JSON;

#available keys: STACK_TOP, THREAD_SUMMARY, THREAD_STATE, ALL
my $filter_key = "THREAD_STATE";

#avaiable state: RUNNABLE, WAITING, BLOCKED
my $filter_value = "RUNNABLE";
my $print_key = "STACK_TOP";

my $buf = '';
while(<>) {
    $buf .= $_;
}

map {
    print $_->{$print_key} . "\n";
}
grep {
    $_->{$filter_key} =~ m/$filter_value/;
} @{decode_json($buf)};

usage.md

$perl td2json.pl < thread-dump.log | perl td_filter.pl | sort

perlｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!

やはり頼れるPerl

perl(・∀・)ｲｲ!!

こう、さっとジョブチェンジできるのがうらやましす