filter adb logcat

falc.perl

#!/usr/bin/perl -w
# http://newtoypia.blogspot.tw/2015/08/cordova-debug.html
# 徒手除錯 Cordova
$kw = ($ARGV[0] or "console");
while (<STDIN>) {
    if (m#console#i) {
        print "\x1b[30;46m$_\x1b[m";
    } elsif (m#$kw#i) {
        print "\x1b[31m$_\x1b[m";
    } elsif (not m#^[VDIW]/#) {
        print;
    }
}