revised

diff --git a/perl/index.html.ja.iso-2022-jp b/perl/index.html.ja.iso-2022-jp
index ebd2e1c..6d4aa63 100644 (file)
--- a/perl/index.html.ja.iso-2022-jp
+++ b/perl/index.html.ja.iso-2022-jp
@@ -42,13 +42,15 @@
 
 <pre>use UTF2000;
 
-# \e$B=t66HV9f$KBP1~$9$k4A;z$N2h?t$rI=<($9$k\e(B
-my $s = UTF2000->new(ideograph_daikanwa => 8916);
-print $s->strokes, "\n";
+my $s1 = UTF2000->new(ideograph_daikanwa => 6942); # \e$B!V;z!W\e(B
+print $s1->strokes, "\n"; # \e$B2h?t$rI=<(\e(B
 
-# \e$B2h?t\e(B15\e$B!"It<s\e(B11(\e$BF~\e(B)\e$B$N4A;z\e(B
-my $s1 = UTF2000->new(strokes => 15, radical => 11);
-print join("\n", $s1->morohashi_daikanwa), "\n";</pre>
+my $s2 = UTF2000->new(shinjigen_2 => 1777); # \e$B!V;z!W\e(B
+print $s2->compare($s1) * 100, "%\n"; # $s1\e$B$H\e(B$s2\e$B$rHf3S$7$F0lCWN($rI=<(\e(B
+
+# \e$B2h?t\e(B15\e$B!"\e$A2?JW\e(B9(\e$B$K$s$Y$s\e(B)\e$B$N4A;z$r?7$?$K:n$k\e(B
+my $s3 = UTF2000->define_char(strokes => 15, radical => 9);
+</pre>
 
 <h2>METHOD</h2>
 
@@ -59,7 +61,7 @@ print join("\n", $s1->morohashi_daikanwa), "\n";</pre>
       <li>\e$B%G!<%?%Y!<%9$N%"%/%;%9$N9bB.2=\e(B</li>
       <li>IDS\e$B$,$i$_\e(B
        <ul>
-         <li><code>$s = UTF2000-&gt;new(ids =&gt; &quot;...&quot;)</code>
+         <li><code>$s = UTF2000-&gt;define_char(ids =&gt; &quot;...&quot;)</code>
            \e$B$_$?$$$J$3$H$,$G$-$k$h$&$K!#\e(B
          <li>decompose\e$B%a%=%C%I\e(B</li>
          <li>include\e$B%a%=%C%I\e(B
@@ -83,7 +85,7 @@ print join("\n", $s1->morohashi_daikanwa), "\n";</pre>
 
     <p>
 <!-- hhmts start -->
-Last modified: Tue Jan 28 05:39:31 JST 2003
+Last modified: Sat Feb  1 12:42:37 JST 2003
 <!-- hhmts end -->.
     </p>