Help for this page

Select Code to Download


  1. or download this
    print 'ACGT' | '    ';;
    acgt
    
  2. or download this
    $s = 'GGTACACAGAAGCCAAAGCAGGCTCCAGGCTCTGAGCTGTCAGCACAGAGACCGAT';;
    $m = 'GGTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNT';;
    ...
    
    print $s | $mm;;
    GGTacacagaagccaaagcaggctccaggctctgagctgtcagcacagagaccgaT
    
  3. or download this
    #! perl -slw
    use strict;
    ...
    }
    close SEQ;
    close MASK;