Help for this page

Select Code to Download


  1. or download this
    +{
          'b' => 'B',
          'a' => 'A',
          'c' => 3
        };
  2. or download this
    while (my ($key, $val)= each %hash1) {
        exists $hash2{$val} and
                $hash1{$key}= $hash2{$val};
        }
  3. or download this
    {
        my %thash= (map (($_,$_), values %hash1), %hash2);
        @hash3{keys %hash1}= @thash{values %hash1};
}