Yahoo! search interface: Difference between revisions
Content deleted Content added
→{{header|Tcl}}: add example using OO and an html parser |
|||
Line 207:
=={{header|Tcl}}==
{{trans|Python}}
<lang tcl>package require http
Line 236 ⟶ 235:
}
proc Nextpage {term} {
incr ::page
foreach {title content url} [YahooSearch "test"] {▼
return [YahooSearch $term $::page]
puts $title▼
}
# Usage: get the first two pages of results
set page 1
set term "test"
foreach result_set [list [YahooSearch $term] [Nextpage $term]] {
▲ puts $title
}
}</lang>
Tcl 8.6 can use its coroutine support to produce an iterator more like that Python code:
|