23 lines
448 B
Awk
23 lines
448 B
Awk
#!/usr/bin/awk -f
|
|
BEGIN {
|
|
FS=","
|
|
print "<table>"
|
|
}
|
|
|
|
{
|
|
gsub(/</, "\\<")
|
|
gsub(/>/, "\\>")
|
|
gsub(/&/, "\\>")
|
|
print "\t<tr>"
|
|
for(f = 1; f <= NF; f++) {
|
|
if(NR == 1 && header) {
|
|
printf "\t\t<th>%s</th>\n", $f
|
|
}
|
|
else printf "\t\t<td>%s</td>\n", $f
|
|
}
|
|
print "\t</tr>"
|
|
}
|
|
|
|
END {
|
|
print "</table>"
|
|
}
|