PERL & HTML - Übergabe eines Parameter an Website (gelöst) (Perl/CGI)

[thread]19528[/thread]

PERL & HTML - Übergabe eines Parameter an Website [gelöst]

Tags: perl5 CGI Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies
Gast PERLScripter

2015-02-27 14:40
Hallo Zusammen,

ich habe mal eine Frage zu einem Code, der nicht richtig
funktioniert. Ich hoffe, Ihr könnt mir da weiterhelfen :
Und zwar ist das dieser :
Code: (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

#!"C:\Program Files (x86)\Active Perl 5.20.1\bin\perl.exe" use CGI; use CGI::CARP qw(fatalsToBrowser); my $cgi = new CGI; my $act = $cgi->param('act'); if($act eq "Test2") { Test2(); } else { Test1(); } sub Test1 { print "Content-type:text/html\r\n\r\n"; print '<HTML>'; print '<HEAD>'; print '<TITLE>EPROM - Monitoring</TITLE>'; print '</HEAD>'; print '<BODY BGCOLOR = "#FFFFFF">'; print '<form method="post" action="http://127.0.0.1/cgi-bin/test.pl?act=Test2">'; print '<input type="submit" value="Führe Test2 aus">'; print '</form>'; print '</BODY>'; print '</HTML>'; } sub Test2 { print "Content-type:text/html\r\n\r\n"; print 'Dies ist die Bestätigung, dass das Script funktioniert'; }
Wie Ihr vielleicht erkennen könnt, möchte ich beim Aufruf, dass
er prüft, welcher Parameter übergeben wurde. Beim 1. Aufruf ist
das keiner, also würde nach diese Schema doch immer standard
mäßig die Sub - Routine Test1() aufgerufen werden. Klicke ich
auf den Button, schreibt er als URL "http://127.0.0.1/cgi-bin/test.pl?act=Test2", übergibt also den Parameter "Test2" an
die Variable "act".

Mein Problem ist nun, wenn ich die Website aufrufe, funktioniert
zwar die Sub Test1(). Wenn ich allerdings auf den Button klicke,
schreibt er richtigerweise die URL http://127.0.0.1/cgi-bin/test.pl?act=Test2" in die Adresszeile. Allerdings führt er es
nicht nochmal aus.

Drücke ich nochmal Enter nach dem Bestätigen, des Button, erscheint
der Text aus der Sub Test() : "Dies ist die Bestätigung, dass das Script funktioniert".

Könnt ihr viieleicht sagen, woran das liegen könnte.

Vielen Dank im Voraus

PERLScripter
Last edited: 2015-02-27 14:55:25 +0100 (CET)
- GwenDragon
  
  2015-02-27 14:54
  
  User since
  2005-01-17
  14607 Artikel
  Admin1
  
  Verschoben von Graphische Oberflächen nach Perl/CGI
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2015-02-27 15:14
  User since
  2005-01-17
  14607 Artikel
  Admin1
  1. Du solltest korrekterweise use CGI::Carp qw(fatalsToBrowser); schreiben!
  
  2. Es ist sinnvoll am Anfang des Programms (nach dem Shebang) das:
  use strict; use warnings;
  zubenutzen.
  
  3. Wenn du Parameter in die URL schreibst, muss die Methode GET lauten.
  Allerdings kannst du nur eine bestimmte Länge (je nach Browser und Webserver) bei den URL verwenden, deswegen bei größeren Datenmengen POST verwenden.
  
  Du benutzt die Methode POST, sendest aber keine Parameter im Formular.
  Dazu muss ein verstecktes Formularfeld vorhanden sein, das den Parameter beinhaltet!
  Test1 muss also so lauten:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  sub Test1 { print "Content-type:text/html\r\n\r\n"; print '<HTML>'; print '<HEAD>'; print '<TITLE>EPROM - Monitoring</TITLE>'; print '</HEAD>'; print '<BODY BGCOLOR = "#FFFFFF">'; print '<form method="post" action="http://127.0.0.1/cgi-bin/test.pl">'; print '<input type="submit" value="Führe Test2 aus">'; print '<input type="hidden" name="act" value="Test2">'; print '</form>'; print '</BODY>'; print '</HTML>'; }
  
  Last edited: 2015-02-27 15:17:40 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast PERLScripter
    
    2015-02-27 15:25
    
    Hallo GwenDragon,
    
    Super. Wenn man den Wald vor lauter Bäumen und so :-)
    Funktioniert so einwandfrei.
    
    Viele Grüße
    PERLScripter
    Last edited: 2015-02-27 15:34:43 +0100 (CET)
- rosti
  
  2015-03-01 11:44
  
  User since
  2011-03-19
  3276 Artikel
  BenutzerIn
  
  Liegt ein POST vor, liest der Parser die Daten aus STDIN, bei einem GET liest der Parser die Daten aus dem QUERY_STRING. Ein RFC-gerechter Parser liefert also entweder POST- oder GET-Daten, eben weil es entweder ein POST- oder ein GET-Request ist. Auf jeden Fall verhält sich der in CGI.pm implementierte Parser auf diese Art und Weise.

View all threads created 2015-02-27 14:40.