Help for this page

Select Code to Download


  1. or download this
    Example1:
perl -e 'while(<>) {if($_=~/^>/) {print $_;} else {$_=~tr/ATCG/TAGC/; 
+print $_;}}'  FILE
  2. or download this
    perl -nle 'if($_=~/^>/) {print $_;} else {$_=~tr/ATCG/TAGC/; print $_;
+}' FILE
  3. or download this
    perl -nle 'if(/^>/) {print;} else { tr/ATCG/TAGC/; print; }' FILE
  4. or download this
    perl -ple 'if(/^>/) { ; } else { tr/ATCG/TAGC/; }' FILE
  5. or download this
    perl -ple 'tr/ATCG/TAGC/ unless( /^>/ );' FILE
  6. or download this
    perl -ple '/^>/ or tr/ATCG/TAGC/' FILE