#!/usr/bin/perl -w
use strict;
use warnings;
use YAML;
use WWW::MobileCarrierJP 0.55;
use WWW::MobileCarrierJP::DoCoMo::CIDR;
use WWW::MobileCarrierJP::EZWeb::CIDR;
use WWW::MobileCarrierJP::AirHPhone::CIDR;
use WWW::MobileCarrierJP::ThirdForce::CIDR;
&main;exit;
sub short_name_for {
my $carrier = shift;
+{
DoCoMo => 'I',
EZWeb => 'E',
AirHPhone => 'H',
ThirdForce => 'V',
}->{$carrier} || die "Unknown carrier: $carrier";
}
sub scrape {
my $result;
for my $carrier (qw/DoCoMo EZWeb AirHPhone ThirdForce/) {
my $class = "WWW::MobileCarrierJP::${carrier}::CIDR";
my $dat = $class->scrape;
$result->{short_name_for($carrier)} = [map { "$_->{ip}$_->{subnetmask}" } @$dat];
}
return $result;
}
sub main {
print YAML::Dump(scrape());
}
__END__
=head1 SYNOPSIS
$ net-cidr-mobilejp-scraper.pl
=head2 DESCRIPTION
scraping script for Net::CIDR::MobileJP.