fork(1) download
copy 
  1. print "Please input DNA sequence\n";
  2. $dna = <stdin>;
  3. $inverse = $dna;
  4. $length = length($dna);
  5. for ($i = 0; $i < $length; $i++)
  6. {
  7. 	$temp = $dna[i];
  8. 	if($temp == "G") {$inverse[i] = "C";}
  9. 	else if($ temp == "C") $inverse = "G";
  10. 	else if($ temp == "A")	$inverse = "T";
  11. 	else if($ temp == "T")	$inverse = "A";
  12. }
  13. print "DNA Sequence entered: " $dna "\n";
  14. print "Inverse DNA is	   : " $inverse "\n";
Runtime error #stdin #stdout #stderr 0s 18256KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Scalar found where operator expected at prog.pl line 9, near ") $inverse"
	(Missing operator before $inverse?)
Scalar found where operator expected at prog.pl line 10, near ")	$inverse"
	(Missing operator before $inverse?)
Scalar found where operator expected at prog.pl line 11, near ")	$inverse"
	(Missing operator before $inverse?)
Scalar found where operator expected at prog.pl line 13, near ""DNA Sequence entered: " $dna"
	(Missing operator before  $dna?)
String found where operator expected at prog.pl line 13, near "$dna "\n""
	(Missing operator before "\n"?)
Scalar found where operator expected at prog.pl line 14, near ""Inverse DNA is	   : " $inverse"
	(Missing operator before  $inverse?)
String found where operator expected at prog.pl line 14, near "$inverse "\n""
	(Missing operator before "\n"?)
syntax error at prog.pl line 9, near "else if"
syntax error at prog.pl line 13, near ""DNA Sequence entered: " $dna "
syntax error at prog.pl line 14, near ""Inverse DNA is	   : " $inverse "
Execution of prog.pl aborted due to compilation errors.
https://ideone.com/1CsT1s
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!