| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
@zeichenda = grep /@|„|“|!|–/, @b; # Text durchsuchen, ob Zeichen vorhanden
if (@zeichenda >= "1")
{
out "<br>ZEICHEN IST DA !<br>";
}
out "document.writeln('<center><table width=$width_table>');";
while (get_next("$db1"))
{
$a = split(/ /,$textout); # Zähler Anzahl der Elemente
$ersatz = " "; # Leerzeichen als Ersatz $textout =~ s/$teilstr/$ersatz/g; # Text durchsuchen und ersetzen $beschreibung=substr($textout, 0,75); # Text kürzen $beschreibung=~ s/( \S*)$/ .../oi; # auf's letzte Wort kürzen und Punkte dranhängen
$WWW=$Homepage; $WWW=~ s#^http://##;
$Rasseout=substr($Hunderasse, 0,22);
$Charakterout=substr($Charakter, 0,75);
if ($beschreibung ne "" && $a >=15)
{
out<<EOF;
document.writeln('<tr><td ... weitere Ausgabe
</td></tr>');
EOF
}
else
{
document.writeln('<tr><td ... weitere Ausgabe
EOF
}
}
out "document.writeln('</table>');";
| Alle Einträge zum Thema: | Zur Liste |
$Beschreibung=substr($_loop{'Beschreibung/Lebenslauf'}, 0,75);
$Beschreibung=~ s/( \S*)$/ .../oi;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
sub get_feldliste { ################################################################
$a_debug.= "<b>A sub get_feldliste(@_)</b><br>";
my $var = shift;
get "Field=*", "$var.fields", "dbfeldliste";
while(get_next("dbfeldliste")){
push @l_dbfelder, $Field;
}
$var = \@l_dbfelder;
$a_debug.= "<b>E sub get_feldliste</b><br>";
return $var;
} ################################################################
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
sub convert_mailat { ################################################################
$a_debug.= "<b>A sub convert_mailat(@_)</b><br>";
my $dbname = shift;
my $feldliste = &get_feldliste($dbname);
foreach my $feld(@$feldliste){
if ($$feld =~ m/\w{2,}@\w{1,}.{1,}/){
$a_debug.= "at-ersetzen \$feld($feld) - \$\$feld($$feld)";
$$feld =~ s/@/\\@/;
$a_debug.="->($$feld)<br>";
} # e if at-Zeichen
} # e foreach
undef $feldliste;
$a_debug.= "<b>E sub convert_mailat</b><br>";
} ################################################################
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
@zeichenda = grep /@|„|“|!|–/, @b; # Text durchsuchen, ob Zeichen vorhanden
if (@zeichenda >= "1")
{
out "<br>ZEICHEN IST DA !<br>";
}
out "document.writeln('<center><table width=$width_table>');";
while (get_next("$db1"))
{
$a = split(/ /,$textout); # Zähler Anzahl der Elemente
$ersatz = " "; # Leerzeichen als Ersatz $textout =~ s/$teilstr/$ersatz/g; # Text durchsuchen und ersetzen $beschreibung=substr($textout, 0,75); # Text kürzen $beschreibung=~ s/( \S*)$/ .../oi; # auf's letzte Wort kürzen und Punkte dranhängen
$WWW=$Homepage; $WWW=~ s#^http://##;
$Rasseout=substr($Hunderasse, 0,22);
$Charakterout=substr($Charakter, 0,75);
if ($beschreibung ne "" && $a >=15)
{
out<<EOF;
document.writeln('<tr><td ... weitere Ausgabe
</td></tr>');
EOF
}
else
{
document.writeln('<tr><td ... weitere Ausgabe
EOF
}
}
out "document.writeln('</table>');";
| Liste der Einträge von 24975 bis 25050: | 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 |