hash converting to hash 1

[ncmls]

Hi,

I've got a problem:

I wanna covert this hash

x => (a , b)
y => (a , c)
z => (a)

to a hash like this

a => (x, y, z)
b => (x)
c =>

Can somebody help me? Thanx

Robert

 

[ncmls]

somebody have some tips,...

 

[ishnid]

What code did you use to construct the initial hash? I would think this task would be pretty similar to that.

 

[rharsh]

See if this helps:

my %hash = (
	x => [qw/a b/],
	y => [qw/a c/],
	z => [qw/a/]
);

my %hash1;
foreach my $key (keys %hash) {
	foreach my $value (@{ $hash{$key} }) {
		push @{ $hash1{$value} }, $key;
	}
}