1 files changed, 77 insertions, 0 deletions
diff --git a/Aufgabe4/skript4-3.pl b/Aufgabe4/skript4-3.pl
new file mode 100644
index 0000000..d914d66
--- /dev/null
+++ b/Aufgabe4/skript4-3.pl
@@ -0,0 +1,77 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: skript4-3.pl
+#
+#        USAGE: ./skript4-3.pl  
+#
+#  DESCRIPTION: Erstellt eine Hash mit wörte die nach Buchstaben sorirt ist 
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Martin Talarczyk (MT), martin@talarczyk.de
+# ORGANIZATION: Fachhochschule Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 07.11.2015 11:33:21
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+
+binmode (STDIN, ":encoding(UTF-8)");
+binmode (STDOUT, ":encoding(UTF-8)");
+binmode (STDERR, ":encoding(UTF-8)");
+use open ":encoding(UTF-8)";
+
+
+#===============================================================================
+#  Variabelen Deklarasion
+#===============================================================================
+# Hash mit einem String als Key und einem feld als Wert.
+my  %wordlist;
+my $word;
+print "Skript startet...\n";
+
+
+my	$wordfp_file_name = 'GERMAN9.LST';		# input file name
+
+open  my $wordfp, '<', $wordfp_file_name
+	or die  "$0 : failed to open  input file '$wordfp_file_name' : $!\n";
+
+while ( my $line = <$wordfp> ) {
+
+	#muss noch in String umgewandelt werden. make_key returent ein Arry.
+	$word = make_key($line);
+
+	push @{ $wordList{ $wordKey } }, $line;
+}
+
+close  $wordfp
+	or warn "$0 : failed to close input file '$wordfp_file_name' : $!\n";
+
+print "\n";
+#===  FUNCTION  ================================================================
+#         NAME: make_key
+#      PURPOSE: 
+#   PARAMETERS: Eine Sklar String der behandelt wird.
+#      RETURNS: Feld mit string
+#  DESCRIPTION: Teile ein String in Eine sortirtes groß geschiebenes Arry-
+#       THROWS: no exceptions
+#     COMMENTS: none
+#     SEE ALSO: n/a
+#===============================================================================
+sub make_key {
+	my	( $word )	= @_;
+
+	my @temparry = split //, uc $word;
+
+	my @erg = sort @temparry;
+
+	return @erg;
+} ## --- end sub make_key
+