Shell Programming and Scripting

$var wire 1 b a[0] $end
$var wire 1 c a[1] $end
$var wire 1 d a[2] $end
$var wire 1 e a[3] $end
$var wire 1 f b[0] $end
$var wire 1 g b[1] $end
$var wire 1 h b[2] $end
$var wire 1 i b[3] $end

$var wire 1 e a[3] $end
$var wire 1 d a[2] $end
$var wire 1 c a[1] $end
$var wire 1 b a[0] $end
$var wire 1 i b[3] $end
$var wire 1 h b[2] $end
$var wire 1 g b[1] $end
$var wire 1 f b[0] $end

use warnings;

my $filename = "adder_copy2.dmp";
if (open(IN,"<$filename"))
{
 while (<IN>) 
 {
  if (/\[\d\]/)
   {   print "$_";
#Just prints out the lines that have array bits or vector bits so far
#open (OUT, ">$filename");
#print (OUT ;
  }

#       }
#else
#{ print "no word"; }
}

}
else
{
die("Cant open the file:$!");
}

close(IN);
close(OUT);

$var wire 1 e a[3] $end
$var wire 1 d a[2] $end
$var wire 1 c a[1] $end
$var wire 1 b a[0] $end
$var wire 1 i b[3] $end
$var wire 1 h b[2] $end
$var wire 1 g b[1] $end
$var wire 1 f b[0] $end

sort -r -k 5.1,5.1 -k 5.3,5.3 < input > output

$var ......   x[0] $end
"   "           x[1] $end
...
...
$var ....... x[n] $end

$var ....... x[n] $end
....
...            x[1] $end
$var .......x [0] $end

$date
    Mon Aug 20 12:40:08 2012
$end
$version
    version 9.5-hbe-sp-mm
$end
$timescale
    1ps
$end
$scope module MAIN $end
$var wire 1 a 0 $end
$var wire 1 b a[0] $end
$var wire 1 c a[1] $end
$var wire 1 d a[2] $end
$var wire 1 e a[3] $end
$var wire 1 f b[0] $end
$var wire 1 g b[1] $end
$var wire 1 h b[2] $end
$var wire 1 i b[3] $end
$var wire 1 j cin $end
$var wire 1 k cout $end
$var wire 1 l gnd $end
$var wire 1 m gnd! $end
$var wire 1 n ground $end
$var wire 1 o sum[0] $end
$var wire 1 p sum[1] $end
$var wire 1 q sum[2] $end
$var wire 1 r sum[3] $end
$var wire 1 s vdd $end
$scope module x_adder $end
$var wire 1 b a[0] $end
$var wire 1 c a[1] $end
$var wire 1 d a[2] $end
$var wire 1 e a[3] $end
$var wire 1 f b[0] $end
$var wire 1 g b[1] $end
$var wire 1 h b[2] $end
$var wire 1 i b[3] $end
$var wire 1 j cin $end
$var wire 1 k cout $end
$var wire 1 l gnd $end
$var wire 1 t n_0 $end
$var wire 1 u n_1 $end
$var wire 1 v n_10 $end
$var wire 1 w n_11 $end
$var wire 1 x n_13 $end
$var wire 1 y n_15 $end