Posted to tcl by mjanssen at Tue Jul 24 13:08:42 GMT 2007view raw

  1. #!/bin/sh
  2. exec tclsh8.4 "$0" ${1+"$@"}
  3. package require tdom
  4. package require http
  5. set url "http://localhost"
  6. set page [::http::data [::http::geturl $url]]
  7. set doc [dom parse -html <myroot>$page</myroot>]
  8. set root [$doc documentElement]
  9. set nodes [$root selectNodes {//div[@id="keys"]/p/span}]
  10. foreach node $nodes {puts [$node asText]}