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

  1. package require http
  2. package require tdom
  3.  
  4. set t [http::geturl http://rit.me.uk/livescore/cricrss.php]
  5. set doc [dom parse [http::data $t]]
  6. http::cleanup $t
  7.  
  8. foreach node [$doc selectNodes /channel/item/title] {
  9. set title [$node text]
  10. puts "Got this: $title"
  11. }
  12.  
  13. $doc delete
  14.