- 85 名前：デフォルトの名無しさん mailto:sage [2009/08/18(火) 12:10:32 ]
- >>84
再帰使いたかったからこんなん書いてみた。
#!/usr/bin/perl
use Data::Dumper;
$var = ["foo", ["bar", ["baz", 'buz'], ['baa',['foobar']]]];
print Dumper [ flatten($var) ];
sub flatten{
my($var) = @_;
my @foo;
map {ref eq 'ARRAY' ? flatten($_) : $_} @$var;
}
