UNIX for Dummies Questions & Answers

ID|Name|Level|Type|Zip|MAD|Risk|Band|Salesl|Dealer|CID|AType|CValue|LV|HV|DCode|TR|DU|NStartDate|UserRole|WFlag|EOption|PName|NActivationDate|Os|Orig|Cus|OType|ORequired|DType
03| Prog|3||90001,90002,90003,90004-90006,90007,90008|881,866,862-839,828||99-99,88-88,11-19||||REG||||MOQA,MODD,9999,8229,8228,8227,8226||||Confffers||Leased|||FREE-TO-GO-2011,FREE-TO-GO-2012|NMS|new|Acquis,Acquis|mandat,mandat|

ID|Col_Name|Value
03|Name|Prog
03|Level|3
03|Zip|90001
03|Zip|90002
03|Zip|90003
03|Zip|90004-90006
03|Zip|90007
03|Zip|90008
03|MAD|881
03|MAD|866
03|MAD|862-839
03|MAD|828
03|BAND|99-99
03|BAND|88-88
03|BAND|11-19
03|AType|REG
03|DCode|MOQA
03|DCode|MODD
03|DCode|9999
03|DCode|8229
03|DCode|8228
03|DCode|8227
03|DCode|8226
03|UserRole|Confffers
03|EOption|Leased
03|Os|FREE-TO-GO-2011
03|Os|FREE-TO-GO-2012
03|Orig|NMS
03|Cus|new
03|OType|Acquis
03|OType|Acquis
03|ORequired|mandat
03|ORequired|mandat

awk 'BEGIN{FS=OFS="|";print "ID","Col_Name","Value"}!(NR-1){split($0,l,FS);next}{for(o=1;++o<NF;){split($o,_,",");for(O=0;O++<length(_);){print $1,l[o],_[O]}}}' file

/usr/gnu/bin/gawk '
BEGIN{
        FS=OFS="|";
        print "ID","Col_Name","Value"
}
!(NR-1){
        split($0,l,FS);
        next
}
{
        for(o=1;++o<NF;)
        {
                split($o,_,",");
                for(O=0;O++<length(_);)
                {
                        print $1,l[o],_[O]
                }
        }
}' aa

# gawk --version
GNU Awk 3.1.3
Copyright (C) 1989, 1991-2003 Free Software Foundation.

# gawk 'BEGIN{FS=OFS="|";print "ID","Col_Name","Value"}!(NR-1){split($0,l,FS);next}{for(o=1;++o<NF;){split($o,_,",");for(O=0;O++<asort(_);){print $1,l[o],_[O]}}}' file

$ cat script.pl
use warnings;
use strict;
use autodie;

open my $fh, "<", $ARGV[0];

my (%h, @a, @b, $i);

while ( <$fh> ) {
    chomp;
    do { @a = map { $_ } split /\|/; next } if $. == 1;
    %h = map { $a[$i++], $_ || undef } split /\|/;

    print "ID|Col_Name|Value\n";
    my $id = $h{ $a[0] };
    foreach my $c ( @a ) {
        next if $c eq $a[0];
        next unless defined $h{ $c };
        @b = split /,/, $h{ $c };
        print +( map { join("|", $id, $c, $_ . "\n") } @b );
    }
    %h = ();
    undef @b;
    $i = 0;
}

close $fh;
$ perl script.pl infile
(Output supressed)