blob: 9d645d68546b7efa8d2ec76dc835a3ac79f02ef8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl -w
use strict;
while (my $l = <STDIN>) {
chomp($l);
#"15:39:37 l1_tch.c : Meas Rpt: Serv RXLEV=21,Ncell RXLEV=0"
#"15:39:30 l1_send.c : Serving RXQUAL: FULL=0 SUB=0 DTX=0"
if ($l =~ /^\d+:\d+:\d+\s+l1_send\.c\s+: Serving RXQUAL: FULL=(\d+) SUB=(\d+).*/) {
my $rxlev = $1;
if ($rxlev >= 3) {
# enable red background and black foreground */
printf "\033[30;41m";
}
printf("%s", $l);
printf("\033[0m\n");
}
}
|
