OSDN Git Service

support 'KOTOERI'
authorvoid <void>
Fri, 7 Jun 2002 16:23:50 +0000 (16:23 +0000)
committervoid <void>
Fri, 7 Jun 2002 16:23:50 +0000 (16:23 +0000)
school.dic
script/oki2jis.pl
script/oki2kotoeri.pl [new file with mode: 0755]

index 178155d..b8c2fc9 100644 (file)
@@ -1,12 +1,12 @@
 #
 # school.dic - \e$B2-Fl$N3X9;L>\e(B
-#              $Id: school.dic,v 1.6 2002/06/07 07:32:42 void Exp $
+#              $Id: school.dic,v 1.7 2002/06/07 16:23:50 void Exp $
 #
 ###############################################################################
 # \e$B>.3X9;\e(B
 ###############################################################################
 # \e$B9qN)>.3X9;\e(B(1) ---------------------------------------------------------------
-\e$B$j$e$&$-$e$&$@$$$,$/$-$g$&$$$/$,$/$V$U$>$/\e(B       \e$BN05eBg3X650i3XItImB0\e(B      \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1
+\e$B$j$e$&$-$e$&$@$$$,$/$-$g$&$$$/$,$/$V\e(B     \e$BN05eBg3X650i3XIt\e(B  \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1 (\e$B!AImB0\e(B)
 
 # \e$B8xN)>.3X9;\e(B(280) -------------------------------------------------------------
 # \e$B9qF,\e(B - \e$B8xN)>.3X9;\e(B(57\e$B9;\e(B)
 # \e$BCf3X9;\e(B
 ###############################################################################
 # \e$B9qN)Cf3X9;\e(B(1) ---------------------------------------------------------------
-\e$B$j$e$&$-$e$&$@$$$,$/$-$g$&$$$/$,$/$V$U$>$/\e(B       \e$BN05eBg3X650i3XItImB0\e(B      \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1
+\e$B$j$e$&$-$e$&$@$$$,$/$-$g$&$$$/$,$/$V\e(B     \e$BN05eBg3X650i3XIt\e(B  \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1 (\e$B!AImB0\e(B)
 
 # \e$B8xN)Cf3X9;\e(B(166) -------------------------------------------------------------
 # \e$B9qF,\e(B - \e$B8xN)Cf3X9;\e(B(34\e$B9;\e(B)
 ###############################################################################
 \e$B$1$s$j$D$*$-$J$o$+$s$4$,$C$3$&\e(B                   \e$B8)N)2-Fl4G8n3X9;\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;TM?57\e(B1-24-1
 \e$B$1$s$j$D$&$i$=$($+$s$4$,$C$3$&\e(B                   \e$B8)N)1:E:4G8n3X9;\e(B          \e$BAH?%L>\e(B            # \e$B1:E:;T;zEv;3\e(B422
-\e$B$@$$$$$/$8$g$&$[$&$S$8$M$9$;$s$b$s$,$C$3$&\e(B       \e$BBg0i>pJs%S%8%M%9@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$BFaGF;T;zBgF;\e(B77
-\e$B$3$/$5$$$G$s$7$S$8$M$9$;$s$b$s$,$C$3$&\e(B           \e$B9q:]EE;R%S%8%M%9@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$BFaGF;T;z00D.\e(B42-4
-\e$B$S$8$g$s$$$s$?!<$J$7$g$J$k$9$/!<$k$*$V$S$8$M$9\e(B   \e$B%T%8%g%s%$%s%?!<%J%7%g%J%k%9%/!<%k%*%V%S%8%M%9\e(B    \e$BAH?%L>\e(B            # \e$BFaGF;THu@n\e(B1-1-77
-\e$B$@$$$$$/$3$&$H$&$;$s$7$e$&$,$C$3$&\e(B               \e$BBg0i9bEy@l=$3X9;\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;T;zBgF;\e(B5-1
-\e$B$J$O$8$g$&$[$&$7$9$F$`$;$s$b$s$,$C$3$&\e(B           \e$BFaGF>pJs%7%9%F%`@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$BFaGF;T0BN$\e(B2-6-51
-\e$B$J$O$7$$$7$+$$$J$O$+$s$4$;$s$b$s$,$C$3$&\e(B \e$BFaGF;T0e;U2qFaGF4G8n@lLg3X9;\e(B      \e$BAH?%L>\e(B            # \e$BK-8+>k;T;zEO66L>\e(B289-23
-\e$B$A$e$&$V$S$h$&$;$s$b$s$,$C$3$&\e(B                   \e$BCfItH~MF@lLg3X9;\e(B          \e$BAH?%L>\e(B            # \e$B2-Fl;T;zHf20:,\e(B952-1
-\e$B$j$e$&$-$e$&$S$h$&$;$s$7$e$&$,$C$3$&\e(B             \e$BN05eH~MF@l=$3X9;\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;T5WJF\e(B1-20-21
-\e$B$*$-$J$o$U$/$7$[$$$/$;$s$b$s$,$C$3$&\e(B             \e$B2-FlJ!;cJ]0i@lLg3X9;\e(B              \e$BAH?%L>\e(B            # \e$BFaGF;T>>;3\e(B1-10-1
-\e$B$+$$$[$&$G$s$7$S$8$M$9$;$s$b$s$,$C$3$&\e(B           \e$B3$K.EE;R%S%8%M%9@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$B6q;V@n;T;z@VF;\e(B360-2
-\e$B$*$-$J$o$8$g$&$[$&$1$$$j$;$s$b$s$,$C$3$&\e(B \e$B2-Fl>pJs7PM}@lLg3X9;\e(B              \e$BAH?%L>\e(B            # \e$B2-Fl;T;zCg=!:,D.\e(B8-11
+\e$B$@$$$$$/$8$g$&$[$&$S$8$M$9\e(B                       \e$BBg0i>pJs%S%8%M%9\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;T;zBgF;\e(B77 (\e$B!A@lLg3X9;\e(B)
+\e$B$3$/$5$$$G$s$7$S$8$M$9\e(B                           \e$B9q:]EE;R%S%8%M%9\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;T;z00D.\e(B42-4 (\e$B!A@lLg3X9;\e(B)
+\e$B$S$8$g$s$$$s$?!<$J$7$g$J$k\e(B                       \e$B%T%8%g%s%$%s%?!<%J%7%g%J%k\e(B        \e$BAH?%L>\e(B            # \e$BFaGF;THu@n\e(B1-1-77 (\e$B!A%9%/!<%k%*%V%S%8%M%9\e(B)
+\e$B$@$$$$$/$3$&$H$&\e(B                         \e$BBg0i9bEy\e(B                  \e$BAH?%L>\e(B            # \e$BFaGF;T;zBgF;\e(B5-1 (\e$B!A@l=$3X9;\e(B)
+\e$B$J$O$8$g$&$[$&$7$9$F$`\e(B                           \e$BFaGF>pJs%7%9%F%`\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;T0BN$\e(B2-6-51 (\e$B!A@lLg3X9;\e(B)
+\e$B$J$O$7$$$7$+$$$J$O$+$s$4\e(B                 \e$BFaGF;T0e;U2qFaGF4G8n\e(B              \e$BAH?%L>\e(B            # \e$BK-8+>k;T;zEO66L>\e(B289-23 (\e$B!A@lLg3X9;\e(B)
+\e$B$A$e$&$V$S$h$&\e(B                                   \e$BCfItH~MF\e(B                  \e$BAH?%L>\e(B            # \e$B2-Fl;T;zHf20:,\e(B952-1 (\e$B!A@lLg3X9;\e(B)
+\e$B$j$e$&$-$e$&$S$h$&\e(B                               \e$BN05eH~MF\e(B                  \e$BAH?%L>\e(B            # \e$BFaGF;T5WJF\e(B1-20-21 (\e$B!A@l=$3X9;\e(B)
+\e$B$*$-$J$o$U$/$7$[$$$/\e(B                             \e$B2-FlJ!;cJ]0i\e(B                      \e$BAH?%L>\e(B            # \e$BFaGF;T>>;3\e(B1-10-1 (\e$B!A@lLg3X9;\e(B)
+\e$B$+$$$[$&$G$s$7$S$8$M$9\e(B                           \e$B3$K.EE;R%S%8%M%9\e(B          \e$BAH?%L>\e(B            # \e$B6q;V@n;T;z@VF;\e(B360-2 (\e$B!A@lLg3X9;\e(B)
+\e$B$*$-$J$o$8$g$&$[$&$1$$$j\e(B                 \e$B2-Fl>pJs7PM}\e(B                      \e$BAH?%L>\e(B            # \e$B2-Fl;T;zCg=!:,D.\e(B8-11 (\e$B!A@lLg3X9;\e(B)
 \e$B$*$-$J$o$S$8$M$9$,$$$4$,$/$$$s\e(B                   \e$B2-Fl%S%8%M%9308l3X1!\e(B              \e$BAH?%L>\e(B            # \e$BFaGF;T5WLPCO\e(B1-2-20
-\e$B$3$/$5$$$D!<$j$:$`$;$s$b$s$,$C$3$&\e(B               \e$B9q:]%D!<%j%:%`@lLg3X9;\e(B            \e$BAH?%L>\e(B            # \e$BFaGF;T4s5\\e(B1-8-50
-\e$B$d$9$-$d$S$8$M$9$;$s$b$s$,$C$3$&\e(B         \e$B0BLZ20%S%8%M%9@lLg3X9;\e(B            \e$BAH?%L>\e(B            # \e$BFaGF;TKR;V\e(B1-1-14
-\e$B$3$/$5$$$j$>!<$H$9$]!<$D$+$,$/$;$s$b$s$,$C$3$&\e(B   \e$B9q:]%j%>!<%H!&%9%]!<%D2J3X@lLg3X9;\e(B        \e$BAH?%L>\e(B            # \e$B59LnOQ;TBg;3\e(B6-3-3
-\e$B$j$e$&$-$e$&$A$g$&$j$7$;$s$7$e$&$,$C$3$&\e(B \e$BN05eD4M};U@l=$3X9;\e(B                \e$BAH?%L>\e(B            # \e$B1:E:;T5\>k\e(B5-2-3
-\e$B$;$s$b$s$,$C$3$&$*$-$J$o$A$e$&$*$&$,$/$($s\e(B       \e$B@lLg3X9;2-FlCf1{3X1`\e(B              \e$BAH?%L>\e(B            # \e$B2-Fl;T8b20\e(B5-13-2
-\e$B$*$-$J$o$o$5$$$;$s$b$s$,$C$3$&\e(B                   \e$B2-FlOB:[@lLg3X9;\e(B          \e$BAH?%L>\e(B            # \e$BFaGF;TGq\e(B3-1-23
-\e$B$*$-$J$o$A$g$&$j$7$;$s$b$s$,$C$3$&\e(B               \e$B2-FlD4M};U@lLg3X9;\e(B                \e$BAH?%L>\e(B            # \e$BFaGF;T5WJF\e(B1-18-7
+\e$B$3$/$5$$$D!<$j$:$`\e(B                               \e$B9q:]%D!<%j%:%`\e(B                    \e$BAH?%L>\e(B            # \e$BFaGF;T4s5\\e(B1-8-50 (\e$B!A@lLg3X9;\e(B)
+\e$B$d$9$-$d$S$8$M$9\e(B                         \e$B0BLZ20%S%8%M%9\e(B                    \e$BAH?%L>\e(B            # \e$BFaGF;TKR;V\e(B1-1-14 (\e$B!A@lLg3X9;\e(B)
+\e$B$3$/$5$$$j$>!<$H$9$]!<$D$+$,$/\e(B                   \e$B9q:]%j%>!<%H!&%9%]!<%D2J3X\e(B        \e$BAH?%L>\e(B            # \e$B59LnOQ;TBg;3\e(B6-3-3 (\e$B!A@lLg3X9;\e(B)
+\e$B$j$e$&$-$e$&$A$g$&$j$7\e(B                           \e$BN05eD4M};U\e(B                        \e$BAH?%L>\e(B            # \e$B1:E:;T5\>k\e(B5-2-3 (\e$B!A@l=$3X9;\e(B)
+\e$B$*$-$J$o$A$e$&$*$&$,$/$($s\e(B                       \e$B2-FlCf1{3X1`\e(B                      \e$BAH?%L>\e(B            # \e$B2-Fl;T8b20\e(B5-13-2 (\e$B@lLg3X9;!A\e(B)
+\e$B$*$-$J$o$o$5$$\e(B                                   \e$B2-FlOB:[\e(B                  \e$BAH?%L>\e(B            # \e$BFaGF;TGq\e(B3-1-23 (\e$B!A@lLg3X9;\e(B)
+\e$B$*$-$J$o$A$g$&$j$7\e(B                               \e$B2-FlD4M};U\e(B                        \e$BAH?%L>\e(B            # \e$BFaGF;T5WJF\e(B1-18-7 (\e$B!A@lLg3X9;\e(B)
 \e$B$K$C$1$$$S$8$M$9$,$/$$$s\e(B                 \e$BF|7P%S%8%M%99)3X1!\e(B                \e$BAH?%L>\e(B            # \e$B2-Fl;T<<@n\e(B1-2-20
 \e$B$*$-$J$o$7$+$($$$;$$$7$,$C$3$&\e(B                   \e$B2-Fl;u2J1R@8;N3X9;\e(B                \e$BAH?%L>\e(B            # \e$B1:E:;T9A@n\e(B1-36-3
 \e$B$*$-$J$o$j$O$S$j$F!<$7$g$s$U$/$7$,$/$$$s\e(B \e$B2-Fl%j%O%S%j%F!<%7%g%sJ!;c3X1!\e(B    \e$BAH?%L>\e(B            # \e$BM?Fa86D.;zHDNII_\e(B1308-1
 \e$B$J$O$K$C$1$$$S$8$M$9$3$&$,$/$$$s\e(B         \e$BFaGFF|7P%S%8%M%99)3X1!\e(B            \e$BAH?%L>\e(B            # \e$BFaGF;TGq\e(B2-1-8
 \e$B$Q$7$U$#$C$/$F$/$N$+$l$C$8$,$/$$$s\e(B               \e$B%Q%7%U%#%C%/%F%/%N%+%l%C%83X1!\e(B    \e$BAH?%L>\e(B            # \e$B59LnOQ;T??;V4n\e(B3-29-1
-\e$B$*$-$J$o$+$s$4$;$s$b$s$,$C$3$&\e(B                   \e$B2-Fl4G8n@lLg3X9;\e(B          \e$BAH?%L>\e(B            # \e$BM?Fa86D.;zHDNII_\e(B1380-1
+\e$B$*$-$J$o$+$s$4\e(B                                   \e$B2-Fl4G8n\e(B                  \e$BAH?%L>\e(B            # \e$BM?Fa86D.;zHDNII_\e(B1380-1 (\e$B!A@lLg3X9;\e(B)
 \e$B$$$s$?!<$J$7$g$J$k$G$6$$$s$"$+$G$_!<\e(B             \e$B%$%s%?!<%J%7%g%J%k%G%6%$%s%"%+%G%_!<\e(B      \e$BAH?%L>\e(B            # \e$B1:E:;TKR9A\e(B1-60-14
-\e$B$$$7$,$-$j$>!<$H$+$$$h$$$&$;$s$b$s$,$C$3$&\e(B       \e$B@P3@%j%>!<%H3$MN@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$B@P3@;TH~:jD.\e(B2
-\e$B$*$-$J$o$"$+$G$_!<$;$s$b$s$,$C$3$&\e(B               \e$B2-Fl%"%+%G%_!<@lLg3X9;\e(B            \e$BAH?%L>\e(B            # \e$BK-8+>k;T;z??6L66\e(B387-1
-\e$B$@$$$$$/$G$s$7$$$j$g$&$;$s$b$s$,$C$3$&\e(B           \e$BBg0iEE;R0eNE@lLg3X9;\e(B              \e$BAH?%L>\e(B            # \e$BFaGF;T<sN$57J]D.\e(B4-6
-\e$B$=!<$7$c$k$o!<$/$;$s$b$s$,$C$3$&\e(B         \e$B%=!<%7%c%k%o!<%/@lLg3X9;\e(B  \e$BAH?%L>\e(B            # \e$BKLCf>kB<;z205986\e(B212-1
+\e$B$$$7$,$-$j$>!<$H$+$$$h$$$&\e(B                       \e$B@P3@%j%>!<%H3$MN\e(B          \e$BAH?%L>\e(B            # \e$B@P3@;TH~:jD.\e(B2 (\e$B!A@lLg3X9;\e(B)
+\e$B$*$-$J$o$"$+$G$_!<\e(B                               \e$B2-Fl%"%+%G%_!<\e(B                    \e$BAH?%L>\e(B            # \e$BK-8+>k;T;z??6L66\e(B387-1 (\e$B!A@lLg3X9;\e(B)
+\e$B$@$$$$$/$G$s$7$$$j$g$&\e(B                           \e$BBg0iEE;R0eNE\e(B                      \e$BAH?%L>\e(B            # \e$BFaGF;T<sN$57J]D.\e(B4-6 (\e$B!A@lLg3X9;\e(B)
+\e$B$=!<$7$c$k$o!<$/\e(B                         \e$B%=!<%7%c%k%o!<%/\e(B          \e$BAH?%L>\e(B            # \e$BKLCf>kB<;z205986\e(B212-1 (\e$B!A@lLg3X9;\e(B)
 \e$B$[$/$V$A$/$$$7$+$$$[$/$V$+$s$4$,$C$3$&\e(B           \e$BKLItCO6h0e;U2qKLIt4G8n3X9;\e(B        \e$BAH?%L>\e(B            # \e$BL>8n;T;z0YKt\e(B1219-91
-\e$B$*$-$J$o$*$*$O$i$\$-$;$s$b$s$,$C$3$&\e(B             \e$B2-FlBg86Jm5-@lLg3X9;\e(B              \e$BAH?%L>\e(B            # \e$BFaGF;T@t:j\e(B1-13-3
+\e$B$*$-$J$o$*$*$O$i$\$-\e(B                             \e$B2-FlBg86Jm5-\e(B                      \e$BAH?%L>\e(B            # \e$BFaGF;T@t:j\e(B1-13-3 (\e$B!A@lLg3X9;\e(B)
 \e$B$$$s$?!<$J$7$g$J$k$j$>!<$H$+$l$C$8\e(B               \e$B%$%s%?!<%J%7%g%J%k%j%>!<%H%+%l%C%8\e(B        \e$BAH?%L>\e(B            # \e$BFaGF;T6b>k\e(B5-8-6
 \e$B$$$/$;$$$[$$$/$+$l$C$8$,$/$$$s\e(B                   \e$B0i@.J]0i%+%l%C%83X1!\e(B              \e$BAH?%L>\e(B            # \e$B59LnOQ;T;z1'<#Gq\e(B548
 \e$B$$$/$($$$8$e$/$-$g$&$$$s$h$&$;$$$,$/$$$s\e(B \e$B0i1Q5A=N650wM\@.3X1!\e(B              \e$BAH?%L>\e(B            # \e$BFaGF;T>eG720\e(B403-5
-\e$B$;$s$7$e$&$,$C$3$&$5$$$F$/$+$l$C$8\e(B               \e$B@l=$3X9;%5%$!&%F%/!&%+%l%C%8\e(B      \e$BAH?%L>\e(B            # \e$BKLC+D.H~IM\e(B1-5-16
+\e$B$5$$$F$/$+$l$C$8\e(B                         \e$B@l=$3X9;%5%$!&%F%/!&%+%l%C%8\e(B      \e$BAH?%L>\e(B            # \e$BKLC+D.H~IM\e(B1-5-16 (\e$B@l=$3X9;!A\e(B)
 
 #
 #      \e$BN,>N\e(B
 \e$B$*$-$3$/\e(B         \e$B2-9q\e(B                              \e$BAH?%L>\e(B            # \e$B2-Fl9q:]Bg3X\e(B
 \e$B$*$-$3$/$@$$\e(B             \e$B2-9qBg\e(B                            \e$BAH?%L>\e(B            # \e$B2-Fl9q:]Bg3X\e(B
 \e$B$-$j$?$s\e(B         \e$B%-%jC;\e(B                            \e$BAH?%L>\e(B            # \e$B2-Fl%-%j%9%H65C;4|Bg3X\e(B
+\e$B$j$e$&$@$$$U$>$/\e(B \e$BN0Bg650i3XItImB0\e(B          \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1
+\e$B$j$e$&$@$$$-$g$&$$$/$,$/$V$U$>$/\e(B \e$BN0Bg650i3XItImB0\e(B  \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1
+\e$B$j$e$&$-$e$&$@$$$,$/$U$>$/\e(B       \e$BN05eBg3XImB0\e(B              \e$BAH?%L>\e(B            # \e$B@>86D.;z@i86\e(B1 (\e$B!AImB0\e(B)
index 616d5b3..4ca6801 100755 (executable)
@@ -2,7 +2,7 @@
 #
 # oki2jis.pl - ²­Æì¼­½ñ¤Î¥Õ¥¡¥¤¥ë¤ò JIS X 4062 ¤Î·Á¼°¤Î¥Æ¥­¥¹¥È¤ËÊÑ´¹¤¹¤ë
 #
-#              $Id: oki2jis.pl,v 1.1 2002/06/07 11:01:53 void Exp $
+#              $Id: oki2jis.pl,v 1.2 2002/06/07 16:23:50 void Exp $
 #
 # ¤³¤Î¥¹¥¯¥ê¥×¥È¤ò»È¤Ã¤Æ¡¢°Ê²¼¤Î¤è¤¦¤Ë¡Öokinawa.txt¡×¤òÀ¸À®¤·¤Æ¤¯¤À¤µ¤¤¡£
 #     $ nkf -e *.dic | ./oki2vje.pl | sort -u | nkf -s > okinawa.txt
@@ -121,5 +121,5 @@ sub header {
 
 
 sub version {
-       print "¤ª¤­¤Ê¤ï¤¸¤·¤ç¤Î¤Ò¤Å¤±,$year/$mon/$mday²­Æì¼­½ñ¤ÎÆüÉÕ¤±,̾»ì\n";
+       print "¤ª¤­¤Ê¤ï¤¸¤·¤ç¤Î¤Ò¤Å¤±,$year/$mon/$mday(²­Æì¼­½ñ¤ÎÆüÉÕ¤±),̵ÉÊ»ì\n";
 }
diff --git a/script/oki2kotoeri.pl b/script/oki2kotoeri.pl
new file mode 100755 (executable)
index 0000000..2a57feb
--- /dev/null
@@ -0,0 +1,124 @@
+#!/usr/bin/perl
+#
+# oki2kotoeri.pl - ²­Æì¼­½ñ¤Î¥Õ¥¡¥¤¥ë¤ò¤³¤È¤¨¤ê¤ËÆɤ߹þ¤á¤ë·Á¼°¤Î¥Æ¥­¥¹¥È¤ËÊÑ´¹
+#
+#              $Id: oki2kotoeri.pl,v 1.1 2002/06/07 16:23:50 void Exp $
+#
+# ¤³¤Î¥¹¥¯¥ê¥×¥È¤ò»È¤Ã¤Æ¡¢°Ê²¼¤Î¤è¤¦¤Ë¡Öokinawa.txt¡×¤òÀ¸À®¤·¤Æ¤¯¤À¤µ¤¤¡£
+#     $ nkf -e *.dic | ./oki2vje.pl | sort -u | nkf -s > okinawa.txt
+# ÆɤߤÏ20ʸ»ú°ÊÆ⡢ñ¸ì¤Ï32ʸ»ú°ÊÆâ¤Ç¤¹¡£
+# 
+# ¥á¥Ë¥å¡¼¥Ð¡¼¤Î±ôÉ®¥á¥Ë¥å¡¼¤«¤é¡Öñ¸ìÅÐÏ¿/¼­½ñÊÔ½¸...¡×¤òÁª¤Ó¡¢
+# ¡Ö¤³¤È¤¨¤êñ¸ìÅÐÏ¿¡×¥À¥¤¥¢¥í¥°¤ò½Ð¤¹¡£
+# ¥á¥Ë¥å¡¼¥Ð¡¼¤Î¡Ö¼­½ñ¡×¥á¥Ë¥å¡¼¤Î¡Ö¿·µ¬¥æ¡¼¥¶¡¼¼­½ñ¤ÎºîÀ®...¡×¤òÁª¤Ó
+# ÊÌ̾¤ÇÊݸÍó¤Ë¡Öokinawa.dic¡×¤Èµ­Æþ¡£¤³¤Î¤È¤­¤Ë¡Ö¾ì½ê¡×¤¬¡ÖDictionaries¡×¤Ë
+# ¤Ê¤Ã¤Æ¤¤¤ë¤³¤È¤ò³Îǧ¤·¤Æ¡¢¡ÖÊݸ¡×¥Ü¥¿¥ó¤ò²¡¤¹¡£
+# ¡Ö¤³¤È¤¨¤êñ¸ìÅÐÏ¿¡×¥À¥¤¥¢¥í¥°¾åÉô¤Î¡Ö¼­½ñ¡×¤Î¤È¤³¤í¤Ç¡Öokinawa.dic¡×¤òÁª¤Ö¡£
+# ¥á¥Ë¥å¡¼¥Ð¡¼¤Î¡Ö¼­½ñ¡×¥á¥Ë¥å¡¼¤Î¡Ö¥Æ¥­¥¹¥È¤ä¼­½ñ¤«¤é¼è¤ê¹þ¤à...¡×¤òÁª¤Ó¡¢
+# ¤³¤³¤ÇÀè¤Û¤ÉÀ¸À®¤·¤Æ¤ª¤¤¤¿¡Öokinawa.txt¡×¤ò»ØÄê¡£(Áª¤ó¤Ç¡Ö³«¤¯¡×¤ò²¡¤¹)
+
+while (<>) {
+       s/#.*$//;               # `#'°Ü¹Ô¤ò¼è¤êµî¤ë
+       next if (/^\s*$/);      # ¤½¤Î·ë²Ì¶õ¹Ô¤Ë¤Ê¤Ã¤¿¹Ô¤ÏÆɤßÈô¤Ð¤¹¡£
+       /(\S+)\s+(\S+)\s+(\S+)/;
+       $phonate  = $1;         # Æɤß
+       $word = $2;             # Ã±¸ì
+       $class = $3;            # ÉÊ»ì
+       &convert_class;
+}
+&version;
+exit 0;
+
+
+sub convert_class {
+       if ($class eq "ÉáÄÌ̾»ì") {                     # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¥µÊÑ̾»ì") {                  # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¸Çͭ̾»ì") {                  # *
+               print "$phonate,$word,ÉáÄÌ̾»ì\n";
+       }
+       elsif ($class eq "ÁÈ¿¥Ì¾") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¤½¤Î¾¸Çͭ̾»ì") {
+               print "$phonate,$word,¤½¤Î¾¤Î¸Çͭ̾»ì\n";
+       }
+       elsif ($class eq "ÃÏ̾") {                      # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ñ½ãÃÏ̾") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ÀÜÈø¸ìÉÕ¤­ÃÏ̾") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "À«") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¿Í̾") {                      # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "̾") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¤½¤Î¾¤Î¿Í̾") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ÀÜƬ¸ì") {                    # *
+               print "$phonate,$word,ÉáÄÌ̾»ì\n";
+       }
+       elsif ($class eq "¿ô»úÎóÀÜƬ¸ì") {              # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ÀÜÈø¸ì") {                    # *
+               print "$phonate,$word,ÉáÄÌ̾»ì\n";
+       }
+       elsif ($class eq "¿Í̾ÀÜÈø¸ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ÃÏ̾ÀÜÈø¸ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "ÁÈ¿¥Ì¾ÀÜÈø¸ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "¿ô»úÎóÀÜÈø¸ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "Éû»ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "´¶Æ°»ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "·ÁÍÆ»ì") {                    # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "·ÁÍÆÆ°»ì") {                  # OK
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "·Áư̾»ì") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "À®¶ç") {
+               print "$phonate,$word,$class\n";
+       }
+       elsif ($class eq "̵ÉÊ»ì") {                    # OK
+               print "$phonate,$word,$class\n";
+       }
+       else {
+               print STDERR "Error: unknown class `$class': $phonate\t$word\n";
+               print "$phonate,$word,$class\n";
+       }
+}
+
+
+sub version {
+       ($sec, $min, $hour, $mday, $mon, $year) = localtime(time());
+       $year += 1900;
+       $mon++;
+       print "¤ª¤­¤Ê¤ï¤¸¤·¤ç¤Î¤Ò¤Å¤±,$yearǯ$mon·î$mdayÆü(²­Æì¼­½ñ¤ÎÆüÉÕ¤±),̵ÉÊ»ì\n";
+}