zwei Arrays vergleichen und doppelten Inhalt löschen (gelöst) - #178342 (Allgemeines zu Perl)

Raubtier

2014-11-13 16:16

User since
2012-05-04
1076 Artikel
BenutzerIn
[default_avatar]

Das glaube ich nicht.

Der Beispielcode von FIFO funktioniert, wie man sich leicht überzeugen kann, z.B. indem man ein print einbaut.

Code (perl): (dl )

my @a = ( 1, 2, 3, 4, 5, 6, 7, 8 );
my @b = ( 12, 13, 1, 2, 3, 4, 22 );
my %h = map { $_ => 1 } @a;

use Data::Dumper;
print Dumper \@b;
@b = grep { ! exists $h{$_} } @b;
print Dumper \@b;