Question

perl 里面grep函数求解？逗号后面是什么意思呢？前面的知道！

my @types = grep {!$seen{$_}++} @known_types, $self->evidence_types;

Answer 1

grep BLOCK LIST， {!$seen{$_}++}是BLOCK 然后是LIST， @known_types, $self->evidence_types， 不要分开看，相当于把@known_types和$self->evidence_types 放到一个列表中

Answer 2

先举个例:

@shortA = ( 1,2,3 );
@shortB = ( 4, 5, 6 );
@shortC = ( 1,3,5 );
@longList = ( @shortA, @shortB, @shortC );
这时 @longList = ( 1,2,3,4,5,6,1,3,5 );

如果将你的原句拆成两句, 可以写成

@evidence = $self->evidence_types;
my @types = grep {!$seen{$_}++} ( @known_types, @evidence );

最後, 就从这两个 array 中, 找出不同的原素, 放到 types 里了.

Answer 3

OO里面的东西,不太了解