diff options
| -rw-r--r-- | Aufgabe3/skript2.pl | 9 |
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"; |