看一下这段代码。经过几个小时的试错之后。我终于有了一个解决方案。但我不知道它为什么能工作,说实话,Perl在这里把我搞糊涂了。
use Data::Diff 'Diff';
use Data::Dumper;
my $out = Diff(\@comparr,\@grabarr);
my @uniq_a;
@temp = ();
my $x = @$out{uniq_a};
foreach my $y (@$x) {
@temp = ();
foreach my $z (@$y) {
push(@temp, $z);
}
p