in reply to equal keys in a hash

What do you mean by 'keys'? In the definition of 'key' usually used with hashes, it's impossible to have duplicate keys (that's just how hashes work). If you mean values, look below.

Reverse the hash, then reverse it again:

my %hash_with_duplicates: # Intitilized elsewhere

my %hash_without_duplicates = reverse reverse %hash_with_duplicates;

[download]

When running a hash through reverse(), it reverses the name/value pairs so that the values become the names. This gets rid of duplicate values. Reversing it again returns us to the orginal hash, but without duplicate values. The only problem is that you have no control over which duplicate value gets deleted.

Update: The above doesn't do what I expected. See replies.

My guess is that Perl sees the result from the first reverse (taken in order of execution) as a list, and thus doesn't treat it by the rules of a hash (i.e., no duplicate keys). The second reverse will reverse it as a plain list, not a hash, which is then assigned to a hash. Again, see the replies below for something that will work.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

Replies are listed 'Best First'.
Re: Re: equal keys in a hash
by Jasper (Chaplain) on Jun 26, 2003 at 17:08 UTC
    Did you test this?

    Surely you need to assign the reversed list to a hash to get rid of the duplicates? ie
    %intermediate_hash = reverse %hash_with_duplicates;

%hash_without_duplicates = reverse %intermediate_hash;

    [download]
    Your code just recreates the original hash quite expensively.

    Jasper
[reply]
[d/l]

      Did you test this?

      No. Did you read my .sig? :)

      To my surprise, you're right. It does just recreate the orginal without getting rid of duplicates. To avoid the intermediate hash, you have to force the first reverse (taken in order of execution) to return a referance to hash, which is then immediately dereferanced:

      my %hash_without_duplicates = reverse %{ +{ reverse %hash_with_duplica
+tes } };

      [download]

      I actually have tested the above :)

      ----
      I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
      -- Schemer

      Note: All code is untested, unless otherwise stated

[reply]
[d/l]

      Or, doing it anonymously without the extra hash:

      %hash_without_duplicates = reverse %{ { reverse %hash_with_duplicates} };

      -xdg

[reply]
[d/l]

In Section Seekers of Perl Wisdom