Perlについての質問箱 34箱目

Perlについての質問箱 34箱目 at TECH

457:デフォルトの名無しさん
08/02/13 18:46:13
544 ：デフォルトの名無しさん：2007/05/12(土) 02:54:05
深さのある配列を左から順番に呼んでフラットな配列を作りたいんですが、
よい方法ご存知の方いませんか
@a = ([1,2,3], [4,5,6], [[7,8],[9,0]]);
@b = flatten(@a); # 1,2,3,4,5,6,7,8,9,0

546 ：デフォルトの名無しさん：2007/05/12(土) 03:16:52
>>544
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }

こんなんどうよ。

次ページ

続きを表示

1を表示