Help for this page
sub counter { my $start_value = shift; return sub { return $start_value++; } }
my $counter1 = counter(5); my $counter2 = counter(20); print $counter1->(), $counter1->(), $counter1->(),"\n"; print $counter2->(),"\n"; print $counter1->(),"\n";
567 20 8
sub build_one { my($foo, $bar, $baz) = @_; ... push @queue, build_one($alpha, $beta, $gamma); # repeat as necessary.
map { $_->($last_thing) } @queue;
www.com | www.net | www.org
No recent polls found