Posted to tcl by mjanssen at Tue Jan 02 22:16:53 GMT 2007view pretty
package require tdom package require http set tok [http::geturl http://www.rocheck.de/index.php?si=suche&v=red%20potion&suche=okay] set data [http::data $tok] set doc [dom parse -html $data] set items {} foreach href [$doc selectNodes {//td[@width="350"]/descendant::*/@href}] { regexp -- {item=(.*)} $href -> item lappend items $item } puts $items