GNU Awk (gawk) script to convert an Excel-generated CSV file to a simple XML format

csv-to-xml.awk

BEGIN {
  printf "<?xml version=\"1.0\" encoding=\"US-ASCII\" standalone=\"yes\"?>\n"
  printf "<file xmlns=\"http://example.org/csv-to-xml\">\n"
  FPAT = "[^,]*|(\"([^\"]|(\"\"))*\")"
  RS = "\n"
}

{
  printf "<row>\n"
  for (i = 1; i <= NF; i++) {
    if (match($i, /^"(.*)"$/, array))
      $i = array[1]
    gsub(/&/, "\\&amp;", $i)
    gsub(/</, "\\&lt;", $i)
    gsub(/>/, "\\&gt;", $i)
    gsub(/""/, "\\&quot;", $i)
    gsub(/'/, "\\&apos;", $i)
    printf("  <column>%s</column>\n", $i)
  }
  printf "</row>\n"
}

END {
  printf "</file>\n"
}