From a28373665a3cfa42d21462b92244697e6f8f0a7d Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Fri, 6 Nov 2015 10:44:17 +0100
Subject: Remove new line from german array

---
 Aufgabe3/skript2.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Aufgabe3')

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";
-- 
cgit v1.2.3-70-g09d2