test/csvodd.awk


1
2
3
4
5
6
7
8
9
10
11
12
13

# Show the string contents. Make begin, end, CR and LN visible.
function show(str) {
    gsub("\r", "\\r", str)
    gsub("\n", "\\n", str)
    printf("<%s>", str)
}

# Dump the current record
{
    show($0); show(RT); print ""
    for (k=1; k<=NF; k++) show($k); print ""
}