翻转数组结构

qingyun039

请问有什么方法可以便捷的翻转数组结构，如[1，[2，[3，4] ] ]变为[3，4，[2，[ 1 ] ] ]？

唐胜

用reverse函数试试

qingyun039

唐胜 发表于 2018-04-21 09:15
用reverse函数试试

reverse 只能翻转数组成员的顺序呀(⊙o⊙)?这里是不是需要递归处理，因为一个数组里有标量还有数组，它们要区别对待，如果数组的话又是最初的问题，先把它翻转。

104359176

是： [1，[2，[3，4] ] ] 变为 [[[4, 3]]，2]，1 ] ?

qingyun039

104359176 发表于 2018-04-22 13:37
是： [1，[2，[3，4] ] ] 变为 [[[4, 3]]，2]，1 ] ?

不是，应该是[4，3，[2，[1]]]，同一维度的成员位置可以任意，比如也可以[3，4[2，[1]]]。但是同一维度如果包含两个数组引用，如[1，[2]，[3，[4]]]，则不可转化为[4，[3，2，[1]]]，因为它再转化为[1，[2，3，[4]]]与最原始不同，所以一个维度包含两个数组引用视为不可翻转。

dahe_1984

维度都变了？
数组中只是数字么？

523066680

先大概实现，效率低下，没有做不可翻转的辨别。

1. # http://bbs.chinaunix.net/thread-4295208-1-1.html
   
2. 
   
3. use Data::Dumper;
   
4. $Data::Dumper::Indent = 0;
   
5. 
   
6. my $oldarr = [1, [2, [3, 4, [5]] ] ];
   
7. my $newarr = [];
   
8. convert( $oldarr, $newarr, 0 );
   
9. 
   
10. print Dumper $newarr;
    
11. 
    
12. sub convert
    
13. {
    
14.     my ( $oldarr, $newarr, $lv ) = @_;
    
15. 
    
16.     grep {  push @$newarr, $_ if ( ref $_ ne "ARRAY" )  } @$oldarr;
    
17. 
    
18.     for ( @$oldarr )
    
19.     {
    
20.         if ( ref $_ eq "ARRAY" )
    
21.         {
    
22.             @$newarr = ( [@$newarr] ) ;
    
23.             convert( $_, $newarr, $lv+1 );
    
24.         }
    
25.     }
    
26. }
    
27. 
    

复制代码

输出
$VAR1 = [[[[1],2],3,4],5];[Finished in 0.1s]