| WWW-Yahoo-KeywordExtractor documentation | Contained in the WWW-Yahoo-KeywordExtractor distribution. |
WWW::Yahoo::KeywordExtractor - Get keywords from summary text via the Yahoo API
This module will submit content to the Yahoo keyword extractor API to return a list of relevant keywords.
use WWW::Yahoo::KeywordExtractor;
my $yke = WWW::Yahoo::KeywordExtractor->new();
my $keywords = $yke->extract('My wife and I love to cook together. Carolyn surprises me with new things to love about her everyday.');
print join q{}. 'Keyword 1: ', $keywords->[0], "\n";
The new subroutine creates and returns a WWW:Yahoo::KeywordExtractor object.
This method will return a list of keywords based on sample data. It will die if there is no 'content' arg given.
Note: In older versions this method would also cache the keywords returned, however this is no longer the case.
Nick Gerakines, <nick at socklabs.com>
Please report any bugs or feature requests to
bug-www-yahoo-keywordextractor at rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Yahoo-KeywordExtractor.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc WWW::Yahoo::KeywordExtractor
You can also look for information at:
http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Yahoo-KeywordExtractor
Thanks to the bright developers at Yahoo for creating a nifty keyword API.
Subbu Allamaraju ( http://www.subbu.org ) gave some good feedback and is also worth mentioning here.
Copyright 2006 Nick Gerakines, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| WWW-Yahoo-KeywordExtractor documentation | Contained in the WWW-Yahoo-KeywordExtractor distribution. |
package WWW::Yahoo::KeywordExtractor; use strict; use warnings; use LWP::UserAgent; use constant KEYWORD_API_URL => 'http://api.search.yahoo.com/ContentAnalysisService/V1/termExtraction'; our $VERSION = '0.5'; sub new { my ($class, %args) = @_; my $self = bless {%args}, $class; return $self; } sub extract { my ($self, $content) = @_; if (! $content) { die 'No content specified'; } my $ua = LWP::UserAgent->new(); my $response = $ua->post( KEYWORD_API_URL, { 'appid' => 'WWWYahooKeywordExtractor', 'query' => 'null', 'context' => $content, } ); if (! $response->is_success()) { die "Error getting data!\n"; } my $xml = $response->content(); my @results = (); while ($xml =~ m!<Result>([^<]*)</Result>!g) { push @results, $1; } return \@results; } 1; __END__