県名市名イニシャル表記のランキングを gawk でやってみた
今更感がありますが、隠したつもりが一発特定も? 「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
結果
#!/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市が18件となりました。
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市
感想
同順がソートされてないのが気持ち悪いとか、イマイチ感がありますが、今日は、そんなところで、こういうのは、サクッとやって終わらせるのが良い気がします。
Author And Source
この問題について(県名市名イニシャル表記のランキングを gawk でやってみた), 我々は、より多くの情報をここで見つけました https://qiita.com/sapi_kawahara/items/156996facd5e4b1cb172著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .