Posted to tcl by jeremy_c at Tue Jun 08 18:17:53 GMT 2010view raw
- package require tdom
- set xml {<?xml version="1.0" ?>
- <QRZDatabase version="1.15" xmlns="http://xml.qrz.com">
- <Session>
- <Key>2331uf894c4bd29f3923f3bacf02c532d7bd9</Key>
- <Count>123</Count>
- <SubExp>Wed Jan 1 12:34:03 2010</SubExp>
- <GMTime>Sun Aug 16 03:51:47 2009</GMTime>
- </Session>
- </QRZDatabase>}
- set dom [dom parse $xml]
- $dom selectNodesNamespaces [list Q "http://xml.qrz.com"]
- set doc [$dom documentElement]
- puts "Key: [$doc selectNodes string(/Q:QRZDatabase/Q:Session/Q:Key)]"