Re: HoA question
- From: cajun@xxxxxxxxxxxx (M. Lewis)
- Date: Thu, 28 Dec 2006 20:58:16 -0500
John W. Krahn wrote:
M. Lewis wrote:I'm still experimenting with the HoA from a couple of days ago. I just
realized there is the possibility for having duplicate elements of the
array. How do I prevent that?
Use a hash instead of an array.
Thank you John. I wondered about that as I was composing the question.
More to study and learn!
Thanks,
Mike
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper::Simple;
my %HoA;
while (my $line = <DATA>){
chomp $line;
my ($prod, $flavor) = split ' ', $line, 2;
push @{ $HoA{ $prod } }, $flavor;
}
for my $i ( keys %HoA ) {
print "$i -- @{ $HoA{$i} }\n";
}
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";
}
John
--
The world will end in 5 minutes. Please log out.
20:55:02 up 14 days, 17:46, 0 users, load average: 0.67, 0.40, 0.34
Linux Registered User #241685 http://counter.li.org
.
- References:
- HoA question
- From: "M. Lewis"
- Re: HoA question
- From: "John W. Krahn"
- HoA question
- Prev by Date: Re: HoA question
- Next by Date: Re: HoA question
- Previous by thread: Re: HoA question
- Next by thread: Re: HoA question
- Index(es):
Relevant Pages
|