请教hash 值互换

ludio333

$cfg = {
        a => 'abc',
        b => 'bcd',
};
希望更换为
$new = {
        a => 'bcd',
        b => 'abc',
};
有什么好办法么。

iakuf

1. %old = (a => 'abc', b => 'bcd');
   
2. %new = map{ $old{$_},$_ } keys %old;

复制代码

inchonline

回复 1# ludio333
直接交换就可以了

    ($hash{a},$hash{b})=($hash{b},$hash{a});

ludio333

回复 2# iakuf


感谢 不过    我的意思不是 reverse。

ludio333

回复 3# inchonline

感谢，这个已经实现了，只是想看看有什么好办法
   

yybmsrs

@$cfg{'a','b'} = @$cfg{'b','a'};

ludio333

回复 6# yybmsrs


    好象也只能数组弄了

llbgurs

1. %new = reverse %old

复制代码

kk861123

可以考虑再定义一个用于交换的hash

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my %swap = (
   
7.         'a' => 'b',
   
8.         'b' => 'a',
   
9. );
   
10. my %cfg = (
    
11.         'a' => 'abc',
    
12.         'b' => 'bcd',
    
13. );
    
14. 
    
15. my %new = map {$_ => $cfg{ $swap{$_} }} keys %cfg;
    
16. print Dumper \%new;

复制代码

ludio333

回复 9# kk861123


    感谢