in reply to Re^2: Getting for() to accept a tied array in one statement
in thread Getting for() to accept a tied array in one statement
I disagree. Here is the full code and FETCH is only called once for each element within the body of the loop:
use strict; use warnings; package MyClass; use Tie::Array; our @ISA = ('Tie::Array'); our @data; # mandatory methods sub TIEARRAY { my $class = shift; bless \@data, $class; @data = @_ +; return \@data } sub FETCH { print "FETCH: "; my ($self, $index ) = @_; return $dat +a[$index] } sub FETCHSIZE { print "<FETCHSIZE> "; return scalar @data } package main; for( @{ tie my @x, "MyClass", "first", "second"; \@x } ) { print "In loop = "; print "$_\n"; }
Output:
In loop = FETCH: first In loop = FETCH: second
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Getting for() to accept a tied array in one statement
by perlancar (Hermit) on Apr 16, 2019 at 14:10 UTC | |
by hdb (Monsignor) on Apr 16, 2019 at 14:18 UTC | |
by perlancar (Hermit) on Apr 16, 2019 at 14:23 UTC | |
by ikegami (Patriarch) on Apr 19, 2019 at 08:45 UTC | |
by Veltro (Hermit) on Apr 19, 2019 at 11:35 UTC | |
| |
by perlancar (Hermit) on Apr 22, 2019 at 07:45 UTC | |
|
In Section
Seekers of Perl Wisdom