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

[640 デフォルトの名無しさん 2020/08/15(土) 19:50:33.78 ID:dQrORRCv]

ちょろい問題。単なる初心者で釣りなんかじゃないでしょう。

@foo = (); @bar = ();
while ($str =~ s{^[\s\S]*?<p>(.+?)</p>(.*)<p>(.+?)</p>[\s\S]*$}{$2}){
push @foo, $1;
unshift @bar, $3;
}