Удалить общие значения из массива multimimension perl

Question

Я хочу удалить общий элемент из массива. Например:

array1 = 
[ 
{'id'=>78597,'data'=>'great'} 
]; 

array2= 
[ 
{'id'=>78345,'data'=>'first'},{'id'=>78597,'data'=>'great'}, 
{'id'=>78355,'data'=>'second'} 
] 

Теперь ключ Id '78597' распространен как в массиве
Теперь я хочу, чтобы удалить этот элемент из массив2 на основе ключа 'id'. В примерах я упоминал, где все одноразмерное.

Answer 1

Вы не можете создать %seen хэш-поиск и фильтр @$array2,

my %seen; 
@seen{ map $_->{id}, @$array1 } =(); 

@$array2 = grep { !exists $seen{$_->{id}} } @$array2;