selfhtml.de - Alles für den Webmaster!

Anzeige: united-domains - Die ganze Welt der Domains

Re: Datum aus HTML-Formular auslesen und prüfen

Autor: moll [Beiträge: 58]
Datum: 16.02.2009 16:43:54

Hier mal ein  Beispiel für ein Perl Skript, das einige Variablen abfragt und prüft:

#!/usr/bin/perl -w

  use CGI qw/:standard/;
  use CGI::Carp qw(fatalsToBrowser);
  
  print header,
        start_html('Perl CGI Beispiel'),
        h1('Perl CGI Beispiel'),
        start_form,
        "<table><tr><td>Vorname </td><td>",textfield('vorname'),"</td></tr>",
        "<tr><td>Name  </td><td>",textfield('name'),"</td></tr>",
        "<tr><td>Email  </td><td>",textfield('email'),"</td></tr></table>",
        submit,
        end_form,
        hr;

   if (param()) {
       my $name     = param('name');
       my $vorname      = param('vorname');
       my $email = param('email');
  
       $email = "" unless ($email =~ /^[a-z,A-Z,0-9,-_.]+@[a-z,A-Z,0-9,-_.]+$/);
  
       print "Vorname: ",escapeHTML($vorname || "?"),br,
"Name:", escapeHTML($name || "?") ,br,
         "Email: ", escapeHTML($email || "?"),hr;
   }

   print end_html;

Antwort schreiben

Username:	Usernamen registrieren
Passwort:	Passwort vergessen?
Thema:
	Bitte benutze für deinen Beitrag die Groß-/Kleinschreibung!
Beitrag:	> Hier mal ein  Beispiel für ein Perl > Skript, das einige Variablen abfragt und prüft: > > #!/usr/bin/perl -w > >   use CGI qw/:standard/; >   use CGI::Carp qw(fatalsToBrowser); >    >   print header, > >         start_html('Perl > CGI Beispiel'), > >         h1('Perl > CGI Beispiel'), > >         start_form, > >         "<table><tr><td>Vorname > </td><td>",textfield('vorname'),"</td></tr>", > >         "<tr><td>Name  </td><td>",textfield('name'),"</td></tr>", > >         "<tr><td>Email  </td><td>",textfield('email'),"</td></tr></table>", > >         submit, > >         end_form, >         hr; > >    if (param()) { >        my > $name     = param('name'); >        my > $vorname      = > param('vorname'); >        my $email = > param('email'); >    >        $email = "" > unless ($email =~ > /^[a-z,A-Z,0-9,-_.]+@[a-z,A-Z,0-9,-_.]+$/); >    >        print "Vorname: > ",escapeHTML($vorname || "?"),br, > "Name:", escapeHTML($name || "?") ,br, >          > "Email: ", escapeHTML($email || "?"),hr; >    } > >    print end_html;
Link (URL):
Titel für Link:
Grafik (URL):
	Die Breite der Grafik darf 468 Pixel nicht überschreiten.

E-Mail-Benachrichtigung:

wenn auf einen Beitrag zu diesem Thema geantwortet wird
nur wenn auf meinen eigenen Beitrag geantwortet wird
nie

Zum Abschicken deines Beitrags bitte die Schaltfläche "Abschicken" nur einmal anklicken und warten. Der Server braucht manchmal einige Zeit, bis er den Beitrag in die Datenbank übernommen hat. Wenn du die Schaltfläche mehrmals drückst, erscheint dein Beitrag auch mehrmals im Forum.

Bewerten Sie Ihren Webhosting-Provider

Wie zufrieden sind Sie mit Ihrem Webhosting-Provider? Gibt es Probleme beim Service, mit der Performance oder der Abrechnung?

Teilen Sie jetzt Ihre Erfahrungen mit anderen Webmastern und schreiben Sie eine Provider-Bewertung. Mit etwas Glück können Sie ein Apple iPad gewinnen!

Weitere Informationen und Teilnahme...