Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
use strict;
...
  }
}
print "L2: $_\n" for @list2;
  2. or download this
    #!/usr/bin/perl -wT
use strict;
...
my $letter2 = 'A,C,G,N,T';
my @list2 = (glob("{$letter2}"x2),glob("{$letter2}"x3),glob("{$letter2
+}"x4));
print "L2: $_\n" for @list2;