Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Re: Idiom for looping thru key/value pairs

by frag (Hermit)
on May 26, 2001 at 02:15 UTC ( #83443=note: print w/replies, xml ) Need Help??


in reply to Re: Idiom for looping thru key/value pairs
in thread Idiom for looping thru key/value pairs

The problem with splice is that it would chop the values out of the original array, and he doesn't want to use a dupe.

This might be the time to use old-timey C-style for:

my @list = ('1','val','2','val2','1','val3'); my $self = { _subfields => [@list] }; my @subs; for (my $index = 1; $index < @{$self->{_subfields}}; $index+=2) { push @subs, ${$self->{_subfields}}[$index]; } # waa-la: print $_,"\n" foreach (@subs);
It's ugly, but it avoids the duplication. For the cost of a scalar you could always use
my $aryref = $self->{_subfields};
instead.

-- Frag.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://83443]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2020-07-02 07:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?