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.
> #!/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
--
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/
