DoCoMo の使用 IP アドレス帯域

mobile

以前とページが変わってた。

ページ内容も変わったみたいで、
Net::CIDR::MobileJP の Scraper::Plugin::DoCoMo で IP アドレスをスクレイピングできなくなっていたので patch.

@@ -3,7 +3,7 @@
 use warnings;
 use base qw/Net::CIDR::MobileJP::Scraper::Plugin/;

-sub url { return 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/about/'; }
+sub url { return 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/'; }

 sub run {
     my ($self, ) = @_;
@@ -11,7 +11,7 @@
     my $url = $self->url;
     my $content = $self->get($url);
     my @result;
-    while ($content =~ m!<FONT COLOR="\#009900"><B>(.*?)</B></FONT>!g) {
+    while ($content =~ m!<li>([\d\.\/]+)</li>!g) {
         push @result, $1;
     }
     return \@result;

[追記]
上記 patch を反映して頂いた 0.08 が出ました。
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-0.08/