Opened by PERLScripter at 2015-02-27 14:40
User since
2005-01-17
14748 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14748 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:
Last edited: 2015-02-27 15:17:40 +0100 (CET)
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)