Shell Programming and Scripting

BEGIN{FS=","}
NR==1 {
    for(i=1;i<=NF;i++) {
        if($i~/NAME/ || $i=="STLC") {
            cols[i]=i
            head = head==""? $i : head","$i
        }
    } 
    print head
    next
}
{
    for (item in cols) {
        row = row==""? $item : row","$item
    }
    print row
    row = ""
}

for file in `ls *.csv`
do
    awk -f names.awk $file > ${file%.*}-new.${file#*.}
done