added display map updater

bin/update_docomo_display_map.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use utf8;
+use WWW::MobileCarrierJP::DoCoMo::Display;
+use YAML;
+use FindBin;
+use File::Spec;
+use Data::Dumper;
+use Encode;
+use File::Slurp;
+
+setup();exit;
+
+sub setup {
+    my $fname = File::Spec->catfile( $FindBin::Bin, '..', 'assets', 'common',
+        'docomo-display-map.yaml' );
+
+    write_file($fname, YAML::Dump(mkdata()));
+}
+
+sub mkdata {
+    my $dat = WWW::MobileCarrierJP::DoCoMo::Display->scrape;
+    my %map;
+    for my $phone (@$dat) {
+        my $model = uc $phone->{model};
+        $model =~ s/-//; # $ma->model は - をふくまないものがおくられてきてる
+        $map{ $model } = +{
+            width  => $phone->{width},
+            height => $phone->{height},
+            color  => $phone->{is_color},
+            depth  => $phone->{depth},
+        };
+    }
+    \%map;
+}