John W. Krahn wrote:
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
Thanks John. You're correct, I don't 'need' the value. I was just
wondering if the 'undef' was a problem in some way.
Thank you.
--
UNIX is a computer virus with a user interface.
00:45:01 up 14 days, 21:36, 0 users, load average: 0.11, 0.23, 0.33
Linux Registered User #241685 http://counter.li.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
