請(qǐng)教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;

復(fù)制代碼

inchonline

回復(fù) 1# ludio333
直接交換就可以了

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

ludio333

回復(fù) 2# iakuf


感謝 不過(guò)    我的意思不是 reverse。

ludio333

回復(fù) 3# inchonline

感謝，這個(gè)已經(jīng)實(shí)現(xiàn)了，只是想看看有什么好辦法
   

yybmsrs

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

ludio333

回復(fù) 6# yybmsrs


    好象也只能數(shù)組弄了

llbgurs

1. %new = reverse %old

復(fù)制代碼

kk861123

可以考慮再定義一個(gè)用于交換的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;

復(fù)制代碼

ludio333

回復(fù) 9# kk861123


    感謝