pushing hash values to an array

valavanp has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: pushing hash values to an array by davorg (Chancellor) on Oct 16, 2006 at 11:24 UTC
Perhaps you should try fixing the errors that you get when running this code. With "use strict" enabled, this code doesn't run at all because you haven't declared any of your variables. Once you've fixed those problems, you'll see that you are refering to a hash reference, `$h` which doesn't exist anywhere in your code. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re: pushing hash values to an array by blazar (Canon) on Oct 16, 2006 at 11:51 UTC
`#!/usr/local/bin/perl use strict; use warnings; %h=('1', 'one', '2', 'two', '3', 'three');` [download] Since you're under strict this won't even compile. `@arr=(1,2);` [download] Ditto! (But I won't insist further.) `foreach $key(keys %h) { push(@arr,$h{$key}); } print @arr;` [download] Thus is correct. `foreach $key(keys %h) { push(@arr,$$h{$key});` [download] This is not. Why do you expect `$h{$key}` to be a scalar reference? `print "@arr\n"; }` [download] You probably want to print out of the loop. Be careful (also) when preparing test examples. All in all I suspect (but it's hard to tell from your description of the problem) you be in a situation in which you have `$href=\%h` or the like, and then `push @arr, $href->{$key};` [download] is the way to go.	[reply] [d/l] [select]
Re^2: pushing hash values to an array by valavanp (Curate) on Oct 16, 2006 at 12:13 UTC
I am getting the hash reference values from the database through the keys of the hash values. I have a record with 3 fields in my backend. When i am retrieving the record with a particular field I am getting displayed only the number of fields, not the contents of the field which is 1,13 in this case(which are the actual values of the field). I am using these values in an combox box of a CGI application web page for multiple selection of an item. Only when i am pushing that hash values it is not getting displayed. In other areas, like retrieving rows it works fine. Please suggest me how can i proceed. I thank you for your suggestions.	[reply]
Re^3: pushing hash values to an array by blazar (Canon) on Oct 16, 2006 at 13:40 UTC
I still have some problems parsing your text. I understand that English may not be your mother tongue, it's not mine either. I feel like suggesting you to concentrate on the (possibly ) few relevant points with your issue and ignore anything else that may contribute the the noise/signal ratio of your post. I am getting the hash reference values from the database through the keys of the hash values. Ok, you have a hashref, period. You want to push its values into an array, right? Then the suggestion I gave you in my other reply should be fine. Did you try it? Does it work? Any inconvenience with it? Or else you may directly dereference the hashref as a whole and combine the two mentioned functions in one sweep: `push @array, values %$hashref;` [download] I have a record with 3 fields in my backend. `[...]` Snip!	[reply] [d/l] [select]
Re^3: pushing hash values to an array by wfsp (Abbot) on Oct 16, 2006 at 12:21 UTC
hi valavanp, When you're not sure what sort of variable you have I find it useful to use Data::Dumper. When you know what is actually in it you have a better chance of extracting the data. Show us the output of Data::Dumper and we'll be able to offer more help.	[reply]
Re: pushing hash values to an array by Hofmator (Curate) on Oct 16, 2006 at 11:18 UTC
In these kind of cases it helps a lot if you tell us what you expected these statements to print and what they did print indeed. In this way we can deduct what you wanted to achieve - I, for example, have no clue what kind of behaviour you wanted to achieve with your code. -- Hofmator Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply]
Re: pushing hash values to an array by Anonymous Monk on Oct 16, 2006 at 11:38 UTC
Well, you are "pushing it through a reference" indeed. However, since that reference doesn't exist, only undefined values will be pushed (things get added, you don't see them). Either strict or warnings would have given you hints on what's wrong with your code.	[reply]
Re: pushing hash values to an array by fenLisesi (Priest) on Oct 16, 2006 at 12:35 UTC
I am not sure what you are trying to do there, but you can start by cleaning up your code. Here is a sample attempt: Read more... (751 Bytes) that prints: `1, 2, one, two, three 3, 4, 5, one, two, three` [download] which is probably not what you wanted. I have the feeling that you want to print the spelling of the integers in the array, if they are available. If that is the case, then the following may give you some ideas: Read more... (1012 Bytes) You may have presumed that once you define a hash named `%h`, then a scalar named `$h` is automatically created and its value set to `\%h`, but that is not the case. You have to do that yourself. Make sure your code compiles and runs before you post it. It appears that the `use strict;` and `use warnings;` bits were added as accessories-after-the-fact. HTH. Update: Added <readmore>	[reply] [d/l] [select]
Re: pushing hash values to an array by jwkrahn (Abbot) on Oct 16, 2006 at 15:22 UTC
`foreach $key(keys %h) { push(@arr,$h{$key}); }` [download] Could more simply be written as: `push @arr, values %h;` [download] If the values contain array references then: `push @arr, map @$_, values %h;` [download] Or if the values contain hash references then: `push @arr, map %$_, values %h;` [download] And if you don't know beforehand: `push @arr, map ref() eq 'ARRAY' ? @$_ : ref() eq 'HASH' ? %$_ : $_, va +lues %h;` [download]	[reply] [d/l] [select]