created.

[chise/perl.git] / sample3.pl

diff --git a/sample3.pl b/sample3.pl
index d2ea710..1db4b76 100644 (file)
--- a/sample3.pl
+++ b/sample3.pl
@@ -1,9 +1,10 @@
-use CHISE;
+#!/usr/bin/perl -w
+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";
 }