"R. Joseph Newton" wrote:
>
Samll correction to the sample code. I started out using $pics as the name for the
reference to the outer hash, and forgot to change one instance when I changed this
to $views.
> my $views = {};
> while (<IN>) {
> my @name_elements = split /\./;
> $views->{$name_elements[0]} = {} unless $views->{$name_elements[0];
> $views->{$name_elements[0]}->{$name_elements[1]} = 1;
> }
>
> Then you can validate that the set of pictures for each brand is complete:
> foreach $brand (keys %$views) {
> my $set = $views->{$brand};
> $complete_set->{$brand} = 1 if $set->{1} and $set->{2} and $set->{3};
> }
>
> Joseph
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
