複数回のパターンマッチ

質問

どうしても複数回のパターンマッチで値が取得できません。
すべてを配列などに代入したのですがどうすればよいのでしょうか？

下記のような感じです。

$str = <<EOF
<a>dasfdaf</a><br>
asfdafdsa
sfatyuytu
<a>jkytr</a><br>
gjetjt
tyurtyu
EOF
;

if ($str =~ /<a>(.*)<\/a><br>/g) {
@list = $1;
}

よろしくお願い致します。

回答No.2

kumoz · ベストアンサー

次のような方法で、１度に処理することができます。

@list = ($str = <<EOF) =~ /<a>(.*)<\/a><br>/g; 　 # ; は EOF の次の行でも可
・・・
EOF

または、

@list = ($str = <<EOF)
・・・
EOF
=~ /<a>(.*)<\/a><br>/g;

回答No.1

Werner

@list = ($str =~ /<a>(.*)<\/a><br>/g);

もしくは

while ($str =~ /<a>(.*)<\/a><br>/g) {
push (@list, $1);
}