fork(1) download
copy 
  1. print "Please input DNA sequence\n";
  2. $dna = <stdin>;
  3. $inverse = $dna;
  4. @ar_dna = split(//, $dna);
  5. @ar_inverse = split (//, $inverse);
  6. $length = length($dna);
  7. for ($i = 0; $i < $length; $i++)
  8. {
  9. 	$temp = $ar_dna[i];
  10. 	if($temp == "G") {$ar_inverse[i] = "C";}
  11. 	elsif($ temp == "C") {$ar_inverse = "G";}
  12. 	elsif($ temp == "A")	{$ar_inverse = "T";}
  13. 	elsif($ temp == "T")	{$ar_inverse = "A";}
  14. }
  15. print ar_dna[2];
  16. print "\n";
  17. print ar_inverse[2];
  18. print "\n";
  19. print "DNA Sequence entered: ";
  20. print $dna;
  21. print "\n";
  22. print "Inverse DNA is	   : ";
  23. print $inverse;
  24. print "\n";
Success #stdin #stdout 0s 18256KB
comments (?)
stdin
copy 
ATCGATCGATATAT
stdout
copy 
Please input DNA sequence


DNA Sequence entered: ATCGATCGATATAT
Inverse DNA is	   : ATCGATCGATATAT
https://ideone.com/dftXnc
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!