WWW::Google::GroupsWWW::Google::Groups is a Perl module for Google Groups Agent. | |
Download |
WWW::Google::Groups Ranking & Summary
Advertisement
- 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