sample3.pl

   1 # sample3.pl
   2 # $Id: sample3.pl,v 1.3 2003-10-08 13:30:29 moro Exp $
   3
   4 use CHISE_REG;
   5 use utf8;
   6 #use re "debug";
   7
   8 if ('山川' =~ /(.)\same_total-strokes_1/) {
   9   print STDERR "matched!\n";
  10 } else {
  11   print STDERR "unmatched...\n";
  12 }