bulding a hash

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

Can someone explain why this is not working.
I capture a single column but more then one row.

my $rows = $sth->fetchall_arrayref();
[download]

I then return the refs from the subroutine.

$options = get_options()
<
[download]

I then pass it to another subroutine

change_dboption ( \$dbh, $DB, $date, $options );
[download]

Then I loop through the rows and try to build the hash with a count

my $count = 1;
my %option_ref = ();
foreach $option ($options){
%option_ref = {$count => @$option};
$count++;
}
[download]

I feel like I am reinventing the wheel by creating the hash but I want the user to be able to input an integer to represent the options returned from the database. So the value they supply will be used to call up the value from the hash.

Comment on bulding a hash Select or Download Code

Replies are listed 'Best First'.
Re: bulding a hash by ikegami (Patriarch) on Jul 19, 2007 at 16:57 UTC
You didn't provide `get_options`, so I have to guess that `$options` is a reference to an array. If so, `foreach $option ($options){` [download] should be `foreach $option (@$options){` [download] because you want to loop over every item in the array referenced by the scalar `$options`. `my @array = qw( a b ); my $scalar = 'xyz'; my $reference = \@array; for (@array ) { print("$_\n"); } print("\n"); for ($scalar ) { print("$_\n"); } print("\n"); for ($reference ) { print("$_\n"); } print("\n"); for (@$reference) { print("$_\n"); } print("\n");` [download] `a b xyz ARRAY(0x226b04) # A ref is just a scalar a b` [download]	[reply] [d/l] [select]
Re: bulding a hash by philcrow (Priest) on Jul 19, 2007 at 16:59 UTC
Perhaps you might rather have DBI build the hash? Then you could try fetchall_hashref. Phil The Gantry Web Framework Book is now available.	[reply]
Re^2: bulding a hash by mnlight (Scribe) on Jul 19, 2007 at 18:42 UTC
I thought of using fetchall_hashref but I am not sure how to use the values inputed by the user as the key. The table I am querying has no values like that. Also I only reference one column and I need a way to point to each individual row value. e.g. My option types are displayed as 1 read 2 write 3 copy I want the user to enter the number value but in the script I need to use the char string.	[reply]


Perl Monk, Perl Meditation
	PerlMonks