Yahoo! search interface: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}) |
|||
Line 284: | Line 284: | ||
set searchterm $s |
set searchterm $s |
||
set page 1 |
set page 1 |
||
set baseurl {http://search.yahoo.com/search} |
set baseurl {http://ca.search.yahoo.com/search} |
||
} |
} |
||
Line 292: | Line 292: | ||
set current_data [dict create] |
set current_data [dict create] |
||
set state looking_for_results |
set state looking_for_results |
||
htmlparse::parse -cmd [list [self] html_parser_callback] [my gethtml] |
htmlparse::parse -cmd [list [self] html_parser_callback] [my gethtml] |
||
lappend results $current_data |
|||
} |
} |
||
Line 333: | Line 330: | ||
} |
} |
||
ready { |
ready { |
||
if {$tag eq "div" && [string first {class="res} $param] != -1 |
if {($tag eq "div" && [string first {class="res} $param] != -1) || |
||
($tag eq "html" && $slash eq "/") |
|||
} { |
|||
if {[dict size $current_data] > 0} {lappend results $current_data} |
if {[dict size $current_data] > 0} {lappend results $current_data} |
||
set current_data [dict create] |
set current_data [dict create] |