#!/usr/bin/perl -w
# Autor: Simon Fehrenbach
# Erstellt: 13/11/2017
# Berechnung der Schmelztemperatur
############################################################################################################################################################################################################################
#hier wird die Konsole gecleart, also leer gemacht. Weil das viel besser und übersichtlicher und so ist! <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
system "clear";
#Eingabe
#Hier Wird der Benutzer aufgefordert die Primersequenz einzugeben. <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
print "Bitte geben Sie eine Primersequenz ein: ";
#Das ist die Eingabe der Primersequenz <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
chomp($sequenz = <STDIN>);
#Verarbeitung
#Hier wird die Anzahl der g's gezählt! <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$anzahl_g = ($sequenz =~ s/g/0/gi);
#Hier wird die Anzahl der c's gezählt! <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$anzahl_c = ($sequenz =~ s/c/0/gi);
#Hier wird die Anzahl der t's gezählt! <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$anzahl_t = ($sequenz =~ s/t/0/gi);
#Hier wird die Anzahl der a's gezählt! <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$anzahl_a = ($sequenz =~ s/a/0/gi);
#Hier wird die Schmelztemperatur berechnet <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$schmelz = 4*($anzahl_g+$anzahl_c)+2+($anzahl_a+$anzahl_t);
#Hier wird der GC-Gehalt berechnet <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
$gehalt_gc = (($anzahl_g+$anzahl_c) / length $sequenz)*100;
#Ausgabe
#Sternchen <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
print "\n";
print ("\033[47m\033[30m~\033[0m"x40,"\n\n");
#Ausgabe der Schmelztemperatur <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
print "Die Schmelztemperatur beträgt \033[31m\033[1m$schmelz°C\033[0m\n";
#Ausgabe des GC-Gehalts <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
print "Der GC-Gehalt liegt bei \033[34m\033[1m$gehalt_gc\%\033[0m\n\n";
#mehr Sternchen <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
print ("\033[47m\033[30m~\033[0m"x40,"\n");
print "\n";
#Verlassen des Scripts <- Das ist ein Kommentar er macht den Code VIEL übersichtlicher
exit;