fix GT-K in %er_aliases.

[chise/perl.git] / sample3.pl

diff --git a/sample3.pl b/sample3.pl
index d2ea710..e4a276e 100644 (file)
--- a/sample3.pl
+++ b/sample3.pl
@@ -1,9 +1,12 @@
-use CHISE;
+# sample3.pl
+# $Id: sample3.pl,v 1.3 2003-10-08 13:30:29 moro Exp $
+
+use CHISE_REG;
 use utf8;
+#use re "debug";
 
-my $target = '山川';
-if ($target =~ /(.)\same_strokes_1/) {
-  print "matched!\n";
+if ('山川' =~ /(.)\same_total-strokes_1/) {
+  print STDERR "matched!\n";
 } else {
-  print "unmatched...\n";
+  print STDERR "unmatched...\n";
 }