Re: Probleme mit Email-Adresse beim javascript-script - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von hempelr (1976 Beiträge) am Montag, 4.April.2005, 17:36.
    Re: Probleme mit Email-Adresse beim javascript-script

      logisch, Perl denkt es sei ein Array.
      Das '@' muss maskiert werden wenn eins da ist - am besten mit ner regex, und dann erst ausgeben bzw. ne Funktion nehmen die das macht - ich hab da auch gleich ne Sub gebaut:
      (so wie sie ist, ohne Support bereitgestellt OpenSource unter der GPL! - beachten, wenn es verwendet wird, dann muss auch das Gesamtscript unter die GPL und als OS bereitgestellt werden - es gibt bereits rechtlich bindende Urteile dazu!)
      ----schnipp
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
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>";
} ################################################################
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      ---schnapp
      Ruben


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Jürgen (614 Beiträge) am Montag, 4.April.2005, 15:28. WWW: TIEREvermittlung.de
    Probleme mit Email-Adresse beim javascript-script

      Hallo,
      bastele gerade an einen Anzeigen-Panel, das als kostenlosen Content per javascript-script auf anderen HPs ausgegeben werden kann.

      Mit den Bildanzeigen klappt das auch soweit; nun möchte ich aber auch Textanzeigen like google generieren.

      Sobald in einem Textfeld eine Email-Adresse drin ist, meckert das javascript-script. Das Feld wird für die Ausgabe schon abgeschnitten, trotzdem kommt eine Fehlermeldung. 

      $Beschreibung=substr($_loop{'Beschreibung/Lebenslauf'}, 0,75);
$Beschreibung=~ s/( \S*)$/ .../oi;

      Jemand eine Idee?

      Den Rohentwurf könnt ihr euch hier schon ansehen...
      http://tierevermittlung.de/baseportal/haustier/Content

     Antworten

    Beitrag von hempelr (1976 Beiträge) am Montag, 4.April.2005, 17:36.
    Re: Probleme mit Email-Adresse beim javascript-script

      logisch, Perl denkt es sei ein Array.
      Das '@' muss maskiert werden wenn eins da ist - am besten mit ner regex, und dann erst ausgeben bzw. ne Funktion nehmen die das macht - ich hab da auch gleich ne Sub gebaut:
      (so wie sie ist, ohne Support bereitgestellt OpenSource unter der GPL! - beachten, wenn es verwendet wird, dann muss auch das Gesamtscript unter die GPL und als OS bereitgestellt werden - es gibt bereits rechtlich bindende Urteile dazu!)
      ----schnipp
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
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>";
} ################################################################
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      ---schnapp
      Ruben

     Antworten

    Beitrag von Jürgen (614 Beiträge) am Dienstag, 5.April.2005, 20:01. WWW: TIEREvermittlung.de
    Re: Probleme mit Email-Adresse beim javascript-script

      Dank dir Ruben, aber das Problem lag nicht am Perl sondern am javascript-script-Interpeter, der bei bestimmten Sonder-'Zeichen' zickig war ;-)

      Ich habe mit vorab mit grep alle Zeichen aus dem Textfeld je Eintrag rausgefilter
      @zeichenda = grep /@|„|“|!|–/, @b;   # Text durchsuchen, ob Zeichen vorhanden
if (@zeichenda >= "1")
{
out "<br>ZEICHEN IST DA !<br>";
}


      .... und dann das Template umgestickt

      ----schnipp
      out "document.writeln('<center><table width=$width_table>');";

      get "Id==* range=0,$Anzahl sort=?", "$db1";
      while (get_next("$db1")) 
{

      $textout = $_loop{'Beschreibung/Lebenslauf'};
      $a = split(/ /,$textout);             # Zähler Anzahl der Elemente

      $teilstr = "@|„|“|!|–"; # Zeichen suchen 
      $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

      $Nameout=substr($Name, 0,20); 
      $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>');";
      ---schnapp

      Grüße
      Jürgen

     Antworten


     
 Liste der Einträge von 24900 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

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.07s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!