Perlについての質問箱 49箱目
■ このスレッドは過去ログ倉庫に格納されています
0802デフォルトの名無しさん
2012/01/07(土) 04:10:34.68http://www.din.or.jp/~ohzaki/regex.htm#Without
print "[$1]\n" while <<'EOS' =~ /^([a-d]\.(?:(?! ).)*?)(?:\n\n|\n*\z)/gms;
a.あいうえお
b.アイウエオ
カキクケコ
サシスセソ
c.いろはにほへと
ちりぬるを
d.イロハニホヘト
チリヌルヲ
EOS
■ このスレッドは過去ログ倉庫に格納されています