文字列から配列作成

質問

お世話になっております。

〔abc〕あいうえお<BR>〔def〕かきくけこ<BR>・・・
という構成になっている $M から

@A = qw(abc def ・・・);
@B = qw(あいうえお かきくけこ ・・・);
という配列を取り出したいのですが、どのような方法がありますでしょうか。

御教示宜しくお願い致します。

回答No.3

BLUEPIXY · ベストアンサー

$_="〔abc〕あいうえお<BR>〔def〕かきくけこ<BR>";
@A=/〔(.+?)〕/g;
@B=/〕(.+?)</g;

お礼

ありがとうございます。
参考になりました。

回答No.2

moon_piyo

こんちはっ

$M = "〔abc〕あいうえお<BR>〔def〕かきくけこ<BR>";
@A = @B = ();

while ($M =~ /〔(.*?)〕(.*?)<BR>/g) {
push(@A, $1);
push(@B, $2);
}

お礼

ありがとうございます。
参考になりました。

回答No.1

dahho

〔abc〕あいうえお<BR>
の繰り返しなら

@x = split(/<BR>/, $M); #<BR>でsplitして
foreach $i (@M) {
/([a..z]+)(.+)/;　　#マッチで記憶して
push(@A, $1);
push(@B, $2);
}
というのはどうでしょう？
上のは文法的に間違ったりしてるかもしれません。アイデアだけです。

お礼

ありがとうございます。
参考になりました。