Posted to tcl by stevel at Tue Nov 22 23:14:39 GMT 2011view pretty
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']}]"