From 24f9fd7f97176553d34ad7e2f9530b19d976d221 Mon Sep 17 00:00:00 2001
From: "MORO, Shigeki" <s-moro@hanazono.ac.jp>
Date: Sat, 1 Feb 2003 03:46:21 +0000
Subject: [PATCH] revised

---
 perl/index.html.ja.iso-2022-jp |   18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/perl/index.html.ja.iso-2022-jp b/perl/index.html.ja.iso-2022-jp
index ebd2e1c..6d4aa63 100644
--- a/perl/index.html.ja.iso-2022-jp
+++ b/perl/index.html.ja.iso-2022-jp
@@ -42,13 +42,15 @@
 
 <pre>use UTF2000;
 
-# $B=t66HV9f$KBP1~$9$k4A;z$N2h?t$rI=<($9$k(B
-my $s = UTF2000->new(ideograph_daikanwa => 8916);
-print $s->strokes, "\n";
+my $s1 = UTF2000->new(ideograph_daikanwa => 6942); # $B!V;z!W(B
+print $s1->strokes, "\n"; # $B2h?t$rI=<((B
 
-# $B2h?t(B15$B!"It<s(B11($BF~(B)$B$N4A;z(B
-my $s1 = UTF2000->new(strokes => 15, radical => 11);
-print join("\n", $s1->morohashi_daikanwa), "\n";</pre>
+my $s2 = UTF2000->new(shinjigen_2 => 1777); # $B!V;z!W(B
+print $s2->compare($s1) * 100, "%\n"; # $s1$B$H(B$s2$B$rHf3S$7$F0lCWN($rI=<((B
+
+# $B2h?t(B15$B!"$A2?JW(B9($B$K$s$Y$s(B)$B$N4A;z$r?7$?$K:n$k(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>$B%G!<%?%Y!<%9$N%"%/%;%9$N9bB.2=(B</li>
       <li>IDS$B$,$i$_(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>
 	    $B$_$?$$$J$3$H$,$G$-$k$h$&$K!#(B
 	  <li>decompose$B%a%=%C%I(B</li>
 	  <li>include$B%a%=%C%I(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>
 
-- 
1.7.10.4