diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-02 19:37:51 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-02 19:37:51 +0100 |
| commit | d5fcd656514a16ebc86c89922488785bbbc5db34 (patch) | |
| tree | bf26602647363a4bb7fac4d79f3c5e92e4e54574 | |
| parent | 6918059cd5f97720943170f18f6c10361e20b835 (diff) | |
| download | Skriptsprachen-d5fcd656514a16ebc86c89922488785bbbc5db34.tar.gz Skriptsprachen-d5fcd656514a16ebc86c89922488785bbbc5db34.zip | |
Search in reverse index
| -rw-r--r-- | Aufgabe5/skript4.pl | 20 |
1 files changed, 20 insertions, 0 deletions
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"; +} |