projects
/
chise
/
perl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
make %er_alias and $er_prefix_re global for &de_tex_er().
[chise/perl.git]
/
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
}