配列の各要素に結合

質問

@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 · ベストアンサー

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

ちょっと気持ち悪いな。

お礼

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

回答No.2

kumoz

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

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

お礼

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