<do action=input>
<perl>
$suchpfad="http://baseportal.de/cgi-bin/baseportal.pl?htx=/spd_schwelm/suche";

<form action="$suchpfad" name="suche" id="suche" target="_self" dir="ltr" lang="de" enctype="multipart/form-data" method="post">
Suchworte: <input type="text" name="suchwort=" size="40" maxlength="40">
<input type="submit" name="button"></form>

# Aufbereitung des Formularergebnisses
# Leerzeichen am Ende von $suchwort abschneiden
$strlen=length($suchwort);
while (index($suchwort," ",$strlen)>=0) 
   {$suchwort=substr($suchwort,0,$strlen-1);
    $strlen--;
   } 
   
# $suchwort in Kleinbuchstaben umwandeln
$suchwort=~ tr/A-Z/a-z/; 

while (length($suchwort)>0)
{
$ende=index($suchwort," ",0);
push(@suchwort,substr($suchwort,0,$ende));
$suchwort=substr($suchwort,$ende+1,length($suchwort));
}
</perl>

# Meldungen nach jedem Array-Teil druchsuchen
# Je mehr verschiedene gefunden werden, desto besser das Suchergebnis

{
 # Abfrage der Datenbankfelder
 $Typ_=$Typ;
 $Typ_=~ tr/A-Z/a-z/;
 $Head_=$Head;
 $Head_=~ tr/A-Z/a-z/;
 $Text_=$Text;
 $Text_=~ tr/A-Z/a-z/;

 if (index($Typ_,@suchwort[$_],length($Typ)>=0)
 {

 }else{
 "";
 }
 if (index($Head_,@suchwort[$_],length($Typ)>=0)
 {
 %ergebnis{$_id}=%ergebnis{$_id}+1;
 }else{
 "";
 }
 if (index($Text_,@suchwort[$_],length($Typ)>=0)
 {
 %ergebnis{$_id}=%ergebnis{$_id}+1;
 }else{
 "";
 }	
}	
</loop>
<perl>
#Hash sortieren nach Häufigkeit und Ergebnis ausgeben

#sub by_zahl {
#	return $ergebnis{$a} cmp $ergebnis{$b}
#}
#foreach (@sortiert) 
#{
#	if ($_>0)
#	{
#	get "ID==$_";"Meldungen";
#	out $Head.\n;
#	}else{
#	"";
#	}
#}
</perl>
</body>
</html>