Remove new line from german array

1 files changed, 7 insertions, 2 deletions

diff --git a/Aufgabe3/skript2.pl b/Aufgabe3/skript2.pl
index da9a20a..3107190 100644
--- a/Aufgabe3/skript2.pl
+++ b/Aufgabe3/skript2.pl
@@ -38,7 +38,8 @@ my %german;
 
 while (my $line = <$germanFile>)
 {
-	$german{uc $line} = 0;
+	chomp $line;
+	$german{uc $line} = uc $line;
 }
 
 close  $germanFile
@@ -54,6 +55,7 @@ my @loesung;
 
 while (my $line = <$quadratFile>)
 {
+	chomp $line;
 	if (exists $german{uc $line})
 	{
 		push @loesung, uc $line;
@@ -86,7 +88,10 @@ my	$loesungFile_file_name = 'loesung.dat';		# output file name
 open  my $loesungFile, '>', $loesungFile_file_name
 	or die  "$0 : failed to open  output file '$loesungFile_file_name' : $!\n";
 
-print $loesungFile @loesung_unique;
+foreach my $field (@loesung_unique)
+{
+	printf $loesungFile "$field\n";
+}
 
 close  $loesungFile
 	or warn "$0 : failed to close output file '$loesungFile_file_name' : $!\n";