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

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

Perlについての質問箱 30箱目 - 暇つぶし2ch546:デフォルトの名無しさん
07/05/12 03:16:52
>>544
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }

こんなんどうよ。