WWW::Mixi::Scraper::Plugin::NewBBS - WWW::Mixi::Scraper::Plugin::NewBBS documentation

WWW-Mixi-Scraper documentation Contained in the WWW-Mixi-Scraper distribution.

Index

Code Index:

NAME

Top

WWW::Mixi::Scraper::Plugin::NewBBS

DESCRIPTION

Top

This is equivalent to WWW::Mixi->parse_new_bbs().

METHOD

Top

scrape

returns an array reference of

  {
    subject => 'bbs entry extract',
    name    => 'bbs name',
    link    => 'http://mixi.jp/view_bbs.pl?id=xxxx',
    time    => 'yyyy-mm-dd hh:mm'
  }

AUTHOR

Top

Kenichi Ishigaki, <ishigaki at cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2007 by Kenichi Ishigaki.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

WWW-Mixi-Scraper documentation Contained in the WWW-Mixi-Scraper distribution. 
package WWW::Mixi::Scraper::Plugin::NewBBS;

use strict;
use warnings;
use WWW::Mixi::Scraper::Plugin;

validator {qw( page is_number )};

sub scrape {
  my ($self, $html) = @_;

  my %scraper;
  $scraper{entries} = scraper {
    process 'dl>dt',
      time => 'TEXT';
    process 'dl>dd>a',
      subject => 'TEXT',
      link    => '@href';
    process 'dl>dd',
      string => 'TEXT';
    result qw( string subject link time );
  };

  $scraper{list} = scraper {
    process 'div.newBbsArea>ul.entryList01>li',
      'entries[]' => $scraper{entries};
    result qw( entries );
  };

  return $self->post_process(
    $scraper{list}->scrape(\$html) => \&_extract_name
  );
}

1;

__END__