projects
/
chise
/
perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add utf8::decode().
[chise/perl.git]
/
sample2.pl
diff --git
a/sample2.pl
b/sample2.pl
index
7c9833c
..
1c18f5f
100644
(file)
--- a/
sample2.pl
+++ b/
sample2.pl
@@
-1,8
+1,9
@@
-# compareć®sample
+# sample2.pl (compareć®sample)
+# $Id: sample2.pl,v 1.3 2003-10-08 13:30:29 moro Exp $
use CHISE;
my $s1 = CHISE->define_char(strokes => 12, radical => 9);
use CHISE;
my $s1 = CHISE->define_char(strokes => 12, radical => 9);
-my $s2 = CHISE->define_char(strokes => 12, radical => 9, ideograph_daikanwa => 694);
+my $s2 = CHISE->define_char(strokes => 12, radical => 9, daikanwa => 694);
my $c = $s1->compare($s2);
if ($c == $CHISE::EXCLUSIVE) {
my $c = $s1->compare($s2);
if ($c == $CHISE::EXCLUSIVE) {