Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
# usage: ./generate_ACGT_01.pl
...
  }
}
# eof
  2. or download this
    #!/usr/bin/perl
# usage: | test_ACGT_01.pl
...
  print "$_ ". (/^$side,$side$/ ? 'Y' : 'N') . $/;
}
# eof
  3. or download this
    $ ./generate_ACGT_01.pl > y
$ cat y | ./test_ACGT_01.pl > x
$ less x