Shell Programming and Scripting

#!/usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

strip_file(); 
 
sub strip_file {
     
    my $filename = 'text.txt';
    open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";    
        
    my $last = <$fh>; # read ahead 1 line
    while (<$fh>) {
        chomp;
        my $cur = $_;
               
        if ( $last =~ /\@/ ) {             
            print $last;
        } elsif ( $last =~ /(.*).*=.*{(.*)}/i ) {
            my $key = $1;
            my $val = $2;
            
            if ( $cur =~ /B-1.*=.*{(.*)}?(.*)}/i ) {
                print "$key = {$val}}" . "\n\n";
                $cur = '';
            } elsif ( $cur ne '') {                
                print $last . "\n"                
            }            
        }
        $last = $cur;
    }
}

nawk ' $0 ~ /^[ \t]+Abs.*/  {
                next
} $0 !~ /^[ \t]+B-1.*/ {
                p = (p=="")?RS $0:p RS $0
} $0 ~ /^[ \t]+B-1.*/ {
                sub(/,$/,"}",p)
                print p
                p = ""
} ' filename

nawk '!/^[ \t]+Abs/ && !/^[ \t]+B-1/' filename

!/^[ \t]+Abs/ && !/^[ \t]+B-1/

awk -f script.awk your_input_file

$0 ~ /^[ \t]+Abs.*/  {
                next
} $0 !~ /^[ \t]+B-1.*/ {
                p = (p=="")?RS $0:p RS $0
} $0 ~ /^[ \t]+B-1.*/ {
                sub(/,$/,"}",p)
                print p
                p = ""
}

awk -f script.awk your_input_file