使用TDOM创建,解析XML文档

网上查找众多资料后是一头雾水,在翻看了tdom的sample例子两天之后,终于清晰了一些 , 总结了一点:

1:需求:传入任意个偶数参数 , 创建下面的XML数据

<?xml version="1.0"?>
 <TestRecord>
	<TResult>
		<ParameterName>TestResult</ParameterName>
		<Value>0</Value>
		<ParameterName>2412_11M_FreqErr</ParameterName>
		<Value>6.27</Value>
		<ParameterName>2412_11M_Power</ParameterName>
		<Value>19.37</Value>
		<ParameterName>小红</ParameterName>
		<Value>18岁</Value>
		<ParameterName>功率</ParameterName>
		<Value>20.11dBm</Value>
		<ParameterName>频偏</ParameterName>
		<Value>1.20ppm</Value>
	</TResult>
</TestRecord>

接口 : GetXML [list "参数一" "值1" "参数二" "值二","参数三" "值三"]

实现

proc GetXML {argv} {
	
	if {[expr [llength $argv] % 2] != 0 } {
		puts &