県名市名イニシャル表記のランキングを gawk でやってみた

今更感がありますが、[隠したつもりが一発特定も？　「S県K市」などイニシャルの匿名性を調べた結果が面白い](http://internet.watch.impress.co.jp/docs/yajiuma/1066860.html)を見て、自分の住まいがS県K市なので、確認の上でgawkを使って確認してみました。
30分でサクッと書いたものなので、けっこう適当です。
# 方法
1.[全国地方公共団体コード](http://www.soumu.go.jp/denshijiti/code.html)から、エクセルデータをダウンロードします。
2.TAB区切りのデータにエクスポートします。
3.nkfでUTF8にします。
4.gawkのスクリプトを通します。
5.sortします。
6.uniqにします。
7.uniq結果を多い順にsortします。
# gawkのスクリプト
```awk: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) "市";
}
```
# コマンドライン
```bash
nkf -g 000442937.txt | gawk -f kana_roma.awk | sort  | uniq -c | sort -nr
```
# 結果
ブログと同じく、S県K市が１８件となりました。
```text:結果.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市
```

# 感想
同順がソートされてないのが気持ち悪いとか、イマイチ感がありますが、今日は、そんなところで、こういうのは、サクッとやって終わらせるのが良い気がします。