fork download
copy 
  1. #!/usr/bin/perl
  2. # Selecao Simples.
  3. my ($sequencia01, $sequencia02);
  4. $sequencia01 = "GTGGGATC";
  5. print "Digite a sequencia: ";
  6. chomp($sequencia02 = <STDIN>); 
  7. if($sequencia01 eq $sequencia02){
  8.      print "Sequencia encontrada\n";
  9.   }
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Digite a sequencia:
https://ideone.com/Lb2VY
language:
Perl (perl 5.28.1)
created:
14 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!