Posted to tcl by stevel at Tue Nov 22 23:14:39 GMT 2011view raw
- set t [http::geturl ${url}]
- set body [http::data $t]
- http::cleanup $t
- set dom [dom parse -html $body]
- set doc [$dom documentElement]
- puts "nodes = [$doc selectNodes {div[@id='section']}]"