Help for this page

Select Code to Download


  1. or download this
    input is:
A0000.f BG_c22
...
A00AS.f BG_c52
A00DK.f BG_c5
A00F3.f BG_c14
  2. or download this
    #!/usr/bin/perl
use strict;
...
my $del= join '|', map quotemeta, @dels;
my @arr1=grep !/$del/,@arr;
print OUTFILE "@arr1\n";