比較2個陣列和除去比賽

Question

我有2門陣列（@system，@reserve）。每個包含一個數字列表，我想比較和拼接（可能？）@reserve中匹配@system中的數字的數字。

我已經嘗試了一些響應的發現和拼接的問題在那裏，但他們似乎並不奏效。使用Perl 5.12.4。

@reserve中的數字始終爲11000..136000，系統中的數字始終在@system範圍內，但會有所不同。我一直專注於代碼如下：

my @system = query(); 
my @reserve = 11000..136000; 

foreach my $num (@system) { 
my $index = 0; 
$index++ until $reserve[$index] eq $num; 
splice (@reserve,$index,1); 
} 

查詢（）只是要求系統（PBX）的號碼清單，並將其推入@system。

任何幫助表示讚賞。

感謝，

馬蒂

Answer 1

您不必在使用，而不是hashslice與splice工作：

my @system = query(); 

my %reserve ; 
@reserve{(11000..136000)} = undef ; 

delete @reserve{@system} ; 
my @list_of_reserve = sort { $a <=> $b } keys %reserve ; 

Answer 2

如何：

my @system = query(); 
my @reserve = 11000..136000; 
my %tmp = map{$_ => 1}@system; 
@reserve = grep{!exists $tmp{$_}}@reserve;