diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-20 10:36:39 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-20 10:36:39 +0100 |
| commit | adea9e41e25bdd97a7b148ddb6db30e966f8c266 (patch) | |
| tree | 80aea165f82a5ebe26237a8e968d874576c3df5e /Aufgabe4/skript2.pl | |
| parent | eca42a1723472682dce2f0602b6294525b05bf50 (diff) | |
| download | Skriptsprachen-adea9e41e25bdd97a7b148ddb6db30e966f8c266.tar.gz Skriptsprachen-adea9e41e25bdd97a7b148ddb6db30e966f8c266.zip | |
Comp at the right place
Diffstat (limited to 'Aufgabe4/skript2.pl')
| -rw-r--r-- | Aufgabe4/skript2.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Aufgabe4/skript2.pl b/Aufgabe4/skript2.pl index bba74da..14f057f 100644 --- a/Aufgabe4/skript2.pl +++ b/Aufgabe4/skript2.pl @@ -37,6 +37,8 @@ open my $german9, '<', $german9_file_name my @wort = <$german9>; +chomp @wort; + close $german9 or warn "$0 : failed to close input file '$german9_file_name' : $!\n"; @@ -44,9 +46,6 @@ my $schwierigkeitsgrad = 2; my $index = int rand (int @wort); my @raetsel = verwuerfeln( $wort[$index], $schwierigkeitsgrad); -# remove new lines -chomp @raetsel; - for (my $i = 0; $i < 9; $i++) { if( $i % 3 == 0) |