forked from amazingfate/loongoffice
481d25c71a
We use arbitrary tags when logging stuff in our code so we can't use the built-in filtering of adb logcat. Change-Id: I2d607b86bde975c5cbdd17adc22d0fc15076be51
20 lines
423 B
Perl
Executable File
20 lines
423 B
Perl
Executable File
#!/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 $_;
|
|
}
|
|
}
|