Hmm... let's see...
my %temphash; while (($key,\@val) = each %myhash) { $temphash{join sort @val} = $key; } undef %myhash; while (($key,$val) = each %temphash) { $myhash{$val} = split $key; }
Note: This is untested and will likely go through a couple of Updates.
LAI
__END__In reply to Re: How to compare hash value
by LAI
in thread How to compare hash value
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |