From afd95e17202b27aa06778d65842155292478d6e6 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Fri, 20 Nov 2015 10:37:32 +0100
Subject: Check the user input for mistakes

---
 Aufgabe4/skript3.pl | 12 +++++++++---
 1 file 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})
-- 
cgit v1.2.3-70-g09d2