Shell Programming and Scripting

 
1, D|B|A|C 
2, C|A|B
3, E|A|F|G|H|D|B|C
4, A|B|D|C|F

 
1, A|B|C|D 
2, A|B|C
3, A|B|C|D|E|F|G|H
4, A|B|D|C|F

 
1, D|B|A|C 
2, C|A|B
3, E|A|F|G|H|D|B|C
4, A|B|D|C|F

 
1, A|B|C|D 
2, A|B|C
3, A|B|C|D|E|F|G|H
4, A|B|D|C|F

perl -ane 'print "$F[0] ";$,="|";print sort split /\|/, $F[1];print "\n"' file

perl -e 'while(<>){chomp;
@record=split(/\s+/,$_);
@fields=split(/|/,$record[1]);
@sorted_fields=sort(@fields);
print "$record[0] " .join("|",@sorted_fields)."\n";}' tmp.dat

awk '{ split($2, A, "|"); asort(A); $2=""; for(N=1; A[N]; N++) $2=$2"|"A[N]; print $1 " " substr($2, 2) }' filename

awk '{ split($2, A, "|");
        asort(A);
        $2="";
        for(N=1; A[N]; N++) $2=$2"|"A[N];
        print $1 " " substr($2, 2) }' filename