- 103 名前:nobodyさん mailto:sage [2014/01/30(木) 07:11:02.94 ID:???]
- ・範囲内で文字列を含まない正規表現
$_ = "zzzABC XYDEFzzDEFz"; if ( m/ # Perl 5.10 以降で有効 ABC [^XAD]* (?: (?!XYZ|ABC|DEF). [^XAD]* )* (*PRUNE) # バックトラックステートの削除 (*SKIP) # 次回の走査開始位置をここに飛ばす (?:XY?)? # XYZとDEFの競合を想定した取りこぼし回収 DEF /xgsiaap ) { print "match! <".${^MATCH}.">"; } else { print "no match."; } >>102 修正乙!
|

|