Posted to tcl by wIreS at Tue Jul 24 11:57:18 GMT 2007view raw
- #!/bin/sh
- exec tclsh8.4 "$0" ${1+"$@"}
- package require tdom
- package require http
- set url "http://localhost"
- set page [::http::data [::http::geturl $url]]
- set doc [dom parse -html $page]
- set root [$doc documentElement]
- set node [$root selectNodes {//html[1]/body[1]/div[3]/p[1]/span[3]}]
- set text [[[lindex $node 0] childNodes] nodeValue]
- puts "[string trim $text]"
Comments
Posted by wIrEs at Tue Jul 24 12:06:25 GMT 2007 [text] [code]
invalid command name "" while executing "[lindex $node 0] childNodes" invoked from within "[[lindex $node 0] childNodes] nodeValue" invoked from within "set text [[[lindex $node 0] childNodes] nodeValue]" (file "./http" line 11)
Posted by mjanssen at Tue Jul 24 13:07:56 GMT 2007 [text] [code]
#!/bin/sh exec tclsh8.4 "$0" ${1+"$@"} package require tdom package require http set url "http://localhost" set page [::http::data [::http::geturl $url]] set doc [dom parse -html <myroot>$page</myroot>] set root [$doc documentElement] set nodes [$root selectNodes {//div[@id="keys"]/p/span}] foreach node $nodes {puts [$node asText]}