Help for this page

Select Code to Download


  1. or download this
    $a = 'PF01389    6    218    1    255    430.09';
$b = 'PF00691    PF01389';
...
my %a; @a{@a} = ();

my @common = grep { exists $a{$_} } @b;
  2. or download this
    my $pattern = $b; # so as not to bash $b
$pattern =~ s/\s+/|/g;

@common = " $a " =~ /\s($pattern)\s/g;
  3. or download this
    my $pattern = join '|', map quotemeta($_), split ' ', $b;
@common = " $a " =~ /\s($pattern)\s/g;