请教hash 值互换

ludio333

又想到一个
#!/usr/bin/env perl
use strict;
use warnings;
use Data:umper;

my $cfg = {
        a => 'abc',
        b => 'bcd',
};
my %new;
my @tmp = %$cfg;
for my $i (0..$#tmp){
--$|;
if ($|){$new{$tmp[$i]} = $tmp[$#tmp-$i]}else{$new{$tmp[$#tmp-$i]} = $tmp[$i]};
}
print Dumper \%new;

sjdy521

回复 1# ludio333


    看了下楼上几位，似乎都不够简洁，还是继续发挥perl的“任何事情都有不止一种做法”的思想

1. @cfg{a,b}=@cfg{b,a}

复制代码

ludio333

回复 12# sjdy521

    我这个需求写的不够清楚，不好意思；
    这个key是正则取回来的，不是固定的。