Test module

1 files changed, 37 insertions, 0 deletions

diff --git a/Aufgabe4/skript1.pl b/Aufgabe4/skript1.pl
new file mode 100644
index 0000000..08d0d85
--- /dev/null
+++ b/Aufgabe4/skript1.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: skript1.pl
+#
+#        USAGE: ./skript1.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 14:47:16
+#     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)";
+
+for (my $i = 0; $i < 4; $i++)
+{
+ 	print verwuerfeln("Abcdefghi", $i);
+	print "\n";
+}