script/oki2canna.pl

   1 #!/usr/bin/perl
   2 #
   3 # oki2canna.pl - ²Æì¼½ñ¤Î¥Õ¥¡¥¤¥ë¤òCanna¤Ë»ý¤Ã¤Æ¹Ô¤¯¤¿¤á¤Î¥¹¥¯¥ê¥×¥È
   4 #                                                       ¿ð·ÄÍ÷Ã¤
   5 #               $Id: oki2canna.pl,v 1.11 2002/06/09 12:01:02 void Exp $
   6 # »ÈÍÑÎã:
   7 #    $ cat *.dic | nkf -e | ./oki2canna.pl | sort | uniq > okinawa.txt
   8 #    $ mkbindic okinawa.txt
   9
  10 while (<>) {
  11         s/#.*$//;               # `#'°Ü¹Ô¤ò¼è¤êµî¤ë
  12         next if (/^\s*$/);      # ¤½¤Î·ë²Ì¶õ¹Ô¤Ë¤Ê¤Ã¤¿¹Ô¤ÏÆÉ¤ßÈô¤Ð¤¹¡£
  13         /(\S+)\s+(\S+)\s+(\S+)/;
  14         $yomi  = $1;            # ÆÉ¤ß
  15         $kanji = $2;            # Ã±¸ì
  16         $hinsi = $3;            # ÉÊ»ì
  17         &chk_hinsi;
  18 }
  19 &version;
  20 exit 0;
  21
  22 sub chk_hinsi {
  23         if ($hinsi eq "ÉáÄÌÌ¾»ì") {
  24                 print "$yomi #T35 $kanji\n";
  25         }
  26         elsif ($hinsi eq "¥µÊÑÌ¾»ì") {
  27                 print "$yomi #T30 $kanji\n";
  28         }
  29         elsif ($hinsi eq "ÁÈ¿¥Ì¾") {
  30                 print "$yomi #KK $kanji\n";
  31         }
  32         elsif ($hinsi eq "¤½¤ÎÂ¾¸ÇÍÌ¾»ì") {
  33                 print "$yomi #T35 $kanji\n";            # !!! #CK?  #KK?
  34         }
  35         elsif ($hinsi eq "Ã±½ãÃÏÌ¾") {
  36                 print "$yomi #CN $kanji\n";
  37         }
  38         elsif ($hinsi eq "ÀÜÈø¸ìÉÕ¤ÃÏÌ¾") {
  39                 print "$yomi #CN $kanji\n";
  40         }
  41         elsif ($hinsi eq "À«") {
  42                 print "$yomi #JN $kanji\n";
  43         }
  44         elsif ($hinsi eq "̾") {
  45                 print "$yomi #JN $kanji\n";
  46         }
  47         elsif ($hinsi eq "¤½¤ÎÂ¾¤Î¿ÍÌ¾") {
  48                 print "$yomi #JN $kanji\n";
  49         }
  50         elsif ($hinsi eq "ÀÜÆ¬¸ì") {
  51                 print "$yomi #PRE $kanji\n";
  52         }
  53         elsif ($hinsi eq "¿ô»úÎóÀÜÆ¬¸ì") {
  54                 print "$yomi #PRE $kanji\n";
  55         }
  56         elsif ($hinsi eq "ÀÜÈø¸ì") {
  57                 print "$yomi #T35 $kanji\n";            # !!!
  58         }
  59         elsif ($hinsi eq "¿ÍÌ¾ÀÜÈø¸ì") {
  60                 print "$yomi #T35 $kanji\n";            # !!!
  61         }
  62         elsif ($hinsi eq "ÃÏÌ¾ÀÜÈø¸ì") {
  63                 print "$yomi #T35 $kanji\n";            # !!!
  64         }
  65         elsif ($hinsi eq "ÁÈ¿¥Ì¾ÀÜÈø¸ì") {
  66                 print "$yomi #T35 $kanji\n";            # !!!
  67         }
  68         elsif ($hinsi eq "¿ô»úÎóÀÜÈø¸ì") {
  69                 print "$yomi #T35 $kanji\n";            # !!!
  70         }
  71         elsif ($hinsi eq "Éû»ì") {
  72                 print "$yomi #F04 $kanji\n";
  73         }
  74         elsif ($hinsi eq "´¶Æ°»ì") {
  75                 print "$yomi #CJ $kanji\n";
  76         }
  77         elsif ($hinsi eq "·ÁÍÆ»ì") {
  78                 print "$yomi #T35 $kanji\n";            # !!!
  79         }
  80         elsif ($hinsi eq "·ÁÍÆÆ°»ì") {
  81                 print "$yomi #T05 $kanji\n";
  82         }
  83         elsif ($hinsi eq "·ÁÆ°Ì¾»ì") {
  84                 print "$yomi #T05 $kanji\n";
  85         }
  86         elsif ($hinsi eq "À®¶ç") {
  87                 print "$yomi #T35 $kanji\n";            # !!!
  88         }
  89         elsif ($hinsi eq "ÌµÉÊ»ì") {
  90                 print "$yomi #KJ $kanji\n";
  91         }
  92         else {
  93                 print STDERR "Error: unknown hinsi `$hinsi': $yomi\t$kanji\n";
  94                 print "$yomi ¢® $kanji\n";
  95         }
  96 }
  97
  98 sub version {
  99         ($sec, $min, $hour, $mday, $mon, $year) = localtime(time());
 100         $year += 1900;
 101         $mon++;
 102         print "¤ª¤¤Ê¤ï¤¸¤·¤ç¤Î¤Ò¤Å¤± #T35 $year/$mon/$mday(²Æì¼½ñ¤ÎÆüÉÕ¤±)\n";       # !!!
 103 }