Flatting list references

[Gibbering Poster]

Hi folks ... I need to completely flatten out nested list references
into a single-dimension list:

[[1, 2], [[[3], [4,5], 6], 7, 8], 9, [[[[[0]]]]]] would become
[1,2,3,4,5,6,7,8,9,0]

I've tried doing this, but cant seem to find a simple elegant way to
handle this ...

Any help is greatly appreciated... thanks!

 

[xhoster]

Hi folks ... I need to completely flatten out nested list references
into a single-dimension list:

[[1, 2], [[[3], [4,5], 6], 7, 8], 9, [[[[[0]]]]]] would become
[1,2,3,4,5,6,7,8,9,0]

I've tried doing this, but cant seem to find a simple elegant way to
handle this ...

Any help is greatly appreciated... thanks!

sub flatten {
map {ref $_?flatten($_):$_} @{$_[0]}
};

my $x=[[1, 2], [[[3], [4,5], 6], 7, 8], 9, [[[[[0]]]]]];
use Data:umper;
print Dumper [flatten($x)];

Xho