Shell Programming and Scripting

original data

X	A
X	B
Y	A
Y	C
Z	B
Z	C

desired output
	A	B	C
X	1	1	0
Y	1	0	1
Z	0	1	1

nawk '{a[$1,$2]++;r[$1];c[$2]}END {for(ci in c) printf OFS ci;print "";for (ri in r) {printf ri; for (ci in c) {idx=ri SUBSEP ci;printf OFS ((idx in a)?a[idx]:0)}print ""}}' OFS='\t' myFile

#!/usr/bin/perl

while (<DATA>) {
@a=split(/\s+/);
unless (exists $col2{$a[1]}) {$col2{$a[1]}++;}
$b{$a[0]}=$b{$a[0]}." ".$a[1];
}

printf "\t";
printf "%s ",$_ foreach (sort(keys(%col2)));
print "\n";

$sc=keys %col2;
foreach (sort(keys(%b))){
printf "%s\t","$_";
   undef @fld;
   @fld=split(/\s+/,$b{$_});
        $lst=1;
        foreach (sort(keys(%col2))) {
        $cl=$_;
        for($i=$lst;$i<=$sc;$i++) {
        if ($cl eq $fld[$i]) {printf "%s ","1";$lst=$i+1;last;} else {printf "%s ","0";$lst=$i;last;}
        }
        }
        printf "\n";
}

__DATA__
X       A
X       B
Y       A
Y       C
Z       B
Z       C
P       A
Q       A