ShiftJIS::Regexp - Shift-JIS‚Å‘‚©‚ꂽ³‹K•\Œ»
‚±‚ÌPOD‚ÍAShift-JIS‚Å‘‚©‚ê‚Ä‚¢‚Ü‚·B
'‚ ' ‚ª HIRAGANA LETTER A ‚ÉŒ©‚¦‚Ü‚·‚© ?
‚Ü‚½A'\' ‚ª REVERSE SOLIDUS ‚Å‚Í‚È‚ YEN SIGN ‚ÉŒ©‚¦‚Ü‚·‚© ?
‚³‚à‚È‚¯‚ê‚΃tƒHƒ“ƒg‚𳂵‚¢‚à‚Ì‚ÉŒðŠ·‚µ‚½•û‚ª‚æ‚¢‚Å‚µ‚傤B (‚ ‚é‚¢‚Í POD ‚ª•Ï‚È•ÏŠ·‚ð‚³‚ê‚½‚Ì‚©‚à’m‚ê‚Ü‚¹‚ñB)
use ShiftJIS::Regexp qw(:all);
match('‚ ‚¨‚P‚Q', '\p{Hiragana}{2}\p{Digit}{2}');
# ‚±‚ê‚ÍŽŸs‚Æ“™‰¿‚Å‚·B
match('‚ ‚¨‚P‚Q', '\pH{2}\pD{2}');
match('‚ ‚¢‚¢‚¤‚¤‚¤', '^‚ ‚¢+‚¤{3}$');
replace($str, 'A', '‚`', 'g');
‚±‚̃‚ƒWƒ…[ƒ‹‚ÍA³‹K•\Œ»‚ðShift-JIS‚Å‘‚¢‚ÄPerl‚Å—p‚¢‚邽‚ß‚Ì Šô‚‚©‚ÌŠÖ”‚ð’ñ‹Ÿ‚µ‚Ü‚·B
‚±‚̃‚ƒWƒ…[ƒ‹‚É‚¨‚¢‚ij‚µ‚¢ Shift-JIS •¶Žš‚ÍA ˆÈ‰º‚̳‹K•\Œ»‚Ƀ}ƒbƒ`‚·‚é‚à‚Ì‚Å‚È‚¯‚ê‚΂Ȃè‚Ü‚¹‚ñB
[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]
ƒ}ƒ‹ƒ`ƒoƒCƒgƒGƒ“ƒR[ƒfƒBƒ“ƒO‚É‚¨‚¯‚éŒëƒ}ƒbƒ`‚ð”ð‚¯‚é‚½‚ßA ‚±‚̃‚ƒWƒ…[ƒ‹‚ł̓}ƒbƒ`ƒ“ƒO‚ª–ˆ‰ñ•¶Žš‹«ŠEã‚Ås‚í‚ê‚邽‚ß‚Ì ³‹K•\Œ»‚ð—^‚¦‚ç‚ꂽƒpƒ^[ƒ“‚É•t‰Á‚µ‚Ä‚¢‚Ü‚·B
perlfaq6 ‚Ì "How can I match strings with multibyte characters?" ‚ðŽQÆB
‚Ü‚½AŒãq‚ÌuŒëƒ}ƒbƒ`‚ð”ð‚¯‚év‚àŽQÆ‚µ‚Ä‚‚¾‚³‚¢B
re(PATTERN)
re(PATTERN, MODIFIER)Shift-JIS‚Å‘‚©‚ꂽ³‹K•\Œ»‚ðPerl‚Ńp[ƒX‰Â”\‚Ȃ悤‚É•ÏŠ·‚µ‚Ä•Ô‚µ‚Ü‚·B
PATTERN‚É‚ÍAShift-JIS‚Å‘‚©‚ꂽ³‹K•\Œ»‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
MODIFIER‚Æ‚µ‚Ä‚ÍAˆÈ‰º‚ÌCüŽqi•¡”Žw’è‰Âj‚𕶎š—ñ‚Å—^‚¦‚Ü‚·B
i ‘啶Žš^¬•¶Žš‚ð‹æ•Ê‚µ‚È‚¢ (ASCIIƒAƒ‹ƒtƒ@ƒxƒbƒg)
I ‘啶Žš^¬•¶Žš‚ð‹æ•Ê‚µ‚È‚¢ (ƒMƒŠƒVƒƒ•¶ŽšAƒLƒŠƒ‹•¶ŽšA‘SŠpƒ‰ƒeƒ“•¶Žš)
j •½‰¼–¼‚ƕЉ¼–¼‚ð‹æ•Ê‚µ‚È‚¢i‚µ‚©‚µ”¼Šp•Ð‰¼–¼‚Íl—¶‚³‚ê‚Ü‚¹‚ñj
s •¶Žš—ñ‚ð’Pˆês‚Æ‚µ‚Ĉµ‚¤
m •¶Žš—ñ‚ð•¡”s‚Æ‚µ‚Ĉµ‚¤
x ƒoƒbƒNƒXƒ‰ƒbƒVƒ…‚ÌŒã‚Ü‚½‚Í•¶ŽšƒNƒ‰ƒX‚Ì’†‚É‚È‚¢‹ó”’•¶Žš (‚‚܂è [\x20\n\r\t\f])
‚𖳎‹‚·‚éB‚µ‚©‚µƒRƒƒ“ƒg‚Í”FŽ¯‚µ‚Ü‚¹‚ñB
o ˆê‰ñƒp[ƒX‚µ‚ÄiƒRƒ“ƒpƒCƒ‹‚Å‚Í‚ ‚è‚Ü‚¹‚ñ!) Œ‹‰Ê‚ð“à•”‚ɃLƒƒƒbƒVƒ…‚µ‚Ü‚·B
re('^ƒRƒ“ƒsƒ…[ƒ^[?$')‚ÍA'ƒRƒ“ƒsƒ…[ƒ^['‚Ü‚½‚Í'ƒRƒ“ƒsƒ…[ƒ^'‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
re('^‚ç‚‚¾$','j') ‚ÍA'‚ç‚‚¾', 'ƒ‰ƒNƒ_', '‚çƒN‚¾', ‚ȂǂɃ}ƒbƒ`‚µ‚Ü‚·B
oCüŽq
while (<DATA>) {
print replace($_, '(perl)', '<strong>$1</strong>', 'igo');
}
‚ÍAŽŸ‚̃R[ƒh‚æ‚è‚àŒø—¦‚ª‚æ‚¢‚Å‚µ‚傤
while (<DATA>) {
print replace($_, '(perl)', '<strong>$1</strong>', 'ig');
}
‚È‚º‚È‚çŒãŽÒ‚Å‚ÍŠÖ”‚ªŒÄ‚΂ê‚邽‚Ñ‚É–ˆ‰ñƒpƒ^[ƒ“‚ðƒp[ƒX‚·‚é‚©‚ç‚Å‚·B
match(STRING, PATTERN)
match(STRING, PATTERN, MODIFIER)‘g‚Ýž‚Ý‚Ì m// ‰‰ŽZŽq‚̂悤‚É“®ì‚µ‚Ü‚·B ‚½‚¾‚µA@list = $string =~ m/PATTERN/g ‚ƈقȂèA ƒLƒƒƒbƒVƒ…‚ÌŠ‡ŒÊ‚ð–Y‚ꂸ‚É•t‚¯‚Ä‚‚¾‚³‚¢B Š‡ŒÊ‚ÍŽ©“®“I‚É‚Í•t‚«‚Ü‚¹‚ñB
$string = "‚ ‚¢‚¤‚¦‚¨";
@list = match($string, '[‚¢‚¦]', 'g'); # ‚¾‚ßBŒ‹‰Ê‚ɃSƒ~‚ª¬‚¶‚é!
@list = match($string,'([‚¢‚¦])','g'); # —Ç‚µB
PATTERN‚ɂ̓pƒ^[ƒ“‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
MODIFIER‚É‚ÍCüŽq‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
i,I,j,s,m,x,o re()‚Ìà–¾‚ð‚²——‚‚¾‚³‚¢B
g ƒOƒ[ƒoƒ‹ƒ}ƒbƒ`
z ƒpƒ^[ƒ“‚ª‹ó•¶Žš—ñ‚Ƀ}ƒbƒ`‚·‚é‚à‚Ì‚Å‚ ‚邱‚Æ‚ðŠÖ”‚É’m‚点‚éB
(‚·‚Ý‚Ü‚¹‚ñB‚±‚ê‚ðŽg‚¤‚ׂ«‚©‚Ç‚¤‚©‚ðŽ©“®“I‚É‚Í”»•Ê‚Å‚«‚Ü‚¹‚ñB)
zCüŽq
ƒpƒ^[ƒ“‚ª‹ó•¶Žš—ñ‚Ƀ}ƒbƒ`‚·‚é‚à‚Ì‚Å‚ ‚éê‡AzCüŽq‚ª‚È‚¢‚Æ ˆÈ‰º‚̂悤‚É‚P‰ñ‚¾‚¯ƒ}ƒbƒ`‚·‚ׂ«‚Æ‚±‚ë‚ð‚Q‰ñƒ}ƒbƒ`‚·‚邱‚Æ‚ª‚ ‚è‚Ü‚·B zCüŽq‚ÍA‚±‚ê‚ð–h‚¬‚Ü‚·B
replace('ƒAƒCƒEƒCƒCƒG', '(?=ƒC)', '‚ ', 'g'); # ƒA‚ ‚ ƒCƒE‚ ‚ ƒC‚ ‚ ƒCƒG
replace('ƒAƒCƒEƒCƒCƒG', '(?=ƒC)', '‚ ', 'gz'); # ƒA‚ ƒCƒE‚ ƒC‚ ƒCƒG
replace(STRING or SCALAR REF, PATTERN, REPLACEMENT)
replace(STRING or SCALAR REF, PATTERN, REPLACEMENT, MODIFIER)‘g‚Ýž‚Ý‚Ì s/// ‰‰ŽZŽq‚̂悤‚É“®ì‚µ‚Ü‚·B
‘æˆê•Ï”‚Æ‚µ‚ăXƒJƒ‰[‚ւ̃Šƒtƒ@ƒŒƒ“ƒX‚ð“n‚·‚ÆAƒXƒJƒ‰[‚ð•ÏX‚µ‚Ä ’uŠ·‰ñ”‚ð•Ô‚µ‚Ü‚·B
‘æˆê•Ï”‚Æ‚µ‚Ä•¶Žš—ñiƒŠƒtƒ@ƒŒƒ“ƒX‚Å‚Í‚È‚¢j‚ð“n‚·‚ÆA—^‚¦‚ç‚ꂽƒXƒJƒ‰[‚Í •ÏX‚¹‚¸A’uŠ·Œã‚Ì•¶Žš—ñ‚ð•Ô‚µ‚Ü‚·B
my $str = '‹à‚P‚T‚R‚O‚O‚O‚O‰~';
1 while replace(\$str, '(\pD)(\pD{3})(?!\pD)', '$1C$2');
print $str; # ‹à‚PC‚T‚R‚OC‚O‚O‚O‰~
MODIFIER‚É‚ÍCüŽq‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
i,I,j,s,m,x,o re()‚Ìà–¾‚ð‚²——‚‚¾‚³‚¢B
g,z match()‚Ìà–¾‚ð‚²——‚‚¾‚³‚¢B
jsplit(PATTERN or ARRAY REF of [PATTERN, MODIFIER], STRING)
jsplit(PATTERN or ARRAY REF of [PATTERN, MODIFIER], STRING, LIMIT)‘g‚Ýž‚Ý‚Ì split() ‰‰ŽZŽq‚̂悤‚É“®ì‚µ‚Ü‚·B
ƒXƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg^ƒ{ƒCƒhƒRƒ“ƒeƒLƒXƒg‚Å“ÁŽê”z—ñ @_ ‚ÉŒ‹‰Ê‚ð“ü‚ê‚邱‚Æ‚Í‚µ‚Ü‚¹‚ñB ƒXƒJƒ‰[ƒRƒ“ƒeƒLƒXƒg‚Å‚ÍAŒ©‚‚©‚Á‚½ƒtƒB[ƒ‹ƒh‚Ì”‚ð•Ô‚·‚¾‚¯‚Å‚·B
PATTERN‚É‚ÍAShift-JIS‚Å‘‚©‚ꂽ³‹K•\Œ»‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
jsplit('^', '‚ ‚¢‚¤^‚¦‚¨ƒ^');
PATTERN ‚É ' ' ‚ð—^‚¦‚Ä‚à“Á•Ê‚ȈӖ¡‚Í‚ ‚è‚Ü‚¹‚ñB ’P‚ÉA‘g‚Ýž‚Ý‚Ì CORE::split / / ‚Æ“¯—l‚ÉAˆêŒÂ‚̃Xƒy[ƒX‚É‚æ‚蕪Š„‚·‚邾‚¯‚Å‚·B
‹ó”’—Þ•¶Žši‚±‚Ìê‡A˜aŽšŠÔŠui‘SŠpƒXƒy[ƒXj‚à‹ó”’—Þ•¶Žš‚Æ‚Ý‚È‚µ‚Ü‚·j‚Å •ªŠ„‚µ‚½‚¢ê‡‚É‚ÍAPATTERN‚É–¢’è‹`’l‚ð—^‚¦‚é‚©A splitspace() ŠÖ”‚ðŽg‚Á‚Ä‚‚¾‚³‚¢B
jsplit(undef, ' @ This is @ perl.');
splitspace(' @ This is @ perl.');
# ('This', 'is', 'perl.')
ƒpƒ^[ƒ“‚ÉCüŽq‚ð‚‚¯‚½‚¢ê‡‚ÍA–³–¼”z—ñ [PATTERN, MODIFIER] ‚ð ‘æˆêˆø”‚É—p‚¢‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
jsplit([ '‚ ', 'jo' ], '01234‚ ‚¢‚¤‚¦‚¨ƒAƒCƒEƒGƒI');
‚ ‚é‚¢‚ÍA–„‚ßž‚ÝCüŽqiŒãqj‚ð—p‚¢‚邱‚Æ‚à‚Å‚«‚Ü‚·B
jsplit('(?jo)‚ ', '01234‚ ‚¢‚¤‚¦‚¨ƒAƒCƒEƒGƒI');
MODIFIER‚É‚ÍCüŽq‚𕶎š—ñ‚Æ‚µ‚Ä—^‚¦‚Ü‚·B
i,I,j,s,m,x,o re()‚Ìà–¾‚ð‚²——‚‚¾‚³‚¢B
splitspace(STRING)
splitspace(STRING, LIMIT)‘g‚Ýž‚Ý‚Ì split(' ', STRING, LIMIT) ‚̂悤‚É“®ì‚µ‚Ü‚·B ‹ó”’—Þ•¶Žši˜aŽšŠÔŠui‘SŠpƒXƒy[ƒXj‚ðŠÜ‚Þj‚É‚æ‚è •¶Žš—ñ STRING ‚𕪊„‚µAŒ‹‰Ê‚̃ŠƒXƒg‚ð•Ô‚µ‚Ü‚·B •¶Žš—ñ擪‚Ì‹ó”’—Þ•¶Žš‚̓tƒB[ƒ‹ƒh‚ðì‚è‚Ü‚¹‚ñB
’ˆÓ: splitspace(STRING, LIMIT) ‚Í jsplit(undef, STRING, LIMIT) ‚Æ“™‰¿‚Å‚·B
splitchar(STRING)
splitchar(STRING, LIMIT)‘g‚Ýž‚Ý‚Ì split(//, STRING, LIMIT) ‚̂悤‚É“®ì‚µ‚Ü‚·B •¶Žš—ñ STRING ‚𕶎š‚²‚Æ‚É•ªŠ„‚µ‚½ƒŠƒXƒg‚ð•Ô‚µ‚Ü‚·B
’ˆÓ: splitchar(STRING, LIMIT) ‚Í jsplit('', STRING, LIMIT) ‚Æ“™‰¿‚Å‚·B
³‹K•\Œ» ˆÓ–¡
^ •¶Žš—ñ‚Ì擪‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
‚½‚¾‚µ 'm' CüŽq‚ðŽg‚Á‚½ê‡‚ÍAs‚Ì擪‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
$ •¶Žš—ñ––”ö‚©A––”ö‚̉üs•¶Žš \n ‚Ì‘O‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
‚½‚¾‚µ 'm' CüŽq‚ðŽg‚Á‚½ê‡‚ÍAs‚Ì––”ö‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
. ‰üs•¶Žš \n ˆÈŠO‚Ì”CˆÓ‚̈ꕶŽš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
‚½‚¾‚µ 's' CüŽq‚ðŽg‚Á‚½ê‡‚ÍA\n‚ðŠÜ‚Þ”CˆÓ‚̈ꕶŽš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
\A •¶Žš—ñ‚Ì擪‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
\Z •¶Žš—ñ––”ö‚©A––”ö‚̉üs•¶Žš \n ‚Ì‘O‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
\z •¶Žš—ñ––”ö‚¾‚¯‚Ƀ}ƒbƒ`‚µ‚Ü‚·B('(?!\n)\Z' ‚Æ“¯‚¶)
\C ˆêŒÂ‚̃IƒNƒeƒbƒg‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
\j ”CˆÓ‚̈ꕶŽš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
‚‚܂肱‚̃‚ƒWƒ…[ƒ‹‚ÅŒ¾‚¤ [\0-\x{FCFC}] ‚Æ“¯‚¶‚Å‚·B
\J ‰üs•¶Žš \n ˆÈŠO‚Ì”CˆÓ‚̈ꕶŽš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
‚‚܂肱‚̃‚ƒWƒ…[ƒ‹‚ÅŒ¾‚¤ [^\n] ‚Æ“¯‚¶‚Å‚·B
* \j ‚Æ \J ‚Æ‚ÍA‚±‚̃‚ƒWƒ…[ƒ‹‚É‚æ‚éŠg’£‚Å‚·B—Ⴆ‚ÎA
match($_, '(\j{5})\z') ‚Í––”ö‚̌ܕ¶Žši\n ‚ðŠÜ‚Þj‚ð•Ô‚µ‚Ü‚·B
match($_, '(\J{5})\Z') ‚Í––”ö‚̌ܕ¶Žši\n ‚Íœ‚j‚ð•Ô‚µ‚Ü‚·B
\a ƒxƒ‹ (BEL)
\b Œã‘Þ (BS) * •¶ŽšƒNƒ‰ƒX‚Ì’†‚¾‚¯ *
\e ƒGƒXƒP[ƒv (ESC)
\f ‘Ž®‘—‚è (FF)
\n ‰üs (LF)
\r •œ‹A (CR)
\t …•½ƒ^ƒu (HT)
\0 ƒiƒ‹•¶Žš (NUL)
\ooo ˆêƒoƒCƒg•¶Žš‚ð”ªi”‚ÅŽw’è
\xhh ˆêƒoƒCƒg•¶Žš‚ð\˜Zi”‚ÅŽw’è
\x{hhhh} “ñƒoƒCƒg•¶Žš‚ð\˜Zi”‚ÅŽw’è
\c[ §Œä•¶Žš
—Ⴆ‚Î \012 \123 \x5c \x5C \x{824F} \x{9Fae} \cA \cZ \c^ \c? ‚È‚ÇB
’Êí‚ÌŒ`Ž® È—ªŒ` POSIXŒ`Ž® •¶Žš‚¨‚æ‚Ñ•¶Žš‚͈̔͂ɂæ‚é’è‹`
\d [0-9]
\D [^0-9]
\w [0-9A-Z_a-z]
\W [^0-9A-Z_a-z]
\s [\t\n\r\f ]
\S [^\t\n\r\f ]
\p{Xdigit} \pX [[:xdigit:]] [0-9A-Fa-f]
\p{Digit} \pD [[:digit:]] [0-9‚O-‚X]
\p{Upper} \pU [[:upper:]] [A-Z‚`-‚y]
\p{Lower} \pL [[:lower:]] [a-z‚-‚š]
\p{Alpha} \pA [[:alpha:]] [A-Za-z‚`-‚y‚-‚š]
\p{Alnum} \pQ [[:alnum:]] [0-9A-Za-z‚O-‚X‚`-‚y‚-‚š]
\p{Word} \pW [[:word:]] [_\p{Digit}\p{European}\p{Kana}\p{Kanji}]
\p{Punct} \pP [[:punct:]] [!-/:-@[-`{-~¡-¥A-IL-Q\-¬¸-¿È-ÎÚ-èð-÷ü„Ÿ-„¾]
\p{Graph} \pG [[:graph:]] [\p{Word}\p{Punct}]
\p{Print} \pT [[:print:]] [\x20\x{8140}\p{Graph}]
\p{Space} \pS [[:space:]] [\x20\x{8140}\x09-\x0D]
\p{Blank} \pB [[:blank:]] [\x20\x{8140}\t]
\p{Cntrl} \pC [[:cntrl:]] [\x00-\x1F\x7F]
\p{ASCII} [[:ascii:]] [\x00-\x7F]
\p{Roman} \pR [[:roman:]] [\x21-\x7E]
\p{Hankaku} \pY [[:hankaku:]] [\xA1-\xDF]
\p{Zenkaku} \pZ [[:zenkaku:]] [\x{8140}-\x{FCFC}]
( \p{^Zenkaku} \p^Z [[:^zenkaku:]] [\x00-\x7F\xA1-\xDF] )
\p{X0201} [[:x0201:]] [\x20-\x7F\xA1-\xDF]
\p{X0208} [[:x0208:]] [\x{8140}-¬¸-¿È-ÎÚ-èð-÷ü‚O-‚X‚`-‚y‚-‚š‚Ÿ-‚ñƒ@-ƒ–ƒŸ-ƒ¶ƒ¿-ƒÖ„@-„`„p-„‘„Ÿ-„¾ˆŸ-˜r˜Ÿ-ê¤]
\p{X0211} [[:x0211:]] [\x00-\x1F]
\p{JIS} \pJ [[:jis:]] [\p{X0201}\p{X0208}\p{X0211}]
\p{NEC} \pN [[:nec:]] [\x{8740}-\x{875D}\x{875f}-\x{8775}\x{877E}-\x{879c}\x{ed40}-\x{eeec}\x{eeef}-\x{eefc}]
\p{IBM} \pI [[:ibm:]] [\x{fa40}-\x{fc4b}]
\p{Vendor} \pV [[:vendor:]] [\p{NEC}\p{IBM}]
\p{MSWin} \pM [[:mswin:]] [\p{JIS}\p{NEC}\p{IBM}]
\p{Halfwidth} [[:halfwidth:]] [!#$%&()*+,./0-9:;<=>?@A-Z\[\\\]^_`a-z{|}~]
\p{Fullwidth} \pF [[:fullwidth:]] [I”“•ij–{CD^‚O-‚XFGƒ„H—‚`-‚ymnOQM‚-‚šobpP]
\p{Latin} [[:latin:]] [A-Za-z]
\p{FullLatin} [[:fulllatin:]] [‚`-‚y‚-‚š]
\p{Greek} [[:greek:]] [ƒŸ-ƒ¶ƒ¿-ƒÖ]
\p{Cyrillic} [[:cyrillic:]] [„@-„`„p-„‘]
\p{European} \pE [[:european:]] [A-Za-z‚`-‚y‚-‚šƒŸ-ƒ¶ƒ¿-ƒÖ„@-„`„p-„‘]
\p{HalfKana} [[:halfkana:]] [¦-ß]
\p{Hiragana} \pH [[:hiragana:]] [‚Ÿ-‚ñJKTU]
\p{Katakana} \pK [[:katakana:]] [ƒ@-ƒ–[RS]
\p{FullKana} [\pH\pK] [[:fullkana:]] [‚Ÿ-‚ñƒ@-ƒ–JK[TURS]
\p{Kana} [[:kana:]] [¦-ß‚Ÿ-‚ñƒ@-ƒ–JK[TURS]
\p{Kanji0} \p0 [[:kanji0:]] [V-Z]
\p{Kanji1} \p1 [[:kanji1:]] [ˆŸ-˜r]
\p{Kanji2} \p2 [[:kanji2:]] [˜Ÿ-ê¤]
\p{Kanji} [\p0\p1\p2] [[:kanji:]] [V-ZˆŸ-˜r˜Ÿ-ê¤]
\p{BoxDrawing} [[:boxdrawing:]] [„Ÿ-„¾]
\p{NEC} ‚ÍANEC“ÁŽê•¶Žš‚ÆNEC‘I’èIBMŠg’£•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B \p{IBM} ‚ÍAIBMŠg’£•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B \p{Vendor} ‚ÍAƒ}ƒCƒNƒƒ\ƒtƒg (Microsoft) CP932‚̃xƒ“ƒ_[’è‹`•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B‚‚܂èA[\p{NEC}\p{IBM}] ‚Æ“™‰¿‚Å‚·B \p{MSWin} ‚ÍAƒ}ƒCƒNƒƒ\ƒtƒg (Microsoft) CP932‚Ì•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B\p{Kanji0} ‚ÍAJIS X 4061 ‚ÌŬŠ¿Žš•¶ŽšƒNƒ‰ƒX‚Ì•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B \p{Kanji1} ‚ÍAJIS X 0208 ‚Ì‘æˆê…€Š¿Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B \p{Kanji2} ‚ÍAJIS X 0208 ‚Ì‘æ“ñ…€Š¿Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B \p{Kanji} ‚ÍAJIS X 4061 ‚ÌŠî–{Š¿Žš•¶ŽšƒNƒ‰ƒX‚Ì•¶Žš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B\p{Prop}, \P{^Prop}, [\p{Prop}] ‚Ȃǂ݂͌¢‚É“™‰¿‚Å‚·B ‚±‚Ì•âW‡‚ÍA\P{Prop}, \p{^Prop}, [\P{Prop}], [^\p{Prop}] ‚È‚Ç‚Å•\‚·‚±‚Æ‚ª‚Å‚«‚Ü‚·B\pP, \P^P, [\pP] ‚Ȃǂ݂͌¢‚É“™‰¿‚Å‚·B ‚±‚Ì•âW‡‚ÍA\PP, \p^P, [\PP], [^\pP] ‚È‚Ç‚Å•\‚·‚±‚Æ‚ª‚Å‚«‚Ü‚·B[[:class:]] ‚Í [^[:^class:]] ‚Æ“™‰¿‚Å‚·B ‚±‚Ì•âW‡‚ÍA[[:^class:]] ‚Ü‚½‚Í [^[:class:]] ‚Å‚·B\p{Prop}, \P{Prop}, [:class:] ‚Ì•\Œ»‚É‚¨‚¢‚ÄA Prop ‚¨‚æ‚Ñ class ‚Ì•”•ª‚Å‚ÍA‘啶Žš^¬•¶Žš‚̈Ⴂ‚Í–³Ž‹‚³‚ê‚Ü‚·B —Ⴆ‚Î \p{digit}, [:BoxDrawing:] ‚È‚Ç‚ð—p‚¢‚邱‚Æ‚à‚Å‚«‚Ü‚·B\p{Prop} ‚¨‚æ‚Ñ \P{Prop} ‚Ì•\Œ»‚É‚¨‚¢‚ÄAÚ“ªŽ« Is ‚¨‚æ‚Ñ In (—Ⴆ‚Î \p{IsProp}, \P{InProp}, etc.) ‚ð”CˆÓ‚É•t‚¯‚邱‚Æ‚ª‚Å‚«‚Ü‚·B ‚µ‚©‚µÚ“ªŽ« Is ‚¨‚æ‚Ñ In ‚͑啶Žš^¬•¶Žš‚̈Ⴂ‚ð‹æ•Ê‚µ‚Ü‚·‚Ì‚ÅA \p{isProp}, \p{ISProp} ‚È‚Ç‚Í•s‰Â‚Å‚·B•¶ŽšƒNƒ‰ƒX‚Ì’†‚É‚ÍAƒŠƒeƒ‰ƒ‹•¶ŽšAƒƒ^•¶ŽšA’è‹`Ï‚Ý•¶ŽšƒNƒ‰ƒX‚ð “ü‚ê‚邱‚Æ‚ª‚Å‚«‚Ü‚·B ‚Ü‚½A•¶ŽšƒNƒ‰ƒX’†‚Å‚ÍA•¶Žš‚͈̔͂ðŽg‚¤‚±‚Æ‚ª‚Å‚«‚Ü‚·B •¶Žš‚͈̔͂̒[“_‚ÍAƒŠƒeƒ‰ƒ‹•¶Žš‚©ƒƒ^•¶Žš‚ÅŽw’肵‚Ü‚·B
Shift-JIS •¶Žš‚̇˜‚Í: 0x00 .. 0x7F, 0xA1 .. 0xDF, 0x8140 .. 0x9FFC, 0xE040 .. 0xFCFC.
‚»‚ê‚䂦 [\0-\x{fcfc}] ‚ÍAShift-JIS ‚Ì”CˆÓ‚̈ꕶŽš‚Ƀ}ƒbƒ`‚µ‚Ü‚·B
•¶ŽšƒNƒ‰ƒX’†‚Å‚ÍAShift-JIS•¶Žš‚Æ‚µ‚Ä•s³‚ȃoƒCƒg‚Ü‚½‚̓oƒCƒg—ñ‚ÍŽg‚¦‚Ü‚¹‚ñ (—Ⴆ‚Î re('[\xA0-\xFF]'))BƒGƒ‰[‚É‚È‚è‚Ü‚·B
ƒo[ƒWƒ‡ƒ“ 0.13 ‚©‚ç POSIX ‚Ì“™‰¿•¶ŽšƒNƒ‰ƒX [=x=] ‚ªƒTƒ|[ƒg‚³‚ê‚Ü‚·B —Ⴆ‚ÎA[[=‚ =]] ‚Í [‚Ÿƒ@§‚ ƒA±] ‚ÆA [[=P=]] ‚Í [pP‚‚o] ‚ÆA[[=4=]] ‚Í [4‚S] ‚ÆA‚»‚ꂼ‚ê“™‰¿‚Å‚·B ‚±‚ê‚ç‚ÍA•¶ŽšƒNƒ‰ƒX‚Ì’†‚Å [[=c=]]A[[=p=][=e=][=r=][=l=]] ‚̂悤‚É‚µ‚Ä Žg‚¤‚±‚Æ‚ª‚Å‚«‚Ü‚·B
[=x=] ‚Ì’†‚É‚ÍA”CˆÓ‚Ì•¶ŽšƒŠƒeƒ‰ƒ‹‚Ü‚½‚̓ƒ^•¶Žš \xhh, \x{hhhh} ‚ð —p‚¢‚邱‚Æ‚ª‚Å‚«‚Ü‚·B“™‰¿•¶ŽšƒNƒ‰ƒX‚É‘®‚·‚镶Žš‚Ì‚¤‚¿A‚Ç‚Ì•¶Žš‚ðŽg‚Á‚Ä‚à ‚©‚Ü‚¢‚Ü‚¹‚ñB—Ⴆ‚ÎA[=‚ =], [=ƒA=], [=\x{82A0}=], [=\xB1=] ‚È‚Ç‚ÍAŒÝ‚¢‚É“¯‚¶ˆÓ–¡‚ðŽ‚¿‚Ü‚·B
[[=‚©=]] ‚Í '‚©', 'ƒJ', '¶', '‚ª', 'ƒK', '¶Þ', 'ƒ•' ‚Ƀ}ƒbƒ`‚µ‚Ü‚·B('¶Þ' ‚Í“ñ•¶Žš‚Å‚·‚ªAƇ—v‘f‚Æ‚µ‚Ă͈ê‚‚ł·B ‘÷‰¹A”¼‘÷‰¹‚ð‚à‚ƒJƒi‚ÌƇ—v‘f‚ÍA ‘÷‰¹A”¼‘÷‰¹‚ð•\‚·“ñ•¶Žš‚Ì”¼Šp•Ð‰¼–¼‚©‚ç‚Ȃ镶Žš—ñ‚ðŠÜ‚Ý‚Ü‚·B
[[===]] ‚Í EQUALS SIGN ‚© FULLWIDTH EQUALS SIGN ‚ƃ}ƒbƒ`‚µ‚Ü‚·B [[=[=]] ‚Í LEFT SQUARE BRACKET ‚© FULLWIDTH LEFT SQUARE BRACKET ‚ƃ}ƒbƒ`‚µ‚Ü‚·B [[=]=]] ‚Í RIGHT SQUARE BRACKET ‚© FULLWIDTH RIGHT SQUARE BRACKET ‚ƃ}ƒbƒ`‚µ‚Ü‚·B [[=\=]] ‚Í YEN SIGN ‚© FULLWIDTH YEN SIGN ‚ƃ}ƒbƒ`‚µ‚Ü‚·B
Šg’£³‹K•\Œ» (?{ ... }) ‚Ü‚½‚Í (??{ ... }) ‚ÍA “ñƒoƒCƒg•¶Žš‚É“Á‚É’ˆÓ‚𕥂킸‚Ƀp[ƒX‚³‚ê‚Ü‚·B
ƒZƒLƒ…ƒŠƒeƒBã‚Ì——R‚É‚æ‚èA(?{ ... }) ‚¨‚æ‚Ñ (??{ ... }) ‚Í ŠÖ” match() ‚â replace() ‚ÅŽg‚¤‚±‚Æ‚ª‚Å‚«‚Ü‚¹‚ñB
‚±‚ê‚ç‚ÍAre() ŠÖ”‚É‚æ‚Á‚ÄPerl‚Ƀp[ƒX‰Â”\‚ȳ‹K•\Œ»‚É•ÏŠ·‚µ‚½‚Ì‚¿A ‚ ‚È‚½‚̃R[ƒh‚̃XƒR[ƒv‚Ì’†‚ų‹K•\Œ»‚ðƒRƒ“ƒpƒCƒ‹‚µ‚Ä‚‚¾‚³‚¢B use re 'eval'; ‚Ì錾‚ª•K—v‚É‚È‚é‚Å‚µ‚傤B
use ShiftJIS::Regexp qw(:all);
use re 'eval';
$::res = 0;
$_ = 'ƒ|' x 8;
my $regex = re(q/
\j*?
(?{ $cnt = 0 })
(
ƒ| (?{ local $cnt = $cnt + 1; })
)*
ƒ|ƒ|ƒ|
(?{ $::res = $cnt })
/, 'x');
/$regex/;
print $::res; # 5
ƒo[ƒWƒ‡ƒ“ 0.15 ‚©‚ç–„‚ßž‚ÝCüŽq‚ªŠg’£‚³‚ê‚Ü‚µ‚½B
–„‚ßž‚ÝCüŽq (?iIjsmxo) ‚ÍAƒpƒ^[ƒ“‚Ì擪‚É‚ ‚éê‡A ‚Ü‚½‚̓pƒ^[ƒ“‚Ì擪‚ª ^, \A, \G ‚Ì‚¢‚¸‚ê‚© ‚Å‚ ‚Á‚Ä–„‚ßž‚ÝCüŽq‚ª‚»‚Ì’¼Œã‚É‚ ‚éꇂɌÀ‚èA –{ƒ‚ƒWƒ…[ƒ‹“ÆŽ©‚ÌCüŽq I, j, o ‚ðŠÜ‚Þ‚±‚Æ‚ª‚Å‚«‚Ü‚·B
e.g. (?sm)pattern ^(?i)pattern \G(?j)pattern \A(?ijo)pattern
Perl 5.005 ˆÈ‘O‚Å‚àAmatch('ƒG', '(?i)ƒg') ‚ͳ‚µ‚‹U‚Æ‚È‚è‚Ü‚·B ‚È‚º‚Ȃ炱‚ê‚Í match('ƒG', 'ƒg', 'i') ‚̂悤‚É“‚‚©‚ç‚Å‚·B
’: 'ƒG' ‚Ì‘æ“ñƒoƒCƒg‚Í 'G' ‚Å‚ ‚èA'ƒg' ‚Ì‘æ“ñƒoƒCƒg‚Í 'g' ‚Å‚·B
‚±‚̃‚ƒWƒ…[ƒ‹‚ÍA ’uŠ·‰‰ŽZŽq‚É‚¨‚¯‚éCüŽq 'e' ‚â while-ß‚É‚æ‚郋[ƒv‚ðƒTƒ|[ƒg‚µ‚Ä‚¢‚Ü‚¹‚ñB
‚±‚ê‚ç‚Ì‹@”\‚ð—˜—p‚·‚é‚É‚ÍA’Êí‚Ì\•¶i‚‚܂èA‘g‚Ýž‚݂̉‰ŽZŽq m// ‚â s///‚ðŽg—p‚·‚éj‚ð’Ê‚·•K—v‚ª‚ ‚è‚Ü‚·B
ˆêƒoƒCƒg•¶Žš‚ª“ñƒoƒCƒg•¶Žš‚Ì‘æ“ñƒoƒCƒg‚Ƀ}ƒbƒ`‚µ‚½‚èA “ñƒoƒCƒg•¶Žš‚ª•¶Žš‹«ŠE‚Ì‘O‚ÆŒã‚Ì“ñƒoƒCƒg‚Ƀ}ƒbƒ`‚µ‚½‚è‚Æ‚¢‚Á‚½ Œëƒ}ƒbƒ`‚ð”ð‚¯‚é‚½‚ßA³‹K•\Œ» '\A(\j*?)' ‚Ü‚½‚Í '\G(\j*?)'‚ð —p‚¢‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
‚±‚Ìê‡A'(\j*?)' ‚É $1 ‚ð‘Ήž‚³‚¹A–{—ˆ‚ÌŒã•ûŽQÆ‚ÍA$2 ‚©‚çŽn‚߂邱‚Æ‚ð–Y‚ê‚È‚¢‚Å‚‚¾‚³‚¢B
—á1
use ShiftJIS::Regexp qw(re);
$_ = '‚ ‚¢‚¤‚¦‚¨ƒAƒCƒEƒGƒIŠ¿Žš ƒVƒtƒg‚i‚h‚r';
my $regex = re('\G(?:\j*?)(\pK)');
# ‚Ü‚½‚Í my $regex = re('\R{padG}(\pK)');
while (/$regex/go) {
print "found a katakana: $1\n";
}
—á2
use ShiftJIS::Regexp qw(re);
use ShiftJIS::String qw(strrev); # Shift-JIS”Å‚Ì scalar reverse()
my $regex = re('\G(\j*?)(\w+)');
# ‚Ü‚½‚Í my $regex = re('(\R{padG})(\w+)');
foreach ('s/Perl/Camel/g', '(ƒAƒCƒEƒGƒI)AIUEO-Š¿Žš') {
(my $str = $_) =~ s/$regex/$1.strrev($2)/geo; # $1. ‚ð•t‚¯‚é
print "$str\n";
}
’ˆÓ: ”ñí‚É’·‚¢•¶Žš—ñã‚ÅŒŸõ‚ðs‚¤ê‡A \G(\j*?) ‚Ì‘ã‚í‚è‚É“Á•Ê‚ȳ‹K•\Œ» \R{padG} ‚ð—p‚¢‚é‚Ù‚¤‚ªˆÀ‘S‚ÆŽv‚í‚ê‚Ü‚·B ‚È‚º‚È‚çA\R{padG} ‚Ì‚Ù‚¤‚ª * Žw’èŽq‚ÌŒJ•Ô‚µ‰ñ”‚ª‘å‚«‚‚È‚è‚É‚‚A ŒJ•Ô‚µ‚ÌãŒÀ‚É’B‚·‚éŠm—¦‚ª’á‚‚È‚é‚©‚ç‚Å‚·B
‚±‚̃‚ƒWƒ…[ƒ‹‚łͳ‚µ‚¢ Shift-JIS •¶Žš—ñ‚Ì•¶Žš‚Í ˆÈ‰º‚̳‹K•\Œ»‚Ƀ}ƒbƒ`‚µ‚È‚¯‚ê‚΂Ȃè‚Ü‚¹‚ñB
[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]
ŠO•”ƒŠƒ\[ƒX‚Ì•¶Žš—ñ‚ÍA‚»‚ꂪ³‚µ‚¢ Shift-JIS •¶Žš—ñ‚Å‚ ‚é‚Æ •ª‚©‚Á‚Ä‚¢‚éꇂ𜂢‚Ä ShiftJIS::String ƒ‚ƒWƒ…[ƒ‹‚ÌŠÖ” issjis() ‚ð—p‚¢‚ÄŠm”F‚·‚ׂ«‚Å‚·B
³‚µ‚‚È‚¢ Shift-JIS •¶Žš—ñ‚ðŽg‚¤‚Æ•Ï‚ÈŒ‹‰Ê‚ɂȂ邱‚Æ‚ª‚ ‚è‚Ü‚·B i³‚µ‚‚È‚¢ Shift-JIS •¶Žš—ñ‚ðŽg‚Á‚½ê‡A‚Ç‚ñ‚ÈŒ‹‰Ê‚É‚È‚é‚©A ‰½‚àŒˆ‚Ü‚Á‚Ä‚¢‚Ü‚¹‚ñ‚Ì‚ÅA‰½‚àŠú‘Ò‚µ‚Ä‚Í‚¢‚¯‚Ü‚¹‚ñBj
Shift-JIS ‚Ì“ñƒoƒCƒg•¶Žš‚Ì’†‚É‚ÍA‘æ“ñƒoƒCƒg‚ª [\x40-\x7E]A‚·‚È‚í‚¿
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
‚Å‚ ‚é‚à‚Ì‚ª‚ ‚è‚Ü‚·B
Perl ‚Ì\•¶‰ðÍ‚Å‚ÍA‚±‚̂悤‚ȃoƒCƒg‚ɂ‚¢‚Ä “Á•Ê‚Ȉ—‚Í‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ‚Ì‚ÅA–â‘肪”¶‚·‚邱‚Æ‚ª‚ ‚è‚Ü‚·B —Ⴆ‚ÎAƒŠƒeƒ‰ƒ‹ "•\" ‚Í’v–½“IƒGƒ‰[‚ðˆø‚«‹N‚±‚µ‚Ü‚·B ‚È‚º‚È‚çA‘æ“ñƒoƒCƒg‚Ì 0x5C ‚ª•Â‚¶ƒNƒH[ƒg‚ðƒGƒXƒP[ƒv‚·‚é‚©‚ç‚Å‚·B
ŠO•”‚̃tƒ@ƒCƒ‹“™‚©‚ç“Ç‚Ýo‚µ‚½ê‡‚ÍA‚±‚Ì–â‘è‚Í‹N‚±‚è‚Ü‚¹‚ñ‚ªA ƒXƒNƒŠƒvƒg‚ð Shift-JIS ‚Å‘‚Žž‚É‚Í\•ª‚È’ˆÓ‚ª•K—v‚Å‚·B
Shift-JIS‚̃Šƒeƒ‰ƒ‹•¶Žš—ñ‚ðì‚邽‚ß‚É‚ÍA ƒVƒ“ƒOƒ‹ƒNƒH[ƒg•—‚̃qƒAƒhƒNi<< ''j‚âA ƒƒ^•¶Žš \xhh ‚ðŽg‚¤‚Ù‚¤‚ª‚æ‚¢‚Å‚µ‚傤B
Shift-JIS ‚Ì‘æ“ñƒoƒCƒg‚Éo‚Ä—ˆ‚È‚¢ASCII}Œ`•¶Žši[\x21-\x3F]j‚Í ˆÈ‰º‚Ì’Ê‚èB
!"#$%&'()*+,-./0123456789:;<=>?
ƒNƒH[ƒg•—‰‰ŽZŽq‚̃fƒŠƒ~ƒ^‚Æ‚µ‚Ä‚ÍA‚±‚ê‚ðŽg‚¤‚Æ‚æ‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñB
ƒƒ^•¶Žš \U, \L, \Q, \E ‚¨‚æ‚Ñ•Ï”“WŠJ‚Íl—¶‚³‚ê‚Ä‚¨‚è‚Ü‚¹‚ñB •K—v‚È‚çA"" (or qq//) ‰‰ŽZŽq‚ðŽg‚Á‚Ä‚‚¾‚³‚¢B
’PŒê‹«ŠE‚ðˆµ‚¤ƒƒ^•¶Žš \b ‚¨‚æ‚Ñ \B ‚ͳ‚µ‚“®ì‚µ‚Ü‚¹‚ñB
CüŽq i, I ‚¨‚æ‚Ñ j ‚ÍA\p{}, \P{}, POSIX [: :]. (—Ⴆ‚Î \p{IsLower}, [:lower:] ‚È‚Ç) ‚É‚Íì—p‚µ‚Ü‚¹‚ñB ‚»‚Ì‚½‚ßAre('\p{Lower}', 'iI') ‚Ì‘ã‚í‚è‚É re('\p{Alpha}') ‚ðŽg—p‚µ‚Ä‚‚¾‚³‚¢B
Œã“Ç‚ÝŒ¾–¾ (—Ⴆ‚Î (?<=[A-Z])) ‚ª’¼‘O‚Ì“ñƒoƒCƒg•¶Žš‚Ì‘æ“ñƒoƒCƒg‚É Œë‚Á‚ă}ƒbƒ`‚·‚邱‚Ƃɂ͑Έ‚³‚ê‚Ä‚¢‚Ü‚¹‚ñB —Ⴆ‚ÎA match("ƒAƒCƒE", '(?<=[A-Z])(\p{Kana})') ‚Í ('ƒC') ‚ð•Ô‚µ‚Ü‚·‚ªA‚à‚¿‚ë‚ñŒë‚è‚Å‚·B
T‚¦‚ß‚È—ÊŽw’èŽq‚ðŠÜ‚Þƒpƒ^[ƒ“ (—Ⴆ‚Î .??‚â\d*?) ‚ÍA ‹ó•¶Žš—ñ‚ƃ}ƒbƒ`‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·‚ªAjsplit() ‚̃pƒ^[ƒ“‚Æ‚µ‚Ä—p‚¢‚½ê‡A ‘g‚Ýž‚Ý‚Ì split() ‚©‚ç—\‘z‚³‚ê‚é“®ì‚ƈقȂ邱‚Æ‚ª‚ ‚è‚Ü‚·B
SADAHIRO Tomoyuki <SADAHIRO@cpan.org> ’åœA ’ms
Copyright(C) 2001-2007, SADAHIRO Tomoyuki. Japan. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
