perl/index.html.ja.iso-2022-jp

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
   2             "http://www.w3.org/TR/html4/loose.dtd">
   3 <html lang="ja">
   4 <head>
   5 <title>Perl/CHISE: CHaracter Information Service Environment</title>
   6 <link rel=stylesheet href="../chise.css" type="text/css">
   7 </head>
   8 <body>
   9
  10     <p>
  11       [<a href="../index.html.ja.iso-2022-jp">CHISE</a>]
  12       [<a href="../xemacs/index.html.ja.iso-2022-jp">XEmacs CHISE</a>]
  13       [<a href="../ruby/index.html.ja.iso-2022-jp">Ruby/CHISE</a>]
  14       [Perl/CHISE]
  15       [<a href="../topicmaps/index.html.ja.iso-2022-jp">TopicMaps</a>]
  16       [<a href="../ids/index.html.ja.iso-2022-jp">IDS</a>]
  17       [<a href="../glyph/index.html.ja.iso-2022-jp">glyph</a>]
  18       [<a href="../visualization/index.html.ja.iso-2022-jp">Visualization</a>]
  19       [<a href="../omega/index.html.ja.iso-2022-jp">\e$B&8\e(B</a>]
  20     </p>
  21
  22 <h1>
  23 <a href="../index.html.ja.iso-2022-jp">CHISE</a> /
  24 <a name="ruby">Perl/CHISE</a>
  25 </h1>
  26
  27 <hr>
  28
  29     <p>
  30       CHISE \e$BJ8;z%G!<%?%Y!<%9!J8=>u$G$O\e(B <a href="../xemacs/">XEmacs CHISE</a> \e$BMQ$N\e(B
  31       Berkeley DB \e$BHGJ8;z%G!<%?%Y!<%9!K$r\e(B Perl \e$B$+$i%"%/%;%9$9$k%b%8%e!<%k$r\e(B
  32       \e$B3+H/$7$F$$$^$9!#\e(B
  33       \e$B8=:_!"\e(B<a href="#chise">CHISE.pm</a> \e$B$H\e(B <a href="#chise_reg">CHISE_REG.pm</a> \e$B$N\e(B
  34       2\e$B%b%8%e!<%k$,$"$j$^$9!#\e(B
  35     </p>
  36
  37
  38 <h2><a name="chise">CHISE.pm</a></h2>
  39
  40 <h3>NAME</h3>
  41
  42     <p>
  43       CHISE
  44     </p>
  45
  46 <h3>SYNOPSIS</h3>
  47
  48 <pre>use CHISE;
  49 my $s1 = CHISE->define_char(strokes => 12, radical => 9);
  50 my $s2 = CHISE->define_char(strokes => 12, radical => 9,
  51 ideograph_daikanwa => 694);
  52 my $c = $s1->compare($s2);
  53 if ($c == $CHISE::EXCLUSIVE) {
  54 print "\e$BGSB>E*\e(B\n";
  55 } elsif ($c == $CHISE::HAVE_INTERSECTION) {
  56 print "\e$B6&DLItJ,$"$j\e(B\n";
  57 } elsif ($c == $CHISE::PROPER_SUBSET) {
  58 print "\e$B40A4ItJ,=89g\e(B\n";
  59 } elsif ($c == $CHISE::PROPER_SUPERSET) {
  60 print "\e$B40A4>e0L=89g\e(B\n";
  61 } elsif ($c == $CHISE::EQSET) {
  62 print "\e$B40A40lCW\e(B\n";
  63 }</pre>
  64
  65 <h3>METHOD</h3>
  66
  67     <dl>
  68       <dt><code>new(\e$BB0@-L>\e(B=&gt;\e$BCM\e(B)</code></dt>
  69       <dd>\e$BB0@-L>$H$=$NCM$KBP1~$9$kJ8;z%*%V%8%'%/%H$r@8@.$9$k!#\e(B
  70         \e$B4XO"$9$kB>$NB0@-$b<+F0E*$K<h$j9~$^$l$k!#\e(B
  71       <dt><code>define_char(\e$BB0@-L>\e(B=&gt;\e$BCM\e(B[, ...])</code></dt>
  72       <dd>\e$BB0@-L>$H$=$NCM\e(B(\e$B$N=89g\e(B)\e$B$r;}$DJ8;z%*%V%8%'%/%H$r?7$7$/@8@.$9$k!#\e(B
  73       <dt><code>dump_attr</code></dt>
  74       <dd>\e$BJ8;z%*%V%8%'%/%H$,;}$DB0@-$NL>A0$HCM$r=PNO$9$k!#\e(B
  75       <dt><code>add_attr(\e$BB0@-L>\e(B=&gt;\e$BCM\e(B)</code></dt>
  76       <dd>\e$BJ8;z%*%V%8%'%/%H$KB0@-L>$H$=$NCM$rDI2C$9$k!#\e(B
  77       <dt><code>del_attr(\e$BB0@-L>\e(B)</code></dt>
  78       <dd>\e$BJ8;z%*%V%8%'%/%H$+$iB0@-$r:o=|$9$k!#\e(B
  79       <dt><code>compare(\e$B%*%V%8%'%/%HL>\e(B)</code></dt>
  80       <dd>\e$BJ8;z%*%V%8%'%/%H$NB0@-$I$&$7$rHf3S$7$F!"$=$N=E$J$j6q9g$rJV$9!#\e(B
  81     </dl>
  82
  83 <h2><a name="chise_reg">CHISE_REG.pm</a></h2>
  84
  85 <h3>NAME</h3>
  86
  87     <p>
  88       CHISE_REG
  89     </p>
  90
  91 <h3>SYNOPSIS</h3>
  92
  93 <pre>#!/usr/bin/perl -w
  94 use CHISE_REG;
  95 use utf8;
  96
  97 if ('\e$B;3@n\e(B' =~ /(.)\same_total-strokes_1/) {
  98   print STDERR "matched!\n";
  99 } else {
 100   print STDERR "unmatched...\n";
 101 }</pre>
 102
 103 <h2>TO DO</h2>
 104
 105     <ul>
 106       <li>\e$B<BAu$,$i$_\e(B
 107         <ul>
 108           <li>libchise\e$B2=\e(B</li>
 109           <li>\e$B%G!<%?%Y!<%9$X$N=q$-9~$_\e(B</li>
 110         </ul></li>
 111       <li>IDS\e$B$,$i$_\e(B
 112         <ul>
 113           <li>decompose\e$B%a%=%C%I\e(B</li>
 114           <li>include\e$B%a%=%C%I\e(B
 115             (\e$B$"$k%*%V%8%'%/%H$KItIJ$,4^$^$l$F$$$k$+D4$Y$k\e(Bboolean)</li>
 116           <li>KAGE\e$B%5!<%P$H$N@\B3\e(B</li>
 117         </ul></li>
 118       <li>\e$BB>$N\e(BOS\e$B$X$NBP1~\e(B
 119         <ul>
 120           <li>\e$B%G!<%?%Y!<%9$N\e(BPath(\e$B4D6-JQ?t!)\e(B)</li>
 121           <li>\e$B%G!<%?%Y!<%9$NG[I[J}K!\e(B</li>
 122         </ul></li>
 123     </ul>
 124
 125
 126 <hr>
 127
 128 <h2>\e$BJ8=q!&H/I=\e(B</h2>
 129
 130     <ul>
 131       <li><a href="http://ya.sakura.ne.jp/~moro/">\e$B;ULP<y\e(B</a>
 132       \e$B!V\e(BUTF2000.pm: overview\e$B!W\e(B
 133       (CHISE14\e$B%7%s%]%8%&%`!"\e(BATR\e$B!"\e(B2003\e$BG/\e(B2\e$B7n\e(B1\e$BF|\e(B)
 134       <a href="../papers/20030201moro/20030201perlUTF2000.html">HTML</a>,
 135       <a href="../papers/20030201moro/20030201perlUTF2000.sxi">OpenOffice</a>
 136       </li>
 137
 138       <li><a href="http://ya.sakura.ne.jp/~moro/">\e$B;ULP<y\e(B</a>
 139       <a href="http://lc.linux.or.jp/paper/lc2003/CP-10.pdf"
 140       >\e$B!V\e(BPerl/CHISE \e$B$K$h$k@55,I=8=$N3HD%$N;n$_\e(B
 141       \e$B!=J8;zAG@-$K$h$k8eJ};2>H$N<BAu<B83$H2]Bj!=!W\e(B</a>
 142       \e$B!J\e(B<a href="http://lc.linux.or.jp/paper/lc2003/"
 143       >Linux Conference \e$B>6O?=8\e(B: \e$BBh\e(B1\e$B4,\e(B (2003\e$BG/\e(B)</a>, ISSN 1348-7876\e$B!K\e(B</li>
 144
 145       <li><a href="http://ya.sakura.ne.jp/~moro/">\e$B;ULP<y\e(B</a>
 146       <a href="http://www.ipsj.or.jp/members/SIGNotes/Jpn/17/2003/061/article003.html"
 147       >N\e$B%0%i%`$HJ8;z%G!<%?%Y!<%9$K$h$k4A;zJ)65J88%$NJ,@O\e(B</a>
 148       \e$B!J\e(B<a href="http://www.ipsj.or.jp/members/SIGNotes/Jpn/17/2003/061/"
 149       >\e$B!X>pJs=hM}3X2q8&5fJs9p!Y\e(BVol. 2004, No. 7 (2004-CH-61)</a>\e$B!"\e(B
 150       2004\e$BG/\e(B1\e$B7n!"\e(Bpp. 13-18\e$B!K\e(B</li>
 151     </ul>
 152
 153 <hr>
 154
 155     <p>
 156       [<a href="../">\e$BLa$k\e(B</a>]
 157     </p>
 158
 159     <p>
 160 <!-- hhmts start -->
 161 Last modified: Thu Mar 13 01:54:38 JST 2003
 162 <!-- hhmts end -->.
 163     </p>
 164
 165
 166 </body>
 167 </html>