Bitte sehr:
<html><head><title><span class="Bierrezepte"></span></title>
<do action=all list=list Bezeichnung localparams=+ ,Schüttung,Hefe,Bitterung,Maischen,Geschmacksprofil db=/Hobbybrauer/Bierrezepte range^=0,5 sort=- searchfields=Bezeichnung listfields=Bezeichnung allfields=Bezeichnung,Schüttung,Hefe,Bitterung,Maischen,Geschmacksprofil formfields=Bezeichnung,Schüttung,Hefe,Bitterung,Maischen,Geschmacksprofil showamount=all,sel selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top listtype=list language=de detail=link search=no input=link>
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<table border="0" cellpadding="0" cellspacing="0" width="100">
<tr>
<td><div align="center"><center><p>$db-Suche</td></tr>
<tr align="center">
<td><font size="2" face="arial,helvetica">
<input type="text" name="Such=" size="15" value></font></td></tr>
<tr align="center">
<td><font size="2" face="arial,helvetica">
<div align="center"><center><p></font>
<input type="submit" value="Suchen"></td></tr>
</table>
</form>
<perl>
if ($Such ne "") #---------------------falls eine Suchanfrage gestartet wurde
#---------------- und das Eingabefeld [Such] nicht leer ist
{
out "Suchbegriff =<b>[$Such]</b><br>";
my $i=0;
get "Id==*";
while(get_next)
#----------- gesucht wird in dem Feld [Text] -------------------------------
{if ((index($Bezeichnung,$Such~~) >= 0 ))
{$i++;
$Daten[$i]="$i.<a href='http://baseportal.de/cgi-bin/baseportal.pl?
htx=$htx&Id==$_id'>$Bezeichnung</a><br>";
;
#----------- als Link wird das Feld [Titel] ausgegeben ----------------------
}
my $y=1;
while ($y < $i+1){out $Daten[$y];
$y++ ;}
}
"";
</perl>
Ein paar Sachen habe ich aus der Dokumentation kopiert und entsprechend verändert.