Re^2: list reversal closure

Since the loop stop when undefined is returned, the following is the same, but simpler:

sub reverse_iterator {
    my @list = @_;
    sub {
        return pop @list;
    };
}
[download]

Update: I prefer to signal the end of the list out of band to allow undefined values in @list. That why I prefer returning the value through an argument.

sub reverse_iterator {
    my @list = @_;
    sub {
        return unless @list;
        $_[0] = pop @list;
        return 1;
    };
}

my $foo = reverse_iterator(@ARGV);
while ($foo->(my $val)) {
    print("$val\n");
}
[download]

Update: I just noticed that you assigned to $_ without localizing it first. Don't do that!

Update: s/shift/pop/

Comment on Re^2: list reversal closure Select or Download Code

Replies are listed 'Best First'.

Re^3: list reversal closure
by apotheon (Deacon) on Aug 21, 2006 at 19:54 UTC

So how about this as an alternative?:

#!/usr/bin/perl -l

sub revlist {
  my @list = @_;
  sub { pop @list };
}

my $foo = revlist(@ARGV);

print while local $_ = $foo->();
[download]

Edit: Optionally, closure subroutine might look like this, of course:

sub { return unless @list; pop @list; };

print substr("Just another Perl hacker", 0, -2);
- apotheon
CopyWrite Chad Perrin

[reply]
[d/l]
[select]