18 lines
465 B
Perl
Executable File
18 lines
465 B
Perl
Executable File
#!/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");
|
|
}
|
|
}
|