Help for this page

Select Code to Download


  1. or download this
    my %lookup;
    @lookup{@in} = ();
    ...
        @db = grep {not exists $lookup{$_}} @db;
      }
    }
    
  2. or download this
    my (%db_lookup, %in_lookup);
    @db_lookup{@db} = ();
    ...
    } elsif ($condition2) {
      push @db, grep { not exists $db_lookup{$_} } @in;
    }