Gästebuch funktioniert nicht (solved) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl) - Perl-Community.de

Start · Board · Webprogrammierung mit Perl · Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl

2026-02-13 15:18:52
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
1 user online
2 guests

[thread]17828[/thread]

submit to reddit

Gästebuch funktioniert nicht [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+14 replies
leonie_sonia

2012-10-15 18:03
User since
2012-10-15
1 article
BenutzerIn
Hallo zusammen,
ich bin ein völliger Perlanfänger und auf eure Hilfe angweissen. Vor kurzem habe ich mich mal an einem Skript ausprobiert für eine Webseite, jedoch sitze ich da nun schon Wochen dran, und komm nicht weiter, ich verstehe einfach nicht wo die fehler in dem Skript sind.

BITTE Helft mir !

Das Problemskript:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

#!/usr/bin/perl #BVB fan Page von Kai print" Content-type:text/html\n\n" <Formatieung /->  print"<html><head><title>BVB-FAN!</title></head>\n"; <style type="text/css">  </style> <linke rel="favico icon"type="image/x-icon"href="/favicon.ico"> <title>Abfrage Benutzername und Passwort</title> <form action="/cgi-bin/passwort.cgi" method=POST> Benuzername: <input type="text" name="name" size="BVB"><br> Passwort: <input type="text" name="passwort" size="09" /><br> <input type="submit" value="Login"> <input type="RESET" value="Löschen"></form><br><br></body></html> print("Content-type: text/html"); open (db, "< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html"); @eingabe = <db>; close (db); read (STDIN, $formdaten, $ENV{´CONTENT_LENGTH´}); @formfelder = split (/&/, $formdaten); ($x[1],$author) = split (/=/, $formfelder[0]); ($x[2],$email) = split (/=/, $formfelder[1]); ($x[3],$homepage) = split (/=/, $formfelder[2]); ($x[4],$text) = split (/=/, $formfelder[3]); $_ = "@eingabe"; s {<!--daten>}#<!--daten><table border="1"><body> <tr><td>Text:</td><td width="590">$text</td></tr><tr><td>Author:</td><td>$author</td></tr><tr><td>Email:</td><td>$email</td></tr><tr><td>Homepage:</td><td>$homepage</td></tr></tbody></table><br><br><hr><hr><br><br>#; open (db1, "> /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html"); print db1 ("$_"); close (dbx); #rename "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html", "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html"; print STDOUT ("<HTML><HEAD></HEAD><BODY><H1 align=center>Danke für Ihren Eintrag</h1><a href=www.andis-homepage.de/werftler/gaestebuch/gaestebuch.html>zurück</a></body></html>"); print"<body><h1><p>Der Ballspielverien Borussia 09 e.V Dortmund <b>Text!</b></p><h1><body></html>\n<; <p> kurz Borussia Dortmund, BVB oder BVB 09 <i>Text!</i></p> <p> ist ein Verein aus Dortmund. <i>Text!</i></p> <p>Das Maskotchen des BVB ist eine Biene Namens Emma <u>Text!</u></p><br><img src= "Emma.jpg"> <p> um mehr über Bienen zu erfahren<i>Text!</i></p> <a href="http: //www.Bienen.de/.html">Verlinkung</a>
DANKE

modedit Editiert von GwenDragon: Titel ersetzt; Perl-Code in CODE-Tags
Last edited: 2012-10-15 19:28:31 +0200 (CEST)
- hlubenow
  
  2012-10-15 19:17
  
  User since
  2009-02-22
  887 articles
  BenutzerIn
  
  Igitt, das gehört nach Web-Programmierung. ;)
- GwenDragon
  
  2012-10-15 19:24
  
  User since
  2005-01-17
  14921 articles
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- betterworld
  
  2012-10-15 19:43
  
  User since
  2003-08-21
  2614 articles
  ModeratorIn
  
  Nun, Du musst schon etwas mehr schreiben, sonst kann man Dir schlecht helfen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
