Posted to tcl by jeremy_c at Tue Jun 08 18:04:18 GMT 2010view raw
- package require xsxp
- 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 doc [xsxp::parse $xml]
- puts [xsxp::fetch $doc {Session Key} %PCDATA]