Re: Values not printing.

Because of this line:

$hash3{$vars[2]} = (@vars[0,1]); #add 1,2,3 as needed
[download]

The expression on the left is in scalar context. Thus, the array on the right is evaluated in scalar context, so you store the size of the array, not the elements. Try using this line instead:

@{$hash3{$vars[2]}} = (@vars[0,1]); #add 1,2,3 as needed
[download]

UPDATE: As sierrathedog04 notes, it is the last element of the list that was previously stored, not the size.

-Ton
-----
Be bloody, bold, and resolute; laugh to scorn
The power of man...

Comment on Re: Values not printing. Select or Download Code

Replies are listed 'Best First'.
Re: Re: Values not printing. by sierrathedog04 (Hermit) on Apr 13, 2001 at 02:07 UTC
In the program as qball originally wrote it, `$hash3{$vars[2]} = (@vars[0,1]);` [download] stores the value of `$vars[1]` rather than the size of `@vars[0,1]` You can test this yourself by placing a `print $hash3{$vars[2]} , "\n";` underneath the line that qball originally wrote. `(@vars[0,1])` is a list but not an array. When perl evaluates a list in scalar context it usually throws out everything except for the last element. The last element of the slice `@vars[0,1]` is `$vars[1]`. Hence, that is what perl stores. The distinction between scalar and list contexts, and the implicit overloading of the two by most functions, is one of the key and distinctive elements of Perl. It may be that the genius of Larry Wall, and the success of Perl, all comes down to that critical distinction.	[reply] [d/l] [select]
Re: Re: Values not printing. by qball (Beadle) on Apr 13, 2001 at 00:53 UTC
ton, that worked perfectly. Thank you. How would I access the elements of each array for each key? qball~"I have node idea?!"	[reply]
Re: Re: Re: Values not printing. by ton (Friar) on Apr 13, 2001 at 01:11 UTC
You already are: `foreach my $alias (keys %hash3) { print "The members of $alias are\n"; foreach (@{$hash3{$alias}}) { print "\t$_\n"; } }` [download] If you didn't want to use foreach's aliasing, you would do something like: `print $hash3{$hashKey}->[$arrayIndex];` [download] -Ton ----- Be bloody, bold, and resolute; laugh to scorn The power of man...	[reply] [d/l] [select]