diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-20 10:37:32 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-11-20 10:37:32 +0100 |
| commit | afd95e17202b27aa06778d65842155292478d6e6 (patch) | |
| tree | 9a6f86ad919afac445ddf5cb103d79251d201096 | |
| parent | adea9e41e25bdd97a7b148ddb6db30e966f8c266 (diff) | |
| download | Skriptsprachen-afd95e17202b27aa06778d65842155292478d6e6.tar.gz Skriptsprachen-afd95e17202b27aa06778d65842155292478d6e6.zip | |
Check the user input for mistakes
| -rw-r--r-- | Aufgabe4/skript3.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Aufgabe4/skript3.pl b/Aufgabe4/skript3.pl index 73ecc70..b1b468c 100644 --- a/Aufgabe4/skript3.pl +++ b/Aufgabe4/skript3.pl @@ -45,10 +45,16 @@ while (my $wort = <$german9>) close $german9 or warn "$0 : failed to close input file '$german9_file_name' : $!\n"; -print "Verwürfeltes Wort eingeben: "; -my $wort = <>; +my $wort; + +do +{ + print "Verwürfeltes Wort eingeben: "; + $wort = <>; + + chomp $wort; +}while( $wort !~ /^[\p{L}]{9}$/i ); -chomp $wort; my $key = make_key($wort); if(exists $wortliste{$key}) |