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 ""
}
|