UNIX for Dummies Questions & Answers

I am trying to print columns from a table whose name (header) matches a certain string.

E.g.,

patient1001 patient1002 patient2005 patient3005 patient4001
0 0 0 0 0
2 9 2 8 3
2 7 3 0 2

Say I want to print columns whose names end with "01"

patient1001 patient4001
0 0
2 3
2 2

I tried:

awk '{ for (i=1; i<=NF; i++) {if ($i ~ /01$/); print $i; }}' file > file.txt

but that failed. Thanks!

Code:

awk 'NR==1 {
            for (i=1; i<=NF; i++) { if ($i~/*01$/) {arr[i]=i} 
            next
       } 
       { for(j=1; j<=NF; j++) { 
            if(j in arr) {printf("%s ", $j)}
          }
          print ""
       } ' inputfilename

No, this is not working. It gives me the following error:
awk: cmd. line:9: }
awk: cmd. line:9: ^ unexpected newline or end of string


jim mcnamara, is it possible for you to correct it?

Jim, thanks very much for the reply. However, I don't get anything returned if I run this on my test.txt file (as in the first post, space delimited). I also got an error in the pattern matching in the first line--so below I've put the entire header that I wanted to search for.

awk 'NR==1 {
for (i=1; i<=NF; i++) { if ($i~/patient1001/) {arr[i]=i}
next
}
{ for(j=1; j<=NF; j++) {
if(j in arr) {printf("%s ", $j)}
}
print ""
}} ' test.txt