#!/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

[download]

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   
######################################################################
+########

[download]

Some alignments have been tweaked, and a math error fixed.

In reply to Re: Perl script for the post processing of one CSV file by tybalt89
in thread Perl script for the post processing of one CSV file by kshitij

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.