UNIX for Beginners Questions & Answers

Region	State	City	Office	credit
SE	Georgia	Atlanta	Admin	92
SE	Georgia	Atlanta	HR	45
SE	Georgia	Atlanta	Tech	150
SE	Georgia	Atlanta	Soft	250
MW	Texas	Dallas	Admin	400
MW	Texas	Dallas	Tech	121

Region	State	City	Admin	HR	Tech	Soft
SE	Georgia	Atlanta	92	45	150	250
MW	Texas	Dallas	400	N/A	121	N/A

awk '
        {CAT[$1,$2,$3] = NR
         OFF[$4] = NR
         T[$1,$2,$3,$4] = $5
        }

END     {for (c in CAT) {printf "%s", c
                         for (o in OFF) if (OFF[o]!=1) printf "\t%s", CAT[c]==1?o:T[c,o]?T[c,o]:"N/A"
                         printf RS
                        }
        }
' SUBSEP="\t" file
Region	State	City	Soft	Admin	HR	Tech
MW	Texas	Dallas	N/A	400	N/A	121
SE	Georgia	Atlanta	250	92	45	150

perl -ane 'BEGIN{$lc=0;} if ($lc==0) {@r=@F;$lc++;} else {for $i (1 .. $#r) {print "$F[0]\t$r[$i]\t$F[$i]\n";}$lc=0;@r=();}' sample.txt
SE      State   Georgia
SE      City    Atlanta
SE      Office  Admin
SE      credit  92
SE      Georgia Georgia
SE      Atlanta Atlanta
SE      HR      Tech
SE      45      150
MW      Georgia Texas
MW      Atlanta Dallas
MW      Soft    Admin
MW      250     400

awk: {CAT[$1,$2,$3]=NR OFF[$4]=NR T[$1,$2,$3,$4]=$5} END {for (c in CAT) {printf "%s", c for (o in OFF) if (OFF[o]!=1) printf "\t%s", CAT[c]==1?o:T[c,o]?T[c,o]:"N/A" printf RS}}
awk:                          ^ syntax error
awk: {CAT[$1,$2,$3]=NR OFF[$4]=NR T[$1,$2,$3,$4]=$5} END {for (c in CAT) {printf "%s", c for (o in OFF) if (OFF[o]!=1) printf "\t%s", CAT[c]==1?o:T[c,o]?T[c,o]:"N/A" printf RS}}
awk:                                            ^ syntax error
awk: {CAT[$1,$2,$3]=NR OFF[$4]=NR T[$1,$2,$3,$4]=$5} END {for (c in CAT) {printf "%s", c for (o in OFF) if (OFF[o]!=1) printf "\t%s", CAT[c]==1?o:T[c,o]?T[c,o]:"N/A" printf RS}}
awk:                                                                                     ^ syntax error