Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: multiple local vars in a foreach loop

by roboticus (Chancellor)
on Jan 31, 2013 at 11:21 UTC ( #1016292=note: print w/replies, xml ) Need Help??

in reply to multiple local vars in a foreach loop


Update: LanX is (of course) correct.

Not with foreach, but you can do it using while and each:

my %hash; while (my ($key, $value) = each %hash) { ... }


When your only tool is a hammer, all problems look like your thumb.

Replies are listed 'Best First'.
Re^2: multiple local vars in a foreach loop
by LanX (Bishop) on Jan 31, 2013 at 11:28 UTC
    Right answer to wrong question! ;-)

    DB<156> while (my ($key, $value) = each @a) { print "$key, $value" } +;; Type of arg 1 to each must be hash (not array dereference) at (eval 13 +5)[] line 2, near "@a) "

    Cheers Rolf

      Depends on the version of Perl: each.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
        Unfortunately not! :(

        This doesn't help splicing multiple loop vars...


        it will also return the index and value for the next element of an array so that you can iterate over it;

        Wrong answer wrong question! ;-)

        Cheers Rolf

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016292]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2018-06-19 22:25 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (115 votes). Check out past polls.