Extrahujte konkrétní pole z textového souboru

Toto je podobné odpovědi MvG, ale nevyžaduje gawk 4 a tedy používá -F jak je navrženo v této odpovědi. Také ukazuje techniku ​​pro výpis požadovaných polí a iteraci seznamu. To může usnadnit údržbu kódu, pokud existuje velký seznam.

#!/usr/bin/awk -f
BEGIN {
    col_list = "colour shape size" # continuing with as many as desired for output
    num_cols = split(col_list, cols)
    FS = OFS = ","
}

NR==1 {
    for (i = 1; i <= NF; i++) {
        p[$i] = i # remember column for name
    }
    # next # enable this line to suppress headers.
}

{
    delim = ""
    for (i = 1; i <= num_cols; i++) {
        printf "%s%s", delim, $p[cols[i]]
        delim = OFS
    }
    printf "\n"
}