Skip to content

Instantly share code, notes, and snippets.

@mertkahyaoglu

mertkahyaoglu/test.pl

Last active November 18, 2015 00:04
Show Gist options
  • Save mertkahyaoglu/81c96100a4233bebfee5 to your computer and use it in GitHub Desktop.
Save mertkahyaoglu/81c96100a4233bebfee5 to your computer and use it in GitHub Desktop.
Download ZIP
Bioinformatic Midterm Question
Raw
test.pl
#!/usr/bin/perl
my $DNA = <>;
myfnc(\$DNA);
sub myfnc {
my ($dna) = @_;
if(${$dna} =~ /atg/) {
${$dna} =~ s/atg/ATG/g;
}
}
print $DNA;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment