- ベストアンサー
perl while pushで条件が無かったら0
恐れ入ります。perlで、 push@list,$1 while $body=~s!<div>(.*?)</div>!!; として(.*?)部分を抜き出して@listを作成していますが、 <div>(.*?)</div>が存在しない、つまり条件に合致しない場合は0を代入したいのですが、どのようにすればよいでしょうか。よろしくお願いいたします。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
何に０を代入したいのか不明ですが、この文の前にifで<div>.*?</div>が存在するかしないか確かめればよろしいのでは？
その他の回答 (1)
- luka3
- ベストアンサー率72% (446/612)
回答No.2
push @list,0 if $body!~!<div>(.*?)</div>!; を付け足す、とかでしょうか
お礼