UNIX for Dummies Questions & Answers

1_a> xxx . 11
Start              A B C D E F            G            H           I                 J
=================================================================================================================
Finish=1           0 0 3 3 3 0 (DISABLED) 0 (DISABLED) 1 (ENABLED) 1 (ENABLED) 1 (ENABLED)

2_a> xxx . 11
Start              C D E F            G            H           I                 J
=================================================================================================================
Finish=1           3 3 3 0 (DISABLED) 1 (DISABLED) 0 (ENABLED) 1 (ENABLED) 0 (ENABLED)

1_a,A,B,C,D,E,F,G,H,I,J
1_a,0,0,3,3,3,0,0,1,1,1 
2_a,C,D,E,F,G,H,I,J
2_a,3,3,3,0,1,0,1,0

awk '
    />/ { split( $1, a, ">" ); sect=a[1]; next; }

    /Start/ {
        s = "";
        printf( "%s ", sect );

        for( i = 2; i <= NF; i++ )
        {
            printf( "%c%s", s, $(i) );
            s = ",";
        }
        printf( "\n" );
        next;
    }

    /Finish/ {
        s = "";
        printf( "%s ", sect );
        for( i = 2; i <= NF; i++ )
        {
            if( substr( $(i), 1, 1 ) != "(" )  #if not a disabled/enabled thing
            {
                printf( "%c%s", s, $(i) );
                s = ",";
            }
        }
        printf( "\n" );
    }
' t.data

awk '
        />/ {
                gsub ( />.*/, X )
                h = $0
        }
        /Start/ {
                gsub ( "Start", X )
                $1 = $1
                s = h OFS $0
        }
        /Finish/ {
                gsub (/Finish=.|\(DISABLED\)|\(ENABLED\)/, X )
                $1 = $1
                t = h OFS $0
                print s RS t
        }
' OFS=, file

1_a,A,B,C,D,E,F,G,H,I,J
1_a,0,0,3,3,3,0,0,1,1,1 
2_a,C,D,E,F,G,H,I,J
2_a,3,3,3,0,1,0,1,0
3_a,A,D,E,F,G,H,I,J
3_a,3,3,3,0,1,0,1,0

x_a,A,B,C,D,E,F,G,H,I,J
1_a,0,0,3,3,3,0,0,1,1,1
2_a,0,0,3,3,3,0,1,0,1,0
3_a,3,0,0,3,3,0,1,0,1,0

1_a,A,BX,C,DYY,E,F,G,H,I,J
1_a,0,0,3,3,3,0,0,1,1,1 
2_a,C,DYY,E,F,G,H,I,J
2_a,3,3,3,0,1,0,1,0
3_a,A,DYY,E,F,G,H,I,J
3_a,3,3,3,0,1,0,1,0
4_a,J
4_a,1

x_a,A,BX,C,DYY,E,F,G,H,I,J
1_a,0,0,3,3,3,0,0,1,1,1
2_a,0,0,3,3,3,0,1,0,1,0
3_a,3,0,0,3,3,0,1,0,1,0
4_a,0,0,0,0,0,0,0,0,0,1

awk '
    />/ {
        split( $1, a, ">" );
        sect_order[sidx++] = a[1];
        next;
    }

    /Start/ {
        split( "", columns, "." );  # delete is not supported in all awk flavours; this deletes values in columns
        for( i = 2; i <= NF; i++ )
        {
            if( length( $(i) ) > maxl )     # for alignment if that is needed
                maxl = length( $(i) );

            if( !header_seen[$(i)]++ )
                header_order[hidx++] = $(i);

            columns[i] = $(i);
            s = ",";
        }
        next;
    }

    /Finish/ {
        j = 0;
        for( i = 2; i <= NF; i++ )
        {
            if( substr( $(i), 1, 1 ) != "(" )
            {
                values[sect,columns[j]] = $(i);
                j++
            }
        }

    }

    END {
        fmt = sprintf( ",%%%dd", maxl );            # for column alignment
        fmth = sprintf( ",%%%ds", maxl );

        printf( "x_a" );                            # print header record
        for( j = 0; j < hidx; j++ )
            printf( fmth, header_order[j] );
        printf( "\n" );

        for( i = 0; i < sidx; i++ )                 # print each section
        {
            sect = sect_order[i];
            printf( "%s", sect );
            for( j = 0; j < hidx; j++ )
                printf( fmt, values[sect,header_order[j]] );
            printf( "\n" );
        }
    }
' t.data

awk '
    />/ {
        split( $1, a, ">" );
        sect_order[sidx++] = a[1];
        next;
    }

    /Start/ {
        split( "", columns, "." );  # delete is not supported in all awk flavours; this deletes values in columns
        for( i = 2; i <= NF; i++ )
        {
            if( !header_seen[$(i)]++ )
                header_order[hidx++] = $(i);

            columns[i] = $(i);
            s = ",";
        }
        next;
    }

    /Finish/ {
        j = 0;
        for( i = 2; i <= NF; i++ )
        {
            if( substr( $(i), 1, 1 ) != "(" )
            {
                values[sect,columns[j]] = $(i);
                j++
            }
        }

    }

    END {
        printf( "x_a" );                            # print header record
        for( j = 0; j < hidx; j++ )
            printf( ",%s", header_order[j] );
        printf( "\n" );

        for( i = 0; i < sidx; i++ )                 # print each section
        {
            sect = sect_order[i];
            printf( "%s", sect );
            for( j = 0; j < hidx; j++ )
                printf( ",%d", values[sect,header_order[j]] );
            printf( "\n" );
        }
    }
' t.data