Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Localizing hash keys in an AoH

by kennethk (Abbot)
on Mar 15, 2013 at 18:54 UTC ( #1023759=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use strict;
    use warnings;
    print Dumper \@data;
  2. or download this
    # Doesn't work
    LOCAL_BLOCK_2: {
        local $data[$_]{unit} = 'S' for 0 .. $#data;
    #    print Dumper \@data;
  3. or download this
        my @units = map $_->{unit}, @data;
        $_->{unit} = 'S' for @data;
        $data[$_]{unit} = $units[$_] for 0 .. $#data;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1023759]
Approved by tobyink
[Corion]: Hi choroba! Yeah, I brought the rain with me from Hamburg
[Corion]: marto: As am I ;) And we got two interested locations for next year, Munich and Cologne maybe, which is great as well. Not Berlin though ;)
[marto]: damn
[choroba]: Munich is kind of close from here
[Corion]: marto: Maybe in three years it'll be Berlin again ;)

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2017-06-29 08:15 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (655 votes). Check out past polls.