Help for this page

Select Code to Download


  1. or download this
    tr/0123/TCAG/
  2. or download this
    my $dna = '';
use constant CHUNKSIZE => 2048;
for (my $offset = 0; $offset < length($raw); $offset += CHUNKSIZE) {
   $dna.= join '', @CONV[ unpack 'C*', substr $raw, $offset, CHUNKSIZE
+ ];
}
  3. or download this
    s/(.)/$CONV[ord $1]/sge