Posted to tcl by jeremy_c at Tue Jun 08 17:39:00 GMT 2010view raw

  1. package require tdom
  2.  
  3. set xml {<?xml version="1.0" ?>
  4. <QRZDatabase version="1.15" xmlns="http://xml.qrz.com">
  5. <Session>
  6. <Key>2331uf894c4bd29f3923f3bacf02c532d7bd9</Key>
  7. <Count>123</Count>
  8. <SubExp>Wed Jan 1 12:34:03 2010</SubExp>
  9. <GMTime>Sun Aug 16 03:51:47 2009</GMTime>
  10. </Session>
  11. </QRZDatabase>}
  12.  
  13. set dom [dom parse $xml]
  14. set doc [$dom documentElement]
  15. puts "Key: [$doc selectNodes {string(/QRZDatabase/Session/Key)}]"