请问我要删除hash表中一个已知的影射值该怎么写

youkenn82

比如说,我只知道temp中有个BB,我要删除这个值和对应的键(键不知道)
%temp=(aa=>'AA',bb=>'BB',cc=>'CC');

MMMIX

原帖由 youkenn82 于 2009-3-30 14:44 发表
比如说,我只知道temp中有个BB,我要删除这个值和对应的键(键不知道)
%temp=(aa=>'AA',bb=>'BB',cc=>'CC');

先遍历 hash，找到对应的 key，然后再删除。

youkenn82

请问如何找到对应的key,该怎么写,急

redicaps

perldoc -f keys

chenzq1604

原帖由 youkenn82 于 2009-3-30 14:44 发表
比如说,我只知道temp中有个BB,我要删除这个值和对应的键(键不知道)
%temp=(aa=>'AA',bb=>'BB',cc=>'CC');

delete($temp{'bb'});

youkenn82

bb这个数值不知道的
这么说吧,只知道%temp中有个映射值叫BB,我要删除这个BB和对应的key

chenzq1604

1. 
   
2. foreach my $str (keys %temp){
   
3. 
   
4.    delete( $temp{$str})  if $temp{$str} eq "BB";
   
5. }
   

复制代码

youkenn82

谢谢楼上的,问题解决了

hotsnow

while (($key, $value) = each %hash) {
    delete %hash{$key} if $value eq "BB";
}

2楼和4楼的老大都告诉你怎么做了，你还要问人要代码，唉！

surfybeach

原帖由 hotsnow 于 2009-3-31 10:16 发表
while (($key, $value) = each %hash) {
    delete %hash{$key} if $value eq "BB";
}

2楼和4楼的老大都告诉你怎么做了，你还要问人要代码，唉！

注意，楼上这种用法不对，在each循环中改变hash值的结果是未定义的，具体参见：
http://blog.plover.com/prog/perl/undefined.html
Perl: modifying a hash in a loop

7楼用法可行，解释参见<Perl Cookbook>的5.4. Traversing a Hash或perldoc -f delete示例

这个问题解法的另一种写法是：

1. delete @temp{grep $temp{$_} eq 'BB', foreach keys %temp}

复制代码