#!/usr/bin/perl
use strict; # https://perlmonks.org/?node_id=11106985
use warnings;
<DATA>;
my @sums = (0) x 10;
print "Number", ' ' x 18, map(" pat$_", 0 .. 9), "\n";
while( <DATA> )
{
s/(?<=,(0|1),)(0|1)/ ($1 ^ 0 ^ $2) * 0.5 /ge;
s/Q,1/Q,0/;
my @values = (split /,|\n/)[-10 .. -1];
$sums[$_] += $values[$_] for 0 .. 9;
s/Q/Q /;
s/,([\d.]+)/ sprintf " %-4g", $1 /ge;
print;
}
print my $pound = "#" x 78 . "\n";
printf "SUM Of weights " . " %-4g" x 10 . "\n", @sums;
print $pound;
__DATA__
PATTERN,pat0,pat1,pat2,pat3,pat4,pat5,pat6,pat7,pat8,pat9
U_TOP_LOGIC/ipre_reg_0/Q,0,0,1,1,0,0,1,1,0,0
U_TOP_LOGIC/ipre_reg_6/Q,1,1,0,0,1,1,0,0,1,1
U_TOP_LOGIC/pre_reck_1/Q,1,1,0,1,1,0,0,1,1,0
U_TOP_LOGIC/pre_reg_10/Q,0,1,0,1,1,0,0,1,1,1
U_TOP_LOGIC/pre_reg_11/Q,0,0,1,0,1,0,0,1,0,1
Outputs:
Number pat0 pat1 pat2 pat3 pat4 pat5 pat6 pat7 pat8
+pat9
U_TOP_LOGIC/ipre_reg_0/Q 0 0 0.5 0 0.5 0 0.5 0 0.5
+ 0
U_TOP_LOGIC/ipre_reg_6/Q 0 0 0.5 0 0.5 0 0.5 0 0.5
+ 0
U_TOP_LOGIC/pre_reck_1/Q 0 0 0.5 0.5 0 0.5 0 0.5 0
+ 0.5
U_TOP_LOGIC/pre_reg_10/Q 0 0.5 0.5 0.5 0 0.5 0 0.5 0
+ 0
U_TOP_LOGIC/pre_reg_11/Q 0 0 0.5 0.5 0.5 0.5 0 0.5 0.5
+ 0.5
######################################################################
+########
SUM Of weights 0 0.5 2.5 1.5 1.5 1.5 1 1.5 1.5
+ 1
######################################################################
+########
Some alignments have been tweaked, and a math error fixed.