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']}]"