Bir dizi bir diziden nasıl çıkarılır?

Question

aşağıdaki

#!/usr/bin/perl 

use strict; 
use warnings; 
use Data::Dumper; 

my @bl = qw(red green blue); 
my @a = qw(green yellow purple blue pink); 

print Dumper [grep {not @bl} @a]; 

boş bir dizi olsun çalıştığınızda. @bl'un @a'dan çıkarılmasını beklerdim, böylece çıktı yellow purple pink idi.

Burada sorun ne var?

Answer 1

Sen seti farkı gerçekleştirmek için bir karma haline @bl açmanız gerekir:

my %in_bl = map {$_ => 1} @bl; 
my @diff = grep {not $in_bl{$_}} @a; 

Answer 2

Kodunuzda

perlfaq4: How do I compute the difference of two arrays? Bkz not muhtemelen bunu yaptığını bildiğini yapmak değildir. @bl boş dizidir ve undef@bl eğer boş değilse

not @bl

hep 1 olacaktır. Bu, herhangi bir anlamda " @bl'da olmayan öğeler" anlamına gelmez.

Answer 3

@b1 doğru olarak değerlendirilir senin grep içinde, yani Boole testi (o elementlerin sıfırdan farklı bir sayı ile bir dizi var) Yapı (not @b1) her zaman false değerini döndürür. grep, yalnızca boole testinin doğru döndüğü öğeleri döndüren bir diziyi filtreler.

$_ öğesinin (şu anda göz önünde bulundurulacak olan dizi öğesi) @bl içinde olup olmadığını görmek için sınamanız gerekir. Acme::Tools den minus işlevini kullanarak,

#!/usr/bin/perl 

use strict; 
use warnings; 
use Data::Dumper; 

my @bl = qw(red green blue); 
my @a = qw(green yellow purple blue pink); 

# create a hash 
my %h; 

# nifty trick - use a hash slice to populate the 
# hash. The values are irrelevant so we'll use @bl 
# for those too 
@h{@bl} = @bl; 

print Dumper [grep {!exists $h{$_}} @a]; 

Answer 4

Başka şekilde: Bunu yapmanın bir yolu, karma anahtarlarında $_ varlığı için grep beyanı kontrol altında, sonra tuşları olarak @bl kullanarak geçici karma üretmektir CPAN modülü: Başka bir seçenek perl5i kullanılarak

use strict; 
use warnings; 
use Data::Dumper; 
use Acme::Tools qw(minus); 

my @bl = qw(red green blue); 
my @a = qw(green yellow purple blue pink); 
my @diff = minus(\@a, \@bl); 
print Dumper(\@diff); 

__END__ 

$VAR1 = [ 
      'yellow', 
      'purple', 
      'pink' 
     ]; 

Answer 5

:

use perl5i::2; 

my @bl = qw(red green blue); 
my @a = qw(green yellow purple blue pink); 
my @diff = @a->diff(\@bl); 

say @diff->mo->perl; 

Answer 6

Perl 5.18.0'dan beri smartmatch operatörü deneysel olarak kabul edilir: The smartmatch family of features are now experimental. Bu yüzden bu çözümü artık daha fazla kullanamayacağım.

SmartMatch-operatörü ile bir başka yolu (eğer perl-version 5.010 veya daha varsa):

#!/usr/bin/env perl 
use warnings; 
use 5.012; 

my @bl = qw(red green blue); 
my @a = qw(green yellow purple blue pink); 

my @s = grep{ not $_ ~~ @bl } @a; 
say "@s"; # yellow purple pink 

Answer 7

bir başka yolu kullanmaktır:

List::Compare CPAN module 
use List::Compare ; 
... 
my $compare_obj 
    = List::Compare->new(\@a , \@b1) ; 
@diff = $compare_obj->get_Lonly() ; 
...