Perlについての質問箱 43箱目

Perlについての質問箱 43箱目at TECH

Perlについての質問箱 43箱目 - 暇つぶし2ch433:デフォルトの名無しさん
10/05/23 13:41:44
>>432
ifをwhileに変えるだけ

warn $1 while $str =~ m{(a[^a]a)\n\n}g;