X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=sample3.pl;h=1db4b76fa339b518750e24af0b0c842f5ea28b2d;hb=4e29f347c4c332068dfb46966a39f10fb92cc2cc;hp=d2ea7102efebc4450443618b2b41efb7c689ae80;hpb=0378b21385a2a9801c80814bd91aa28effdf8296;p=chise%2Fperl.git

diff --git a/sample3.pl b/sample3.pl
index d2ea710..1db4b76 100644
--- 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";
 }