I wrote a program that asks the user for four strings. Thereafter, derive the length of these four strings and store the lengths in an array. Next, I want to print out the lengths in sorted order to the terminal. Below is the program for this task
#!/usr/bin/perl -w
use warnings;
print "Please enter first DNA sequence\n";
$firstDna = <STDIN>;
$frstLength = length($firstDna);
print "Please enter second DNA sequence\n";
$secondDna = <STDIN>;
$scndLength = length($secondDna);
print "Please enter third DNA sequence\n";
$thirdDna = <STDIN>;
$trdLength = length($thirdDna);
print "Please enter fourth DNA sequence\n";
$fourthDna = <STDIN>;
$frthLength = length($fourthDna);
@array = sort($frstLength, $scndLength, $trdLength, $frthLength);
print "Your Dna sequence length is: @array";
I have 2 problems with this code first is it gives the length of the string but it also counts the enter key for example if i type a string of 6 characters it gives me the length 7. and second the order is not sorted although i have used to sort function for that. Please help me with this problem thank you in advance :)