NAME
WWW::Mooos::Scraper - Mooos scraper module
VERSION
0.02
SYNOPSIS
use WWW::Mooos::Scraper;
use strict;
my $mooos = WWW::Mooos::Scraper->new;
my $res = $mooos->readers(page => 1);
if(exists $res->{error}){
die $res->{error};
}
foreach my $article(@{$res->{recent_articles}}){
while(my($key, $val) = each %{$article}){
printf "%-15s %s\n", $key, $val;
}
}DESCRIPTION
Mooos is open message boards service.
It scrapes the content of this site.
URL http://www.mooos.net/
METHOD
new
Create instance
Option:
time_zone : your location time zone(default: Asia/Tokyo)Example:
my $mooos = WWW::Mooos::Scraper->new;entry
It enters it in url that wants to comment
Options:
comment : comment(require, utf8 string. but no utf8flag)
entry_type : positive or negative(require)
url : url(require)Example:
my $res = $mooos->entry( comment => "comment string", entry_type => "positive", url => "http://your.want.to.comment.url/" );
if(exists $res->{error}){
# error trap!
print Dumper($res);
exit;
}elsif(exists $res->{success}){
# success. do something...
}readers
Get recent 10 articles
Option:
page : page number(default 1)Example:
my $res = $mooos->readers( page => 1 );
if(exists $res->{error}){
# error trap!
print Dumper($res);
exit;
}
foreach my $article(@{$res->{recent_articles}}){
print "page_title: " . $article->{page_title} . "\n";
print "page_url: " . $article->{page_url} . "\n"; # URI instance
print "total_comments: " . $article->{total_comments} . "\n";
print "mooos_page_url: " . $article->{mooos_page_url} . "\n"; # URI instance
print "positive_count: " . $article->{positive_count} . "\n";
print "negative_count: " . $article->{negative_count} . "\n";
print "entry_time: " . $article->{entry_time} . "\n"; # DateTime instance
print "last_comment: " . $article->{last_comment} . "\n";
print "last_comment_type: " . $article->{last_comment_type} . "\n";
print "-" x 50;
print "\n";
}hot_comments method is readers method alias.
# same $mooos->reader result
my $res = $mooos->hot_comments( page => 1 );new_comments
Get recent 10 comment
Option:
page : page number(default 1)Example:
my $res = $mooos->new_comments( page => 1 );
if(exists $res->{error}){
# error trap!
print Dumper($res);
exit;
}
foreach my $comment(@{$res->{new_comments}}){
print "page_title: " . $comment->{page_title} . "\n";
print "page_url: " . $comment->{page_url} . "\n"; # URI instance
print "comment_num: " . $comment->{comment_num} . "\n";
print "mooos_page_url: " . $comment->{mooos_page_url} . "\n"; # URI instance
print "entry_time: " . $comment->{entry_time} . "\n"; # DateTime instance
print "comment: " . $comment->{comment} . "\n";
print "entry_type: " . $comment->{entry_type} . "\n";
print "-" x 50;
print "\n";
}search
Get url search
Option:
page : page number(default 1)
url : url(require)Example:
my $res = $mooos->search( page => 1, url => "http://your.want.to.search.url/" );
if(exists $res->{error}){
# error trap!
print Dumper($res);
exit;
}
print "page_title: " . $res->{page_title} . "\n";
print "page_url: " . $res->{page_url} . "\n"; # URI instance
print "thumbnail_url: " . $res->{thumbnail_url} . "\n"; # URI instance
print "comment_num: " . $res->{comment_num} . "\n";
foreach my $comment(@{$res->{article_comments}}){
print "comment: " . $comment->{comment} . "\n";
print "entry_time: " . $comment->{entry_time} . "\n"; # DateTime instance
print "entry_type: " . $comment->{entry_type} . "\n";
print "-" x 50;
print "\n";
}ACCESSOR METHOD
time_zone
Get/Set your location time zone
Example:
$mooos->time_zone("Asia/Taipei");
$time_zone = $mooos->time_zone;time
Get timestamp
Example:
$time = $mooos->time;SEE ALSO
Class::Accessor Readonly Sub::Install UNIVERSAL::require
AUTHOR
Akira Horimoto
COPYRIGHT AND LICENSE
This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.
Copyright (C) 2007 Akira Horimoto