Perl快捷删除數組重複元素

今天拿出來，再好好剖析一下：

定義一個計數哈希，并且初始化為空，即：my %count = ();

該哈希%count的key為數組元素（即：上面代碼中的$_），value為數組重複元素的計數（即：上面代碼中的$count{$_}， 初始化值為0，并且該哈希通過key每擷取一次value, value都會++）

代碼塊{ ++$count{$_} == 1 }作為無重複元素的判斷條件，并通過grep得到一個滿足無重複元素的子數組

完整代碼：