今更感がありますが、隠したつもりが一発特定も？ 「S県K市」などイニシャルの匿名性を調べた結果が面白いを見て、自分の住まいがS県K市なので、確認の上でgawkを使って確認してみました。
30分でサクッと書いたものなので、けっこう適当です。
方法
1.全国地方公共団体コードから、エクセルデータをダウンロードします。
2.TAB区切りのデータにエクスポートします。
3.nkfでUTF8にします。
4.gawkのスクリプトを通します。
5.sortします。
6.uniqにします。
7.uniq結果を多い順にsortします。
gawkのスクリプト
kana_roma.awk
# !/usr/bin/gawk -f
function kana_roma(kana) {
switch (kana) {
case /^チバ/:
return "C";
case /^ア/:
return "A";
case /^イ/:
return "I";
case /^ウ/:
return "U";
case /^エ/:
return "E";
case /^オ/:
return "O";
case /^[カキクケコ]/:
return "K";
case /^[ガギグゲゴ]/:
return "G";
case /^[サシスセソ]/:
return "S";
case /^[ザジズゼゾ]/:
return "Z";
case /^[タチツテト]/:
return "T";
case /^[ダヂヅデド]/:
return "D";
case /^[ナニヌネノ]/:
return "N";
case /^[ハヒフヘホ]/:
return "H";
case /^[バビブベボ]/:
return "B";
case /^[マミムメモ]/:
return "M";
case /^[ヤユヨ]/:
return "Y";
case /^[ラリルレロ]/:
return "R";
case /^ワ/:
return "W";
}
}
$5 ~ /シ$/ {
if ($4 ~ /ケン$/) {
pref="県";
} else if ($4 ~ /フ$/) {
pref="府";
} else if ($4 ~ /ドウ$/) {
pref="道";
} else if ($4 ~ /ト$/) {
pref="都";
} else {
pref="";
}
print kana_roma($4) pref, kana_roma($5) "市";
}
コマンドライン
nkf -g 000442937.txt | gawk -f kana_roma.awk | sort | uniq -c | sort -nr
結果
ブログと同じく、S県K市が１８件となりました。
結果.txt
18 S県 K市
17 S県 H市
14 H県 K市
13 K県 K市
13 I県 K市
13 A県 T市
12 S県 S市
11 N県 S市
11 H県 T市
11 H県 A市
10 H県 S市
10 H県 H市
10 A県 K市
9 K県 S市
9 K県 M市
9 K県 A市
9 I県 H市
9 H県 O市
9 H県 M市
8 T都 H市
8 S県 T市
8 N県 T市
8 M県 K市
8 I県 T市
7 Y県 H市
7 S県 M市
7 S県 I市
7 N県 M市
7 N県 K市
7 N県 I市
7 G県 M市
7 C県 K市
6 Y県 S市
6 T県 T市
6 T県 N市
6 T都 K市
6 S県 O市
6 O県 T市
6 O府 K市
6 N県 N市
6 M県 S市
6 K県 T市
6 K県 H市
6 I県 N市
6 G県 T市
6 A県 N市
5 Y県 Y市
5 Y県 K市
5 S県 Y市
5 O府 S市
5 O県 N市
5 O府 I市
5 O府 H市
5 M県 T市
5 M県 I市
5 K県 Y市
5 K府 K市
5 K県 I市
5 H県 N市
5 C県 S市
5 A県 O市
5 A県 H市
5 A県 A市
4 Y県 T市
4 Y県 N市
4 T県 S市
4 T都 M市
4 T県 K市
4 O県 U市
4 O府 T市
4 O県 K市
4 O県 B市
4 N県 U市
4 N県 O市
4 N県 G市
4 M県 N市
4 I県 M市
4 I県 I市
4 H県 Y市
4 H県 I市
4 H道 H市
4 H道 A市
4 G県 K市
4 C県 T市
4 C県 N市
4 C県 I市
4 A県 Y市
4 A県 I市
3 Y県 M市
3 T県 Y市
3 T都 T市
3 T県 O市
3 T県 M市
3 T県 A市
3 S県 N市
3 S県 G市
3 S県 A市
3 O県 S市
3 O県 O市
3 O県 M市
3 O府 M市
3 O県 I市
3 M県 M市
3 K県 Z市
3 K府 M市
3 I県 S市
3 I県 O市
3 H道 T市
3 H道 S市
3 H道 N市
3 H道 M市
3 H道 K市
3 G県 H市
3 G県 G市
3 E県 S市
3 C県 Y市
3 C県 M市
3 A県 S市
3 A県 M市
2 Y県 U市
2 Y県 O市
2 W県 K市
2 T県 U市
2 T都 A市
2 S県 W市
2 S県 U市
2 O府 O市
2 O県 A市
2 N県 Y市
2 N県 A市
2 M県 O市
2 M県 H市
2 K県 U市
2 K県 N市
2 K府 N市
2 I県 R市
2 H道 O市
2 H道 I市
2 H道 E市
2 H県 E市
2 H県 D市
2 G県 S市
2 G県 O市
2 G県 N市
2 E県 I市
2 C県 H市
2 C県 A市
2 A県 G市
1 Y県 I市
1 W県 W市
1 W県 T市
1 W県 S市
1 W県 I市
1 W県 H市
1 W県 G市
1 W県 A市
1 T都 O市
1 T都 N市
1 T都 I市
1 T県 I市
1 T県 H市
1 S県 R市
1 O県 Y市
1 O府 Y市
1 O府 N市
1 O県 H市
1 O県 G市
1 O府 D市
1 N県 Z市
1 N県 H市
1 M県 Y市
1 M県 E市
1 K府 Z市
1 K府 Y市
1 K府 U市
1 K県 O市
1 K府 H市
1 K県 E市
1 K府 A市
1 I県 Z市
1 I県 Y市
1 I県 W市
1 I県 U市
1 I県 B市
1 H道 Y市
1 H道 W市
1 H道 U市
1 H県 U市
1 H道 R市
1 H道 D市
1 H道 B市
1 H県 B市
1 G県 Y市
1 G県 I市
1 G県 E市
1 G県 A市
1 E県 Y市
1 E県 U市
1 E県 T市
1 E県 O市
1 E県 N市
1 E県 M市
1 C県 U市
1 C県 O市
1 C県 C市
1 A県 D市
感想
同順がソートされてないのが気持ち悪いとか、イマイチ感がありますが、今日は、そんなところで、こういうのは、サクッとやって終わらせるのが良い気がします。