Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^2: Manipulating data structure

by SerZKO (Beadle)
on Aug 17, 2012 at 05:47 UTC ( #987912=note: print w/replies, xml ) Need Help??

in reply to Re: Manipulating data structure
in thread Manipulating data structure

Hej Cristoforo and thanks for your reply,

You are right, it was a missprint, it is DOL1, DOL2, DOL3, etc.

And yes, numbered keys always goes on the bottom of the list (I think it's a consequence of using radio buttons which are seen as one "part")

One strange thing I've noticed when I moved this part out of CGI to a separate script and done a dump using Data::Dumper is that all of those numbered keys goes to a first hash ?!?

$VAR1 = { 'FOR3' => 'Nej', 'UID' => '', 'DOL3' => 'Nej', 'DOL1' => 'Nej', 'FNA' => '', 'MEX2' => 'Nej', 'CMG1' => 'Ja', 'CMG2' => 'Ja', 'MEX1' => 'Nej', 'DOL2' => 'Nej', 'PRI3' => 'Nej', 'spara' => 'Spara', 'PRI1' => 'Nej', 'ENA' => 'Exp-pri', 'FOR1' => 'Nej', 'MEX3' => 'Nej', 'NYTT' => 23400, 'FOR2' => 'Nej', 'PRI2' => 'Nej', 'PRE' => '(117)', 'CMG3' => 'Ja' }; $VAR2 = { 'UID' => 'FRLARS', 'PRE' => '(0117)', 'ENA' => 'Larsson', 'NYTT' => 23403, 'FNA' => 'Lars', }; $VAR3 = { 'UID' => 'ANJA08', 'PRE' => '(0117)', 'ENA' => 'Daun', 'NYTT' => 23404, 'FNA' => 'Anja', };
Anyone knows why ?

Replies are listed 'Best First'.
Re^3: Manipulating data structure
by sundialsvc4 (Abbot) on Aug 17, 2012 at 10:11 UTC

    You have to tell Dumper that the element is an array-reference.   Otherwise, it will “flatten” the list for printout and dummy up those $VARn pseudo-names within Dumper’s own output.   But it’s only for its own printing purposes:   those names do not actually exist anywhere.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2018-06-23 17:10 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.