From 31136ae2aa783e54fd3756b12dd8d9ab635f1eb6 Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Thu, 19 Nov 2015 16:14:21 +0100 Subject: Test module --- Aufgabe4/skript1.pl | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 Aufgabe4/skript1.pl 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"; +} -- cgit v1.2.3-70-g09d2