咨詢問題，如何從數(shù)組中刪除指定值

305838894

例如我現(xiàn)在數(shù)組中的值是@project = ('NX11','NX12','NX13')
另外一個(gè)數(shù)組里面的數(shù)值不確定，是從某一個(gè)地方獲取到的，例如獲取到是@get = ('ss','ssfd','NX12','sed','NX11')
現(xiàn)在通過什么辦法可以把第一個(gè)數(shù)組中出現(xiàn)過的值，如果第二個(gè)數(shù)組中也有的話刪除掉，然后保留第二個(gè)數(shù)組剩下的值，
如上顯示我們最后得到新的@get = ('ss','ssfd','sed'),去掉了兩個(gè)第一個(gè)中出現(xiàn)的
謝謝各位大神

MMMIX

回復(fù) 1# 305838894


    把 @project 弄成個(gè) hash, 然后遍歷 @get, 把需要保留的元素放到個(gè)新數(shù)組中就是了.

104359176

Perl 5.10 以后的智能匹配符號(hào)可以判斷一個(gè)元素是否包含在數(shù)組中：

1. my @a = ('a', 'b');
   
2. if ('a' ~~ @a) ;

復(fù)制代碼

也可以用內(nèi)置的 grep 來篩選：

1. if (grep { $_ == 'a' } @a)

復(fù)制代碼

如果用 Hash 查詢，就先生成一個(gè)查詢 Hash

1. my %lookup_hash = map { $_ => 1 } @a;

復(fù)制代碼

然后就可以判斷了：

1. if (grep { exists $lookup_hash{'a'} } @a);

復(fù)制代碼

305838894

如果判斷到存在了如何刪除？謝謝回復(fù) 3# 104359176


   

xiaoxingan99

回復(fù) 4# 305838894


    判斷重復(fù)的不處理，不重復(fù)的打印出來或者push到一個(gè)新的數(shù)組

xiaoxingan99

參照三樓的，寫了一個(gè)hash的，新手，比較繁瑣
use strict;
use warnings;
my @a = ('NX11','NX12','NX13');
my @b = ('ss','ssfd','NX12','sed','NX11');
my @c;
        my %h=map {$_=>1}@a;
        grep {push @c,$_} (grep {!(exists $h{$_})} @b);
        print "@c";

MMMIX

回復(fù) 3# 104359176


    如果用 smartmatch 的話, grep 一下是最簡單的:

1. 
   
2. grep {not $_ ~~ @project} @get
   

復(fù)制代碼

815138698

回復(fù) 6# xiaoxingan99

grep已經(jīng)有foreach的意思了吧。
@c=grep {!(exists $hash{$_})} @get;

xiaoxingan99

回復(fù) 8# 815138698


      grep一直搞不太定

305838894

大神還是搞不定啊，原諒新手 回復(fù) 3# 104359176