Posted to tcl by jeremy_c at Tue Jun 08 18:04:18 GMT 2010view raw

  1. package require xsxp
  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 doc [xsxp::parse $xml]
  14. puts [xsxp::fetch $doc {Session Key} %PCDATA]