Posted to tcl by dkf at Thu May 06 10:29:17 GMT 2010view pretty

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