How about adding this method?
################################################# # Sub get_nth_element_in_keyed_array # ################################################# ################################################# # PUBLIC Subroutine # ################################################# sub get_nth_element_in_keyed_value_array($$;*){ my $self = shift; local ($key,$place,*TABLE) = @_; my @List = @{$self->get_keyed_value_array($key)} my $i = 0; my ($value) = grep {!(++$i % $place)} @List; return $value; }
I say yes. (Assuming the method works properly.)
-Steeeeeve
In reply to Re: Lady_TM
by Steeeeeve
in thread Lady_TM
by Steeeeeve
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |