summaryrefslogtreecommitdiffstats
path: root/bin/lolcat
blob: 27bb32624e084efafeac07785d3f9001efe41d63 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w

use strict;
use IO::Handle;

die "Usage: $0 identifier\n" .
    "(identifier is for example org.libreoffice)" unless $#ARGV == 0;

my $id = $ARGV[0];

open (LOGCAT, "adb logcat |") || die "Could not open pipe from adb logcat";
my $pid = '';

while (<LOGCAT>) {
  if (m!^I/ActivityManager\( *\d+\): Start proc $id for activity .*: pid=(\d+)!) {
    $pid = $1;
  } elsif (m!^[EIWD]/[^(]+\( *$pid\)!) {
    print $_;
    STDOUT->flush();
  }
}