fork download
copy 
  1. $DNA = <STDIN>;
  2. $position = index[$DNA;"AA";3];		
  3. if ($position = -1);				
  4. { 							
  5. 	print "NOT FOUND.";				
  6. }						
  7. else						
  8. {								
  9. 	print "FOUND";					
  10. }
Runtime error #stdin #stdout #stderr 0s 17496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
syntax error at prog.pl line 2, near "$DNA;"
syntax error at prog.pl line 2, near "3]"
syntax error at prog.pl line 3, near ");"
syntax error at prog.pl line 7, near "else"
Execution of prog.pl aborted due to compilation errors.
https://ideone.com/Ht8CkF
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!