M. Lewis wrote:
> John W. Krahn wrote:
>>
>> my %HoH;
>>
>> while (my $line = <DATA>){
>> chomp $line;
>> my ($prod, $flavor) = split ' ', $line, 2;
>> $HoH{ $prod }{ $flavor } = ();
>> }
>>
>> for my $i ( keys %HoH ) {
>> print "$i -- @{[ keys %{$HoH{$i}} ]}\n";
>> }
>
> Does it matter that the value of the HoH is undef?
It didn't look like you needed a value, but if you do you can put whatever you
want in there.
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
