Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -l

...
print 'Initial:            ', $seq;
print 'Complement:         ', @comp{split '' => $seq};
print 'Reverse Complement: ', @comp{reverse split '' => $seq};
  2. or download this
    Initial:            ACGTacgt
Complement:         TGCAtgca
Reverse Complement: acgtACGT
  3. or download this
    my @n = split '' => $seq;
print 'Complement:         ', @comp{@n};
print 'Reverse Complement: ', @comp{map { $n[$#n - $_] } 0 .. $#n};