Anonymous user
Yahoo! search interface: Difference between revisions
→{{header|Perl}}
(Found incorrectness, it doesn't work.) |
|||
Line 936:
$invocant->{results} = $results;
return 1;}</lang>
=={{header|Perl6}}==
{{libheader|Gumbo}}
{{libheader|LWP::Simple}}
{{libheader|XML}}
YahooSearch.pm6:
<lang Perl6>
use Gumbo;
use LWP::Simple;
use XML::Text;
class YahooSearch {
has $!dom;
submethod BUILD (:$!dom) { }
method new($term) {
self.bless(
dom => parse-html(
LWP::Simple.get("http://search.yahoo.com/search?p={ $term }")
)
);
}
method next {
$!dom = parse-html(
LWP::Simple.get(
$!dom.lookfor( TAG => 'a', class => 'next' ).head.attribs<href>
)
);
self;
}
method text ($node) {
return '' unless $node;
return $node.text if $node ~~ XML::Text;
$node.nodes.map({ self.text($_).trim }).join(' ');
}
method results {
state $n = 0;
for $!dom.lookfor( TAG => 'h3', class => 'title') {
given .lookfor( TAG => 'a' )[0] {
next unless $_; # No Link
next if .attribs<href> ~~ / ^ 'https://r.search.yahoo.com' /; # Ad
say "=== #{ ++$n } ===";
say "Title: { .contents[0] ?? self.text( .contents[0] ) !! '' }";
say " URL: { .attribs<href> }";
my $pt = .parent.parent.parent.elements( TAG => 'div' ).tail;
say " Text: { self.text($pt) }";
}
};
}
self
}
sub MAIN (Str $search-term) is export {
YahooSearch.new($search-term).results.next.results;
}
</lang>
And the invocation script is simply:
yahoo-search.pl6
<lang>use YahooSearch;</lang>
So:
<lang>perl6 yahoo-search.pl6 test</lang>
Should give out something like the following:
=={{header|PicoLisp}}==
| |||