Suchmaschine in Perl (für Perlprofis)

[TheQuestion]

Hallo Perlgenossen,

ich habe nun eine Suchmaschine in Perl erstellt, aber so kompliziert, dass es schon beinahe schmerzt und Besonderheiten hat sie auch nicht.
So (nicht wirklich der Code, aber die Funktion):

open Datenbank and readIn und wieder close

foreach $Zeile(@Datenbank)
{($keyA,$keyB,$keyC) = split...|
if ($keyA =~ /$Suchbegriff/){
print "keyA";
}
if ($keyB =~ /$Suchbegriff/){
print "keyB";
}
if ($keyC =~ /$Suchbegriff/){
print "keyC";
}

jetzt aber meine Frage: es geht auch bestimmt einfacher, aber wie ?
Es wäre auch noch die Wucht, wenn mir jemand dann noch schreibt, wie ich 2 Suchbegriffe mit + Suchen kann (test+test2)

Ich danke euch ganz herzlich für die Mühe.

Viele Grüße
TheQuestion

[Michael Schröpl]

Hi,

open Datenbank and readIn und wieder close

Was genau meinst Du mit "Datenbank"? Verstehst die SQL?

jetzt aber meine Frage: es geht auch bestimmt einfacher, aber wie ?

Falls die Antwort oben "Ja" lautet: Es geht zumindest eleganter ...

Es wäre auch noch die Wucht, wenn mir jemand dann noch schreibt,
wie ich 2 Suchbegriffe mit + Suchen kann (test+test2)

... indem Du die Datenbank alles machen läßt, also mit Deinem Perl-Skript SQL-Code generiert und diesen ausführen läßt.

Das ist - bei geeigneter DDL - außerdem noch um Größenordnungen performanter.

Viele Grüße
      Michael