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

MMMIX

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

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

MMMIX

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

嗯，同意。

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

shift @_; 看得我别扭死了

MMMIX

仔细想了下，两个实现虽然形式不同，但都是 closure，而不是递归调用。

[ 本帖最后由 MMMIX 于 2008-12-24 16:15 编辑 ]

MMMIX

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



test_1
是递归

test_2
是closure

在 Perl 中，只有用 anonymous function 才能做到真正的 closure，像你 test_2 那种写法是有问题的， perl 会警告，如果你用 use warnings; 或者 -W 的话。

MMMIX

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



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

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

关键是

1. 
   
2. sub foo {
   
3.     my $arg = shift;
   
4. 
   
5.     ...
   
6. }
   

复制代码

这个属于标准写法，你要写 my $arg = shift @_; 看起来就会非常别扭。

保持代码有好的可读性的一个原则就是按照标准写法来(如果有的话)，而不是别出心裁，除非你那么做有真正好的理由。

MMMIX

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



test_1
是递归

test_2
是closure

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

MMMIX

原帖由 rocenting 于 2008-12-24 16:33 发表


只感觉Perl的ref很好用

在 Perl 中实现复杂数据结构就靠它了

MMMIX

原帖由 rocenting 于 2008-12-24 17:42 发表



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

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

"习语"乃是名词，对应的英文词为 idiom; idiomatic 为形容词。

[ 本帖最后由 MMMIX 于 2008-12-24 17:53 编辑 ]