【モダン推奨】Perlについての質問箱 50箱目

[479 デフォルトの名無しさん 2015/02/26(木) 21:43:04.63 ID:dwtaxn6g]

否定の先読みなんかせんでも
print ‘foobar’ if /(?:foo.*?bar|bar.*?foo)/ ;
で良いんじゃねーのか