Re^2: Perl's feature to determine, in current point of loop, that this is the last one? (arrays unpredictable)


We don't bite newbies here... much
	PerlMonks

Re^2: Perl's feature to determine, in current point of loop, that this is the last one? (arrays unpredictable)

by LanX (Sage)

on Jan 23, 2022 at 16:13 UTC ( #11140744=note: print w/replies, xml )

Need Help??

in reply to Re: Perl's feature to determine, in current point of loop, that this is the last one? (updated: while unpredictable)
in thread Perl's feature to determine, in current point of loop, that this is the last one?

So lets suppose it's "only" needed for the case foreach(@array) which isn't an iterator but dealing with a flattened list, right?

I don't think so, @array could be tied to an iterator via Tie::Array and IIRC there are already modules on CPAN exploiting this "backdoor".

FWIW it also offers some syntactic sugar to implement your desired feature for a static @array, by designing a sub which returns a tied array-ref wrapping the static one:

for my $var ( @{ guard_last(@array,my $last) } ) {
    say "IS LAST" if $last;
    say $var;
}
[download]

edit

And I'm pretty sure this won't work with Perls older than ~5.10

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^2: Perl's feature to determine, in current point of loop, that this is the last one? (arrays unpredictable) Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://11140744]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others scrutinizing the Monastery: (4)

As of 2022-05-25 17:41 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Do you prefer to work remotely?

Results (90 votes). Check out past polls.

Notices^?