WWW::Google::Groups 0.09

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, <.$article->header(From).>, $/;
}
}
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,
);