首先在tcl文件中包含:
package require tdom
假设有如下xml文档
set xml_info
"<root>
<beijing>10</beijing>
<henan>
<zhengzhou>20</zhengzhou>
<zhengzhou>200</zhengzhou>
<luoyan