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 17488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Scalar found where operator expected at prog.pl line 8, near ") $INVERSE"
	(Missing operator before $INVERSE?)
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 8, near ") $INVERSE"
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/IMqve9
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!