add TUT romkan map #239 (#277)

developers/tut.pl

@@ -0,0 +1,29 @@
+# TUT 用のマッピングテーブルを生成する。
+# Canna 用の定義ファイルから生成する。
+
+use strict;
+use warnings;
+
+use LWP::UserAgent;
+use Data::Dumper;
+use Encode qw/decode/;
+
+binmode STDIN,  ":utf8";
+binmode STDOUT,  ":utf8";
+binmode STDERR,  ":utf8";
+
+my $ua = LWP::UserAgent->new();
+
+my $url = 'https://crew-lab.sfc.keio.ac.jp/projects/tut/data/tut.kpdef';
+
+my $res = $ua->get($url);
+my @lines = split /\n/, decode('euc-jp', $res->content);
+for my $line (@lines) {
+    if ($line =~ /^(\S+)[\t ](\S+)$/) {
+        my $rom = $1;
+        my $surface = $2;
+
+        print "  \"$rom\": \"$surface\"\n";
+    }
+}
+