perl下迭代器的"示范"代码

rocenting

原本是帮一个朋友面试而写的，顺便公开出来，请多指教。

1. #!/\perl/\bin
   
2. # Copyright (C) 2008 luo chuanting<[email]rocenting@gmail.com[/email]>
   
3. # Release under GPL license
   
4. 
   
5. use strict;
   
6. 
   
7. my $test_switch = 1;
   
8. main();
   
9. 
   
10. sub main {
    
11.         if ($test_switch == 1) {
    
12.                 test_1();
    
13.                 test_2();
    
14.         }
    
15. }
    
16. 
    
17. sub gen_iterator_1 {
    
18.         my $count = shift @_;
    
19. 
    
20.         while ($count < 10) {
    
21.                 $count++;
    
22.                 return (sub {gen_iterator_1($count)}, [$count, "gen_iterator_1"])
    
23.         }
    
24. 
    
25.         return;
    
26. }
    
27. 
    
28. sub cal_value {
    
29.         my $next_fn = shift @_;
    
30.         my $e;
    
31. 
    
32.         while (($next_fn, $e) = $next_fn->()) {
    
33.                 print "$e->[1]: $e->[0]\n";
    
34.         }
    
35. }
    
36. 
    
37. sub test_1 {
    
38.         my $next_fn = sub {gen_iterator_1(0);};
    
39.         my $e;
    
40. 
    
41.         while (($next_fn,$e ) = $next_fn->()) {
    
42.                 print "$e->[1]: $e->[0]\n";
    
43.         }
    
44. }
    
45. 
    
46. 
    
47. sub test_2 {
    
48.         my $count = 5;
    
49. 
    
50.         sub gen_iterator_2 {
    
51.                 while ($count < 10) {
    
52.                         $count++;
    
53.                         return (\&gen_iterator_2, [$count, "gen_iterator_2"])
    
54.                 }
    
55.                 return;
    
56.         }
    
57. 
    
58.         cal_value(\&gen_iterator_2);
    
59. }

复制代码

[ 本帖最后由 rocenting 于 2008-12-24 13:06 编辑 ]

cobrawgl

lz 是不是会用 python 啊

rocenting

原帖由 cobrawgl 于 2008-12-24 13:29 发表
lz 是不是会用 python 啊

怎么会这样说呢

MMMIX

原帖由 cobrawgl 于 2008-12-24 13:29 发表
lz 是不是会用 python 啊

我感觉他是在拿 Perl 当 C 使。

cobrawgl

原帖由 MMMIX 于 2008-12-24 14:30 发表

我感觉他是在拿 Perl 当 C 使。

我看到他的

sub main {
        if ($test_switch == 1) {
                test_1();
                test_2();
        }
}

让我联想到 python 那个 if xx==....

flw

原帖由 MMMIX 于 2008-12-24 14:30 发表

我感觉他是在拿 Perl 当 C 使。

嗯，同意。

BTW：你不觉得他的代码风格很好吗？
说实话，本版好久没出现过这么好看的代码了。人才啊。

ynchnluiti

原帖由 MMMIX 于 2008-12-24 14:30 发表

我感觉他是在拿 Perl 当 C 使。

Copyright (C)

flw

原帖由 ynchnluiti 于 2008-12-24 14:54 发表

Copyright (C)

(C) 是版权符号的意思。

cobrawgl

原帖由 flw 于 2008-12-24 14:57 发表

(C) 是版权符号的意思。

版主真幽默啊

MMMIX

原帖由 flw 于 2008-12-24 14:47 发表

嗯，同意。

BTW：你不觉得他的代码风格很好吗？

shift @_; 看得我别扭死了