Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

612:597
08/05/28 21:26:18
my @temp = ( $#array1 <=> $#array2 ) == -1 ) ? ( 0..$#array2 ) ; 0..$#array1;
こんな前処理してから、>>599のmap対象配列に、( 0..\$temp ) って感じかなぁ？

エレガントさには欠けるけど、これが可読性保つギリギリかな？

次ページ