WWW::Google::Groups

WWW::Google::Groups is a Perl module for Google Groups Agent.
Download

WWW::Google::Groups Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • xern
  • Publisher web site:
  • http://search.cpan.org/~xern/PerlIO-via-Babelfish-0.01/Babelfish.pm

WWW::Google::Groups Tags


WWW::Google::Groups Description

WWW::Google::Groups is a Perl module for Google Groups Agent. WWW::Google::Groups is a Perl module for Google Groups Agent.BROWSING use WWW::Google::Groups; $agent = new WWW::Google::Groups ( server => 'groups.google.com', proxy => 'my.proxy.server:port', ); $group = $agent->select_group('comp.lang.perl.misc'); $group->starting_thread(0); # Set the first thread to fetch # Default starting thread is 0 while( $thread = $group->next_thread() ){ while( $article = $thread->next_article() ){ # the returned $article is an Email::Simple object # See Email::Simple for its methods print join q/ /, $thread->title, '', $/; } }If you push 'raw' to the argument stack of $thread->next_article(), it will return the raw format of messages. while( $thread = $group->next_thread() ){ while( $article = $thread->next_article('raw') ){ print $article; } }Even, you can use this more powerful method. It will try to mirror the whole newsgroup and save the messages to a Unix mbox. $agent->save2mbox( group => 'comp.lang.perl.misc', starting_thread => 0, max_article_count => 10000, max_thread_count => 1000, target_mbox => 'perl.misc.mbox', ); Requirements: · Perl


WWW::Google::Groups Related Software