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 编辑 ]

rocenting

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

怎么会这样说呢

rocenting

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

shift @_; 看得我别扭死了

我感觉不写@_才很别扭，呵呵。

很多时候不写，别人会问为什么？？？，权当注释。

rocenting

原帖由 MMMIX 于 2008-12-24 15:14 发表
说说实现方面的问题，递归调用显然不是个好主意，用 closure 会好很多。

test_1
是递归

test_2
是closure

rocenting

原帖由 MMMIX 于 2008-12-24 16:20 发表

是我看岔了，两个都是 closure。

多谢指教

其实你不说之前，我很少关注closure这些概念

只感觉Perl的ref很好用

rocenting

原帖由 flw 于 2008-12-24 16:30 发表

对，适度使用“惯用语”，会让代码更地道，让内行人看着更亲切易懂。

开个玩笑

现在国内流行山寨

rocenting

原帖由 smonkey0 于 2008-12-24 15:44 发表
Effective_Perl_Programming.chm

谢啦，下了浏览了一下，还不错！

你们所说的"习惯语"就是Idiomatic吧。