From 448a7d3303561035df18267c6ca1e5d9df55c049 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Wed, 2 Dec 2015 16:49:56 +0100
Subject: Create stoplist hash and test it

---
 Aufgabe5/skript2.pl | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 Aufgabe5/skript2.pl

(limited to 'Aufgabe5/skript2.pl')

diff --git a/Aufgabe5/skript2.pl b/Aufgabe5/skript2.pl
new file mode 100644
index 0000000..92897b7
--- /dev/null
+++ b/Aufgabe5/skript2.pl
@@ -0,0 +1,42 @@
+#!/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: 02.12.2015 13:40:46
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+# For dumping data
+use Data::Dumper;
+
+# Add own module
+use searchengine;
+
+# 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 $stoplistFile = "stoplist.txt";
+my %stoplist;
+
+buildStoplist($stoplistFile, \%stoplist);
+
+print Dumper(\%stoplist);
-- 
cgit v1.2.3-70-g09d2