Perlについての質問箱 43箱目at TECHPerlについての質問箱 43箱目 - 暇つぶし2ch433:デフォルトの名無しさん 10/05/23 13:41:44 >>432 ifをwhileに変えるだけ warn $1 while $str =~ m{(a[^a]a)\n\n}g; 次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch