Re^4: Perl's feature to determine, in current point of loop, that this is the last one?

It's so easy to avoid the limitation. Replace $v eq $values[-1] with \$v == \$values[-1]

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

Replies are listed 'Best First'.
Re^5: Perl's feature to determine, in current point of loop, that this is the last one? by LanX (Saint) on Jan 24, 2022 at 08:44 UTC
> It's so easy to avoid the limitation. unfortunately no, but good idea nonetheless ... :) `DB<39> x @input 0 2 1 7 2 11 3 15 DB<40> use experimental 'refaliasing'; \$input[1] = \$input[-1] DB<41> x @input 0 2 1 15 2 11 3 15 DB<42> for my $v (@input) { say $v if \$v==\$input[-1] } 15 15 DB<43>` [download] I'm not even sure that experimental feature is even needed... IIRC one could somehow use typeglob aliasing on array elements. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^6: Perl's feature to determine, in current point of loop, that this is the last one? by ikegami (Patriarch) on Jan 25, 2022 at 14:46 UTC
unfortunately no, but good idea nonetheless ... :) Good catch. I'll add a warning to my answer that first suggested the idea. I'm not even sure that experimental feature is even needed... Correct. `my $inputs = sub { \@_ }->( 0, $x, $x ); for my $v (@$inputs) { say \$v; }` [download] `SCALAR(0x559bb5b21960) SCALAR(0x559bb5b33228) SCALAR(0x559bb5b33228)` [download] I imagine that would Data::Alias can also achieve this.	[reply] [d/l] [select]