in reply to Multi-dimensional Array Issue

$product[$x][$y] is short for $product[$x]->[$y]. In other words, $product[$x][$y] means $product[$x] needs to contain an array ref. However, you claim that $product[$x] contains the product name. $product[$x] cannot contain both an array ref and a product name, so you have a problem with the design of your data structure.

Perhaps you want something like:

$product[$x]{name} is the name of product $x. $product[$x]{opts}[$i] is the option $i of product $x. @product is the list of products. map { $_->{name} } @product is the list of product names. @{$product[$x]{opts}} is the list of options of product $x.

or maybe you'd like to use a hash of products instead of an array of products:

$product{$name}[$i] is the option $i of product $name. keys %product is the list of product names. @{$product{$name}} is the list of options of product $name.

(Product names must be unique when using a hash of products.)

Replies are listed 'Best First'.
Re^2: Multi-dimensional Array Issue
by Anonymous Monk on Jul 15, 2005 at 19:09 UTC
    If I go with your suggestion on redoing my code, how would I loop through each option?

      If using an array of products:

      my @products; ... if (/^Product\sname:\s(\w.*)/) { push(@products, { name => $1, opts => [] }); } if (/^Option\sName:\s(\w.*)/) { push(@{$products[-1]{opts}}, $1); } ... foreach my $product (@products) { my $name = $product->{name}; my $opts = $product->{opts}; print($name, ': ', join(' ', @$opts), "\n"); }

      If using a hash of products:

      my %products; ... if (/^Product\sname:\s(\w.*)/) { $name = $1; $products{$name} = []; } if (/^Option\sName:\s(\w.*)/) { push(@{$products{$name}}, $1); } ... foreach my $name (keys %products) { my $opts = $products{$name}; print($name, ': ', join(' ', @$opts), "\n"); }

      Update: Pluralized the array/hash name (@products/%products) to avoid confusion with $product.

      Update: Added initialization code.

        Thank you so much for your help!