in reply to Perl level control of hash iterators
my $href = \%hash; my $aref = []; @$aref = keys %hash; for ( my $i = 0; $i <= $#$aref; $i++ ) { # do something with $href -> { $aref -> [$i ] } $href -> { $aref -> [$i] }{ XYZ }{ _callback } ( $href, $aref, $i +); # do more with $href -> { $aref -> [$i] } }
-M
Free your mind
|
|---|