Posted to tcl by de at Thu Feb 12 19:09:55 GMT 2015view pretty

package require tdom
set xml {<test xmlns="URI"/>}
set doc [dom parse $xml]
set root [$doc documentElement]
set newNode [$doc createElementNS URI item]
$root appendChild $newNode
puts [$doc asXML]