common_line_filter()
{
perl -ne 'if (/.*:(.*)/) {
- if ( "$last_line" ne "$1" ) { print $_; $first_match=1; }
+ if ( "$last_line" ne "$1" ) { print "$_"; $first_match=1; }
elsif ( $first_match==1 ) { print "*\n"; $first_match=0; }
$last_line="$1";
}
else {
- print $_
+ print $_; $last_line=$_;
}'
}