http://qs321.pair.com?node_id=153422


in reply to How Do I Compare Array A to Array B, removing B elements from A.

my @C; OUTER: for ( @A ) { for my $pat ( @B ) { if ( /\Q$pat/i ) { next OUTER; } } push @C, $_; }
  • Comment on Re: How Do I Compare Array A to Array B, removing B elements from A.
  • Download Code

Replies are listed 'Best First'.
Re: Answer: How Do I Compare Array A to Array B, removing B elements from A.
by amitbhosale (Acolyte) on Apr 09, 2008 at 07:39 UTC

    other strategy for above solution is.
    @array_one = qw(one two three four); @array_two = qw(three four five six); %array_one = map {$_, 1} @array_one; @difference = grep {!$array_one {$_}} @array_two; print "@difference\n";