Umgekehrtes grep gesucht - #120548 (Allgemeines zu Perl)

neniro

2009-04-14 01:56

User since
2008-12-14
79 Artikel
BenutzerIn
[default_avatar]

Guest TheUser
ich möchte gerne eine Liste durchsuchen und die Elemente der List wiederbekommen welche nicht in einer anderen Liste stehen.

Wie man der Menge der Antworten entnehmen kann, gibt es mehrere Möglichkeiten. Als Alternative möchte ich noch die Verwendung von CPAN:

Perl6::Junction vorschlagen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Perl6::Junction qw/ none /;

my @items = qw/a b c d/;
my @bad   = qw/a d/;

my @filtered = grep { $_ eq none @bad } @items;
print Dumper \@filtered;

-- yet another amateur perl hacker