From d5fcd656514a16ebc86c89922488785bbbc5db34 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Wed, 2 Dec 2015 19:37:51 +0100
Subject: Search in reverse index

---
 Aufgabe5/skript4.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'Aufgabe5/skript4.pl')

diff --git a/Aufgabe5/skript4.pl b/Aufgabe5/skript4.pl
index 0615790..d05d458 100644
--- a/Aufgabe5/skript4.pl
+++ b/Aufgabe5/skript4.pl
@@ -71,3 +71,23 @@ foreach my $key (keys %documentName)
 }
 
 print Dumper(%reverseIndex);
+
+print "Suchwort: ";
+
+my $eingabe = <>;
+
+chomp $eingabe;
+$eingabe = lc $eingabe;
+
+if(exists $reverseIndex{$eingabe})
+{
+	print "Suchwort '" . $eingabe . "' --- gefundene Dokumente: \n";
+	foreach my $fileId (sort keys ${$reverseIndex{$eingabe}})
+	{
+		printf "\t%d : %s\n", $fileId, $documentName{$fileId};
+	}
+}
+else
+{
+	print "Suchwort '" . $eingabe . "' nicht gefunden\n";
+}
-- 
cgit v1.2.3-70-g09d2