blob: a97137b724935d89d1702b9654b5f3721f49a807 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl -w
use strict;
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!^[EIW]/[^(]+\( *$pid\)!) {
print $_;
}
}
|
