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

QUOTE:

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

shift @_; 看得我别扭死了

QUOTE:

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

shift @_; 看得我别扭死了

QUOTE:

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

QUOTE:

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



test_1
是递归

test_2
是closure

QUOTE:

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



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

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

CODE:

sub foo {
    my $arg = shift;

    ...
}

QUOTE:

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



test_1
是递归

test_2
是closure

QUOTE:

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

关键是

sub foo {
    my $arg = shift;

    ...
}

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

保持代码有好的可读性的一个原则就是按照标准写法来(如果有的话)，而不 ...

QUOTE:

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

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