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


Problems? Is your data what you think it is?
	PerlMonks

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

by LanX (Saint)

on Jan 23, 2022 at 16:13 UTC ( [id://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? • Last hour • Other CB clients

Other Users^?

Others admiring the Monastery: (1)

chatterbot

As of 2024-04-25 00:49 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found