配列の各要素に結合

@tangoa = ('A','B','C','D','E','F');
@tangob = ('K','L','M','N','O','P');
の２つの配列の各要素を結合させて
AK AL AM AN AO AP BK BL BM BN BO BP CK CL CM CN CO CP DK DL DM DN DO DP EK EL EM EN EO EP FK FL FM FN FO FPという配列(@tangoc)を作りたいのですが、
２つの配列の各要素を結合させるにはmapを用いてどのように書くべきか具体的に教えてください。

No.1 ベストアンサー 回答者： t-okura 回答日時： 2013/01/08 22:07

@tangoc = map { my $a = $_ ; map { $a . $_ } @tangob } @tangoa;

ちょっと気持ち悪いな。

この回答へのお礼

どうもありがとうございます！！
こうやってやるんですね。
勉強にもなります。

お礼日時：2013/01/10 21:04

No.2 回答者： kumoz 回答日時： 2013/01/09 20:07

@tangob がアルファベットの昇順になっているのを利用しているので汎用性はありません。

@tangoc = map { "$_$tangob[0]" .. "$_$tangob[$#tangob]" } @tangoa;

この回答へのお礼

なるほど！
そうやることもできるんですね。
ありがとうございます。

お礼日時：2013/01/10 21:05