perl删除两个列表中都包含的元素

lakers009

　　在上午工作的时候遇到一个问题，有两个列表A和B，分别都是无重复元素的列表。B中的元素A中有可能也包含，现在需要把A，B两个列表都包含的元素从A中删除。查看了一下手册，没有直接这样的函数或者方法，而且perl的列表操作这块提供库函数没有Erlang那么多，这就需要我们自己想办法。

最后的想到一个简单可靠的办法，先由A构建一个散列，利用散列key的唯一性，然后在通过 delete %hash{key} （key为B的元素）把有可能共同包含的元素删除，最后再由keys函数生成满足要求的列表。
我这边的一种实现方法：　　

•     my %hash;
  
•     grep(!$hash{$_}++, @A);
  
•     while(){
  
•     # 包含就删除，不包含就不处理
  
•         delete $hash{$_};
  
•     }
  
•     # @A现在就是可以删除的玩家id列表
  
•     @A = keys %hash;
  

　　

网络上还有很多方案，千奇百怪都有。通过这个实际问题，我看到perl解决问题思想就是“可以通过很多方法解决同一个问题”。