Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Contact Us
Online Help
Domain Status
Man Pages

Virtual Servers

Topology Map

Server Agreement
Year 2038

USA Flag



Man Pages
News(3) User Contributed Perl Documentation News(3)

WWW::Google::News - Access to Google's News Service (Not Usenet)

        # OO search interface
        use WWW::Google::News;
        my $news = WWW::Google::News->new();
        $news->topic("Frank Zappa");
        my $results = $news->search();
        # original news functions
        use WWW:Google::News qw(get_news);
        my $results = get_news();
        my $results = get_news_for_topic('impending asteriod impact');

This module provides a couple of methods to scrape results from Google News, returning a data structure similar to the following (which happens to be suitable to feeding into XML::RSS).
    'Top Stories' =>
                 'url' => '',
                 'headline' => 'Amendment to Homeland Security Bill Defeated'
                 'url' => '',
                 'headline' => 'US and UN at odds as Iraq promises to meet deadline'
    'Entertainment' =>
                'url' => '',
                'headline' => 'James Coburn Dies'
                'url' => '',
                'headline' => '007s On Parade At \'Die\' Premiere'

Perform search on Google News. Options for search term (topic), sort, date range, and maximum results. Scraper will maximize results per page, and will page through results until it gets enough stories. Internally uses get_news_for_topic().
        use WWW::Google::News;
        my $news = WWW::Google::News->new();
        # these methods will get or set their values
        $news->topic("Frank Zappa"); # search term
        $news->sort("date"); # relevance or date, relevance is default
        $news->start_date("2005-04-20"); # must provide start and end date,
        $news->end_date("2005-04-20");   # changes default sort to date
        $news->max(2); # max stories, default 20.  -1 => all stories.
        my $results = $news->search();
        foreach (@{$results}) {
          print "Source: " . $_->{source} . "\n";
          print "Date: " . $_->{date} . "\n";
          print "URL: " . $_->{url} . "\n";
          print "Summary: " . $_->{summary} . "\n";
          print "Headline: " . $_->{headline} . "\n";
          print "\n";
Scrapes <> and returns a reference to a hash keyed on News Section, which points to an array of hashes keyed on URL , Headline, etc.
  use WWW::Google::News (get_news);
  my $news = get_news();
  foreach my $topic (keys %{$news}) {
    for (@{$news->{$topic}}) {
      print "Topic: $topic\n";
      print "Headline: " . $_->{headline} . "\n";
      print "URL: " . $_->{url} . "\n";
      print "Source: " . $_->{source} . "\n";
      print "When: " . $_->{date} . "\n";
      print "Summary: " . $_->{summary} . "\n";
      print "\n";
get_news_for_topic( $topic )
Queries <> for results on a particular topic, and returns a pointer to an array of hashes containing result data, similar to get_news()
An RSS feed can be constructed from this very easily:
        use WWW::Google::News;
        use XML::RSS;
        $news = get_news_for_topic( $topic );
        # also supports the same options for search()
        # $news = get_news_for_topic( $topic, $start_date, $end_date, $sort, $max );
        my $rss = XML::RSS->new;
        $rss->channel(title => "Google News -- $topic");
        for (@{$news}) {
                        title => $_->{headline},
                        link  => $_->{url},
                        description  => $_->{description}, # source + summary
        print $rss->as_string;
It also provides a method called get_news_greg_style() which returns the same data, only using a hash keyed on story number instead of the array described in the above.

Return info on images contained in certain articles.
Parse out sub articles from featured stories.
Consolidate scraping functions.

Greg McCarroll <>, Bowen Dwelle <>, Scott Holdren <>

Darren Chamberlain for
Leon Brocard for pulling me up on my obsessive compulsion to use hashes.

<> <>

Hey! The above document had some coding errors, which are explained below:
Around line 413:
You forgot a '=back' before '=head1'
2006-07-27 perl v5.28.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.