Make game from the module

1 files changed, 63 insertions, 0 deletions

diff --git a/Aufgabe4/skript2.pl b/Aufgabe4/skript2.pl
new file mode 100644
index 0000000..bba74da
--- /dev/null
+++ b/Aufgabe4/skript2.pl
@@ -0,0 +1,63 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: skript2.pl
+#
+#        USAGE: ./skript2.pl  
+#
+#  DESCRIPTION: 
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 19.11.2015 15:51:03
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+use wordGame;
+
+# enforce utf-8 mode
+binmode (STDIN, ":encoding(UTF-8)");
+binmode (STDOUT, ":encoding(UTF-8)");
+binmode (STDERR, ":encoding(UTF-8)");
+use open ":encoding(UTF-8)";
+
+my	$german9_file_name = 'GERMAN9.LST';		# input file name
+
+open  my $german9, '<', $german9_file_name
+	or die  "$0 : failed to open  input file '$german9_file_name' : $!\n";
+
+my @wort = <$german9>;
+
+close  $german9
+	or warn "$0 : failed to close input file '$german9_file_name' : $!\n";
+
+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)
+	{
+		print "\n";
+	}
+	print $raetsel[$i] . " ";
+}
+
+print "\n\n";
+
+my $eingabe = <>;
+
+print $wort[$index];