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();
}
}
|