$mode->{ $l[11] } = [ $l[12], $l[13] ] if $l[13];
#warn "## l = ",dump(@l) if $i > 2 && $i < 5;
}
-
+
+
+ $line = join('|', @l);
+ $line .= "|" unless $line =~ m/\+$/;
+
if ( $last[$i] && $line ne $last[$i] ) {
+ $last[$i] = $line; # save before highlight
foreach my $i ( 0 .. $#l ) {
$l[$i] = "\e[33;7;1m$l[$i]\e[0m" if $l[$i] ne $o[$i];
}
+ $line = join('|', @l);
+ $line .= "|" unless $line =~ m/\+$/;
+ } else {
+ $last[$i] = $line;
}
- $last[$i] = $line;
+
$i++;
# re-create from modified data
- $line = join('|', @l);
- $line .= "|" unless $line =~ m/\+$/;
print "$line\n";
}