Searching in Hashes

[Gangreen]

There is a hash in my program.
The problem is I need to search in the hash, but there are some keys that are identical, but I need to get the associated value of all these keys.

when I do something like

$value = $hash{ "theKey" };

obviously I'm only getting the value associated to the first key called "theKey". How can I get the others? Some sort of loop?

thanks

[KevinADC]

Hashes can not have identical keys. Each key has to be unique. Are you using a hash of hashes or array of hashes?

[Gangreen]

Hashes can not have identical keys. Each key has to be unique. Are you using a hash of hashes or array of hashes?

Let me give you some mre info; it's an exercise I'm making.

It's like a webshop which has items, a product code, a price and a quantity.

I read a file, which holds a 'database' of items for sale and it's structured like this:
for every item for sale there is a line in the textfile:

value1|value2|v alue3|value4

value1 is unique for every item. Call it a productcode or id number.
anyway due to search querys I will need to be able to get a product code from a title(which is provided by the query).

so I need a hash which has the names of the objects as keys, and the associated values will be the product codes.

now let's say there is a book and a dvd for sale with the exact same name I need to be able to get both product codes out of my hash.

That's the whole problem.

I have doublechecked my hash, and it has two identical keys after reading the file and creating the hash... I printed them all with a foreach loop.

p.s it's just a simple hash, no complicated things, I'm new^^

[KevinADC]

The same hash can not have two identical keys. Try it and see:

%hash = (
   foo => 1,
   foo => 2,
   foo => 3
);
 
foreach my $key (keys %hash) {
   print "$key = $hash{$key}\n";
}
 

I don't know where you are making an error in thinking that your hash does. Post some code so I can take a look at what you are doing.

[Gangreen]

sub loadInventory{
     open (INVENTORY, $inventoryPath);
     $line = <INVENTORY>;
     while ($line){
        @fields = split(/\|/ , $line);
        ...
        %inventoryCodes = ($fields[1],$fields[0],%inventoryCodes);
    ...
        $line = <INVENTORY>;
     }
}
 

the file to be read has got for example these two lines:

DVD-432|Harry Potter and the Prisoner of Azkaban|25.00|5
BOOK-432|Harry Potter and the Prisoner of Azkaban|15.00|7

because of the split: the values are:
$fields[0] | $fields[1] | $fields[2] | $fields[3]

so, because of this line:
%inventoryCodes = ($fields[1],$fields[0],%inventoryCode s);

i guess this hash will get two pairs, both with the value "Harry Potter and the Prisoner of Azkaban", but they won't have thesame product code...or am I mistaken?

Thanks for the help btw

[WinblowsME]

How about storing and printing the data like the following?

use warnings;
use strict;
use Cwd;
 
&init;
 
sub init
{
   my %data = ();
   my $directory = &getcwd;
 
   open ( IN, "$directory/Input.txt" );
      my $line = <IN>;
 
      while ( $line = <IN> )
      {
         chomp ( $line );
 
         my ( $type_id, $name, $price, $quantity ) = split ( /\s*\|\s*/, $line );
         my ( $type, $id ) = split ( /-/, $type_id );
 
         $data{$id}{$type}{NAME}     = $name;
         $data{$id}{$type}{PRICE}    = $price;
         $data{$id}{$type}{QUANTITY} = $quantity;
      }
   close ( IN );
 
   foreach my $i ( sort keys %data )
   {
      foreach my $t ( sort keys %{$data{$i}} )
      {
         # if ( $t =~ /DVD/i )
         # if ( $t =~ /book/i )
 
         if ( $data{$i}{$t}{NAME} =~ /Harry Potter/i )
         {
            print "$i -> $t -> $data{$i}{$t}{NAME} -> $data{$i}{$t}{PRICE} -> $data{$i}{$t}{QUANTITY}\n";
         }
      }
   }
}

[KevinADC]

guess this hash will get two pairs, both with the value "Harry Potter and the Prisoner of Azkaban", but they won't have thesame product code...or am I mistaken?

"Harry Potter and the Prisoner of Azkaban" is a value, not a key. The key is the product ID. Your code could be written much better.

[Gangreen]

@WinblowsME: Thanks, but I'm affraid that is not allowed due to other restrictions..

@KevinADC: I'm aware my code isn't good ^^ I'm only into perl a couple days now,

anyway...If Harry Potter and the Prisoner of Azkaban is a value, howcome when I do:

$productCode = $inventoryCodes { Harry Potter and the Prisoner of Azkaban }

the $productCode variable is correct? but ofcourse only the DVD-code, and not both (DVD and BOOK)...I'm confused now ^^

[KevinADC]

@KevinADC: I'm aware my code isn't good ^^ I'm only into perl a couple days now,

anyway...If Harry Potter and the Prisoner of Azkaban is a value, howcome when I do:

$productCode = $inventoryCodes { Harry Potter and the Prisoner of Azkaban }

the $productCode variable is correct? but ofcourse only the DVD-code, and not both (DVD and BOOK)...I'm confused now ^^

My mistake, I misread the code:

%inventoryCodes = ($fields[1],$fields[0],%inventoryCode s);

you reversed fields [1] and [0] making field [1] the key and field [0] the value. The fact remains, hashes can not have two identical keys, there is no reason to continue discussing that part of the question. When you build up your hash from the file the last value that was read in from the file that is associated with the key will be stored in the hash. If you need a hash key to have multiple values you have to use more complex data structures, like a hash of arrays or whatever is appropriate.

[Gangreen]

I believe you about the unique key part.

Ii'm trying to figure out how I'm gonna bypass that problem. probably by working with arrays, which is easy, instead of hashes, but that will be slow with big files..

Do you know any way of creating a hash system in which I can store the names: like "Harry Potter..." and the productcode of the object. With the knowledge that there will be items with identical names but different productcodes AND that I need to be able to find the productcodes of all items mathing a specified name? (because I need to implement a "search" option based on product names)