Perl 语言缺失的语言特性

104359176

在用 Perl 编程的过程中，实际中遇到一个问题，就是遍历一个数组的数组，针对这些每条数据执行一些规则。然后把改变后的数据保存回去。

我于是做了一个深度优先的迭代器，然后写了一个获取元素位置的算法。每次获取一个位置，然后根据这个位置保存回去。
感觉这种情况让代码的复杂度增加了一层。

后来发现 Ruby 的迭代器加代码块是解决这个问题的好办法，Python 的生成器也是类似的东西。

当然 Lisp 有很多机制可以实现简化这种编程模式。

但我在 Perl 中找不到这种简化的好办法。难道是 Perl 中缺失了这个特性吗？

我原来以为设计一个传递函数的函数能解决这个办法。但定义的函数本身不能在 调用的上下文中 获取所有局部变量。

大家认为呢？

zhlong8

@AoA = (
    [1..10],
    [11 .. 20],
);

for my $ary (@AoA) {
    for (@$ary) {
        $_ *= 2;
    }
}

矩阵每个元素 x2

是这样吗？

yakczh_cu

1. 
   
2. sub   passfunc($){
   
3. 
   
4.   my $para=shift;
   
5.   my $code=shift;
   
6.    
   
7.   my @out=$code->($para);
   
8. }
   
9. 
   
10. 
    
11. 
    
12. 
    
13. $handle = sub {
    
14. my $para=shift;
    
15. 
    
16.   @out=map { s/http/ftp/g; $_} @$para;
    
17. 
    
18. };
    
19. 
    
20. 
    
21. @data=('http://www.baidu.com','http://www.google');
    
22. @out=passfunc(\@data,$handle);
    
23. 
    
24. print join("\n",@out);
    

复制代码

要什么变量传进去就行了，只需要准备数据和处理单元，不用改变程序主流程

104359176

回复 2# zhlong8
是这样的，但实际的数据结构是一个数组的数组，每个数组可能是一个单独的数组，也可能是数组的数组，还可能是数组的数组的数组。要实现一个统一的接口，能迭代这个复杂结构中的每个独立的数组，并且能保存回去。

@array = (

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

);

我针对三种结构做了一个统一的迭代器 get_array();

但只能用 while 来遍历，每次处理完，用一个 set_array() 来保存数据。

get_array() 和 set_array() 必须成对使用。

如果数据结构在发生变化，迭代器的设计就非常复杂了。

有没有一个通用的模式能处理这个问题呢？

因为这个更新结构的过程，要抽象成一个函数，传递到其他的函数中。而且要留几个参数，来控制这个过程的一些行为。


   

104359176

回复 3# yakczh_cu

需要在一个通用控制结构中调用这个函数，要求这个函数能继承所有可见上下文的变量，靠传递变量的方式不靠谱。


   

zhlong8

回复 4# 104359176

1. use strict;
   
2. use warnings;
   
3. 
   
4. sub forall {
   
5.     my($sub, $sth) = @_;
   
6.     for my $v (@$sth) {
   
7.         if (ref $v eq 'ARRAY') {
   
8.             forall($sub, $v); # 新版本5.16用 __SUB__->($sub, $v);
   
9.         } else {
   
10.             $v = $sub->($v);
    
11.         }
    
12.     }
    
13. }
    
14. 
    
15. my @array = (
    
16.     [1, 2, 3],
    
17.     [ [4,5,6], [7,8,9]],
    
18.     [ [ [ 1,2,3],[4,5,6] ], [ [7,8,9], [1,2,3]]],
    
19. );
    
20. 
    
21. forall sub { shift() * 2 }, \@array;
    
22. 
    
23. use Data::Dumper;
    
24. say Dumper \@array;

复制代码

这算基本的递归把，如果要在运行中改变数组的大小结果可能是未定义的

只是一个红薯

闭包？         

104359176

回复 7# 只是一个红薯
闭包是在固定的一个上下文环境中定义的代码块或函数。如果需要在动态的调用环境中使用上下文的环境，函数该如何实现呢？


   

104359176

回复 6# zhlong8

这个实现了遍历数据结构，如果对遍历出的数据进行处理完后，再保存回去的话，怎么办呢？

我设计了个迭代器，有个当前的迭代状态信息，可以调用这个信息，获取当前位置的定位信息。就能保存回去了。

1维数组只需要一个状态信息，2维就需要两个了。。


   

zhlong8

回复 9# 104359176


    这和第一个是一样的啊，就是直接修改原来的数组每一维都是