Posted to tcl by dkf at Thu May 06 10:29:17 GMT 2010view raw
- package require http
- package require tdom
- set t [http::geturl http://rit.me.uk/livescore/cricrss.php]
- set doc [dom parse [http::data $t]]
- http::cleanup $t
- foreach node [$doc selectNodes /channel/item/title] {
- set title [$node text]
- puts "Got this: $title"
- }
- $doc delete