Opened by PERLScripter at 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 :
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)
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)