Applied Bioinformatics Assignment 1

#writing the results into an output HTML file. $outputfile = 'html_assignment.html'; open (OUTFILE, ">$outputfile"); print OUTFILE " Applied Bioinformatics Assignment 1 "; # user entry of DNA sequence prompt asking if DNA will be manually entered or a file uploaded #manual input will allow a check to occur to ensure correct entry. print "To upload a file containing your DNA sequence press 1, or alternativly press 2 to manually enter your DNA sequence \n\n"; $usrinput = ; chomp $usrinput; ##

##

#start the string from position 0
$revprotein3 = substr($dna,3);
#Translate the DNA to protein
$revprotein3 = dna2peptide($revprotein3);
#Print the sequence in lines of 50 characters long
print "\n\n<----------------Reverse compliment peptide frame 3----------------> \n\n";
print_sequence ($revprotein3,50); 

# printing data sequences to HTML
print OUTFILE "";

 Peptide sequence frame 1

 $protein 

 Peptide sequence frame 2 

 $protein2 

 Peptide sequence frame 3 

 $protein3 

 Peptide reverse compliment sequence Frame 1 

 $revprotein 

 Peptide reverse compliment sequence Frame 2 

 $revprotein2 

 Peptide reverse compliment sequence Frame 2 

 $revprotein3