perl while pushで条件が無かったら0

質問

恐れ入ります。perlで、
push@list,$1 while $body=~s!<div>(.*?)</div>!!;
として(.*?)部分を抜き出して@listを作成していますが、
<div>(.*?)</div>が存在しない、つまり条件に合致しない場合は0を代入したいのですが、どのようにすればよいでしょうか。よろしくお願いいたします。

回答No.1

redslove10 · ベストアンサー

何に０を代入したいのか不明ですが、この文の前にifで<div>.*?</div>が存在するかしないか確かめればよろしいのでは？

お礼

有難うございます。解決しました。

Powered by GRATICA

回答No.2

luka3

push @list,0 if $body!~!<div>(.*?)</div>!;
を付け足す、とかでしょうか