Re: Hash Question

[lindex]

I think this might work for you, basicly all it does is takes two hashes with the same keys but different values and then merges them into one hash with the same keys but values as arrayref's of the values of the other two hashes :)

use strict;

my(%hash1) = (
 'foo'  => 'bar',
 'bleh' => 'qwer',
 'lala' => 'asdf'
);

my(%hash2) = (
 'foo'  => 'bvcx',
 'bleh' => 'lkjh',
 'lala' => 'iopj'
);

my(%hash3) = map {
        $_ => [$hash1{$_}]
} keys(%hash1);

map {
        push(@{$hash3{$_}},$hash2{$_});
} keys(%hash2);

foreach (keys(%hash3)) {
        print "$_ is\n";
        map {
                print "\t$_\n";
        } @{$hash3{$_}};
}

lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/

[chromatic]

This could be made into one line, but it's too late at night to do the formatting change:

foreach my $key (keys %hash1) {
    $hash1{$key} = [ defined $hash2{$key} ?
         ($hash1{$key}, $hash2{$key}) : $hash1{$key} ];
}

That could be made to go into a different hash, if that's your thing.

[lindex]

better yet :) (at least I think this will work)

$hash3 = map { $_ => [ $hash1{$_}, $hash2{$_} ] } keys(%hash1);

p.s. vroom should allow us to customize the size of our text fields... I work on a 20 inch monitor with I.E in fullscreen mode :)


lindex

/****************************/
  [e-mail], [e-mail]
    http://jason.gost.net
/*****************************/