if 0 {phk 2003-08-18 Let's assume your application is generating html pages.
tdom can help in a nice way to test the output.}
Let's get all options from a html select tag:}
package require tdom package require http # get the html page set token [http::geturl http://aspn.activestate.com/ASPN/Cookbook/Tcl/] set data [http::data $token] #
set doc dom parse -html $data set root $doc documentElement
set optionList $root selectNodes {//select/option}
set result {} foreach option $optionList {
set text [[$option nextSibling] nodeValue] set value [$option getAttribute value] set selected [$option getAttribute selected ""] lappend result [list $text $value]
}
puts $result