- +8 replies
- GwenDragon
  
  2012-10-15 19:56
  
  User since
  2005-01-17
  14921 articles
  Admin1
  
  Das sieht druch die vielen " aus als hast du es irgendwo auf einer Webseite mit Strg-A Strg-C kopiert und dann mit Strg-V ein deinen Editor kopiert.
  Und ich habe den Verdacht da fehlt so einiges.
  
  Was soll denn das Skript wirklich können?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - guest Leonie_sonia
    
    2012-10-15 20:18
    
    Nun ja ich habe es nicht Kopiert, sondern umgeschrieben aus der Literatur, "jetzt lern ich Perl" und Webseiten für Dummies.
    
    Meine Homepage, sollte folgendes Konnen:
    
    - die Webseite sollte nur für Begrenzte Personen mit den Zugangsdaten zugänglich sein,
    -sollte einen Text welcher in gelb geschieben wurde/ ausgegeben werden soll,
    -sowie 3 Bilder beinhalten,
    -verlinkungen haben,und zuguterletzt
    -ein Gästebuch besitzen
    Last edited: 2012-10-15 20:19:43 +0200 (CEST)
    - betterworld
      
      2012-10-15 20:44
      
      User since
      2003-08-21
      2614 articles
      ModeratorIn
      
      Die Buchversion wird dann ja sicherlich noch funktioniert haben?
      
      Lies bitte Mein Script funktioniert nicht
      Lieblingsmodule: IPC::System::Simple, Path::Class
    - +5 replies
    - guest Leonie_sonia
      
      2012-10-15 21:21
      
      Ja, das hat geklappt! Da ich aber meines erachtens nach ( ich bitte zu berücksichtigen,dass dies meine erste "größere" Perl Programmierung war) nur Thematisch angepasst habe, kann ich dies nicht nachvollziehen. Alles was ich über Perl weiß( was nicht viel ist wie man sieht)stammt aus verschiedener Literatur , herzugehören: Webseiten für Dummies, jetzt lern ich Perl, PerlKochbuch, http://de.selfhtml.org/ und eine PowerPoint der Universität Due.
      Last edited: 2012-10-15 21:24:26 +0200 (CEST)
      - +3 replies
      - lichtkind
        
        2012-10-15 21:25
        
        User since
        2004-03-22
        5730 articles
        ModeratorIn + EditorIn
        
        hab aus deiner nachricht das kaputte mod tag entfernt. das ist nur wenn du CPAN module verlinken willst
        mein zeug:, Leute
        
        Es beginnt immer mit einer Entscheidung.
        
        +2 replies
        
        guest Leonie_sonia
        
        2012-10-15 22:57
        
        Danke!
        Last edited: 2012-10-15 23:10:12 +0200 (CEST)
        
        pq
        
        2012-10-15 23:11
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        nur so als hinweis, da du ja schon einen account hast - es ist ganz praktisch, sich einzuloggen. du siehst dann, welche artikel du schon gelesen hast. und nicht jeder neue artikel muss extra von uns freigegeben werden.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - hlubenow
        
        2012-10-15 23:20
        
        User since
        2009-02-22
        887 articles
        BenutzerIn
        
        Guest Leonie_sonia
        Alles was ich über Perl weiß( was nicht viel ist wie man sieht)stammt aus verschiedener Literatur , herzugehören: Webseiten für Dummies, jetzt lern ich Perl, PerlKochbuch, http://de.selfhtml.org/ und eine PowerPoint der Universität Due.
        
        Na, das ist doch schonmal allerhand gute Literatur. Jetzt mußt Du sie halt lesen und die Grundlagen von Perl lernen. So allgemein kann Dir dabei keiner helfen.
        Aber wenn Du mal eine konkrete Frage hast, kannst Du sie hier gerne stellen.
- +2 replies
- topeg
  
  2012-10-16 01:05
  User since
  2006-07-10
  2611 articles
  BenutzerIn
  Code (perl): (dl )
  
  print("Content-type: text/html");
  
  das und alles andere sollte nicht HTML-Encoded sein!
  Das sollte so aussehen
  
  Code (perl): (dl )
  
  print("Content-type: text/html");
  
  Das ist aber auch nicht ganz korrkt da eine Header mit zwei \r\n also \x0D\x0A abgeschlossen wird.
  
  Zudem ist der gesamte Code ohne Sinn und verstand zusammen gehauen.
  Weist du grundsätzlich wie ein Webserver funktioniert? weist du wie ein Perl Script auf einem Webserver abläuft. Weißt du was "CGI" bedeutet?
  
  Damit du nicht ganz auf dem Trockenen sitzt. Ein Lauffähiges Script
  more (72.0kb)
  
  Schau dir an was der Code macht und versuche es zu verstehen. Ich habe es kommentiert.
  
  Im Anhang findest du auch ein Beispiel für eine user.db und ein script mit dem du Benutzer zur user.db hinzufügen kannst.
  Attachments
  
  text/plain
  1 lines
  user.db
  
  text/plain
  37 lines
  gaestebuch_user_add.pl
  - guest Leonie_sonia
    
    2012-10-18 10:21
    
    Vilen DANK, das hat mir sehr geholfen
    Last edited: 2012-10-18 11:12:51 +0200 (CEST)

View all threads created 2012-10-15 18:03.