diff options
Diffstat (limited to 'Aufgabe5/skript4.pl')
| -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"; +} |