diff options
| -rw-r--r-- | Aufgabe4/skript1.pl | 37 |
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"; +} |