baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
if ($test == 1) {$Test = "DeinAusgabetext";}
|
Alle Einträge zum Thema: | Zur Liste |
{if ((index($Abstract,$Such)>= 0 or ($Abstract =~ /$mSuch/gim) or ($Autor =~ /$mSuch/gim) or ($Jahr =~ /$mSuch/gim) or ($Titel =~ /$mSuch/gim) or ($Journal =~ /$mSuch/gim) or ($Ausgabe =~ /$mSuch/gim) or ($Seite =~ /$mSuch/gim) or ($Test =~ /$mSuch/gim))) {$i++;
#----------- als Link wird das Feld [Autor, Jahr und Titel] ausgegeben ----------------------
if ($test == 1) {$Test = "DeinAusgabetext";}
if ((index($Abstract,$Such)>= 0 or ($Abstract =~ /$mSuch/gim) or ($Autor =~ /$mSuch/gim) or ($Jahr =~ /$mSuch/gim) or ($Titel =~ /$mSuch/gim) or ($Journal =~ /$mSuch/gim) or ($Ausgabe =~ /$mSuch/gim) or ($Seite =~ /$mSuch/gim) or ($Test =~ /$mSuch/gim)))
$sel = "&Test==1" "test123" =~ /$mSuch/; get "Deinebfrage$sel","datenabank", # ich weiss nicht kann auch sein das du loop benutzt;
<!----- komplexe Volltext-Suche über "include scr=suchen"----------> <font size=2 face=arial,helvetica> <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<tr> <td><div align="center"><center><font size="4" face="Arial"><b>Hier kannst Du die gesamte Rabenvogel-Literaturdatenbank nach einem beliebigen Text durchsuchen</td></b></font></tr> <perl>init "Rabenvogel"</perl> <tr> <td><div align="center"><center><font size="2" face="Arial"><b>Derzeit sind $_amount_all Datensätze verfügbar.</td></tr> <tr> <td><div align="center"><center><font size="2" face="Arial"><b>Full text search in the Corvids Literature Database. At present $_amount_all records available.<p></td></tr> <tr align="center"> <td> <font size="2" face="arial,helvetica"> <input type="text" name="Such=" size="10" value=""></font></td></tr>
<td> <font size="2" face="arial,helvetica"> <div align="center"><center><p></font> <input type="submit" value="Suchen/Search"></td></tr> </table> </form>
<perl> my @Daten;
#---------------- und das Eingabefeld [Such] nicht leer ist { out "Suchbegriff/Search key =<b>[$Such]</b><br>"; my $i=0; #--------------- Eingabe von ae, ue oder oe abfangen, z.B. "Moeglich" ----- $mSuch = $Such; $mSuch =~ s/ä/Ä/g; $mSuch =~ s/ö/Ö/g; $mSuch =~ s/ü/Ü/g; $mSuch=lc($mSuch); $mSuch =~ s/ae/ä/g; $mSuch =~ s/oe/ö/g; $mSuch =~ s/ue/ü/g; get "Autor==*"; while(get_next) #----------- gesucht wird in dem Feld [Abstract] ---------------------------------- {if ((index($Abstract,$Such)>= 0 or ($Abstract =~ /$mSuch/gim) or ($Autor =~ /$mSuch/gim) or ($Jahr =~ /$mSuch/gim) or ($Titel =~ /$mSuch/gim) or ($Journal =~ /$mSuch/gim) or ($Ausgabe =~ /$mSuch/gim) or ($Seite =~ /$mSuch/gim) ($Test =~ /$mSuch/gim))) {$i++;
#----------- als Link wird das Feld [Autor, Jahr und Titel] ausgegeben ----------------------
} out "Treffer/Hits: $i - "; $treffer = $i > 0 ? "Wähle nachfolgend aus/Choose subsequently:" : "Leider KEIN Treffer"; out "<b>$treffer</b><br>"; out "@Daten"; }
</perl> </font>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
>Komischerweise findet er bei "Krähe" kaum was und bei "kraehe" alles, was eigentlich als "krähe" erfasst wurde. Also irgendwas stimmt da noch nicht.
$mSuch = $Such; $mSuch =~ s/ä/Ä/g; $mSuch =~ s/ö/Ö/g; $mSuch =~ s/ü/Ü/g;
Liste der Einträge von 20325 bis 20400: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |