in reply to splitting a list

Check the FAQs for "list" - "perldoc -q list" can help.

my @l1 = qw(education production results);
my @l2 = qw(education joe bob carl production steve results tests);
my %h1; undef @h1{@l1};
my @o2 = grep { not exists $h1{$_} } @l2;

[download]

Replies are listed 'Best First'.
Re^2: splitting a list
by Roy Johnson (Monsignor) on Jul 05, 2005 at 15:45 UTC
    Bad (undocumented behavior): 
    undef @h1{@l1}

    [download]
    Better: 
    @h1{@l1} = ();

    [download]
    Caution: Contents may have been coded under pressure.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom