Posted to tcl by mjanssen at Tue Jul 24 13:08:42 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 <myroot>$page</myroot>]
- set root [$doc documentElement]
- set nodes [$root selectNodes {//div[@id="keys"]/p/span}]
- foreach node $nodes {puts [$node asText]}