WJG (14/11/21)
Needed to find a reliable way of extracting values from a largish XML database (48Mb). This was the quickest and simplest way of solving the problem. The sample data was obtained from https://www.w3schools.com/xml/cd_catalog.xml.
======
<company>DECCA</company>
<price>9.90</price>
<year>1991</year>
</cd>
<cd>
<title>The dock of the bay</title>
<artist>Otis Redding</artist>
<country>USA</country>
<company>Stax Records</company>
<price>7.90</price>
<year>1968</year>
</cd>
<cd>
<title>Picture book</title>
<artist>Simply Red</artist>
<country>EU</country>
<company>Elektra</company>
<price>7.20</price>
<year>1985</year>
</cd>
<cd>
<title>Red</title>
<artist>The Communards</artist>
<country>UK</country>
<company>London</company>
<price>7.80</price>
<year>1987</year>
</cd>
<cd>
<title>Unchain my heart</title>
<artist>Joe Cocker</artist>
<country>USA</country>
<company>EMI</company>
<price>8.20</price>
<year>1987</year>
</cd>
</catalog>
======
======
# !/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
package require tdom
package require json
set fp [open cd_catalog.xml r]
set XML [read $fp]
close $fp
## Convert set XML formatted data to a Tcl dict
# use tdom to convert XML to JSON
# use json to convert JSON to dict
# @param[in] xml the xml text to convert
# returns data in xml as an enumberated dict
proc xml2dict { xml } {
set root [[dom parse $xml] documentElement]
set i -1
foreach node [$root childNodes] { lappend res [incr i] [::json::json2dict [$node asJSON] ] }
return $res
}
set DICT [xml2dict $XML]
puts [dict get $DICT 12]
======
returns:
======
title {For the good times} artist {Kenny Rogers} country UK company {Mucik Master} price 8.70 year 1995
======