Help for this page

Select Code to Download


  1. or download this
    print join'',unpack 'C*',   
  'AGGCGGAAGCACCCAACAGCAACAG' 
^ 'ACACGCAAAAACCGAAGAGAAAGCG';

0460040062000400400200420
  2. or download this
    print $_ = grep $_,unpack 'C*', 
  'AGGCGGAAGCACCCAACAGCAACAG' 
^ 'ACACGCAAAAACCGAAGAGAAAGCG';

10
  3. or download this
    #! perl -slw
use strict;
...
}

close SEQ;