Posted to tcl by stevel at Tue Nov 22 23:14:39 GMT 2011view raw

  1. set t [http::geturl ${url}]
  2. set body [http::data $t]
  3. http::cleanup $t
  4. set dom [dom parse -html $body]
  5. set doc [$dom documentElement]
  6. puts "nodes = [$doc selectNodes {div[@id='section']}]"