File: lolcat

package info (click to toggle)
libreoffice 1:6.1.5-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 2,699,584 kB
  • sloc: cpp: 4,078,558; xml: 324,485; java: 281,935; python: 48,236; ansic: 36,476; perl: 32,383; sh: 13,671; yacc: 10,820; makefile: 9,085; cs: 6,600; lex: 2,184; objc: 1,904; awk: 978; pascal: 949; asm: 866; php: 79; csh: 20; sed: 5
file content (21 lines) | stat: -rwxr-xr-x 461 bytes parent folder | download | duplicates (10)
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();
  }
}