Re: Continuing from "Turning foreach into map?" - perlreftut and References

[Random_Walk]

I am guessing you want to get something like this.

User enters a list of food items
Program looks up group for food items
Program looks up rules to see if those groups can be combined or not.
Program reports to user

The best aproach for this would be to make a hash with the food item as the key and its group number as the value stored under this key. No playing with refs there :(

Perhaps you want the user to enter a food item and the program will suggest possibly combinations to go with this, in this case the best approach is probably functional programing ! I think Haskell is the popular one round here. But that is not why we're here is it, to do it in perl you may well want to build an array or hash of arrays. As your food groups are numeric in your rules I'd be inclined to use array of arrays.

@food=(
        ['eggs', 'fish'],
        ['cheese', 'lard'],
        ['breed', 'rice'],
        ['beer', 'wine'],
);

print $food[3][0]; # prints beer

If you want to do the hash of arrays you can build it up like this

%food=( 'carbs' => ['breed', 'rice'],
        'tasty' => ['chocolate', 'pistacio'],
);
print $food{tasty}[1]; # prints pistacio

Cheers,
R.