Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 2
 |
|< 1 2 >| |  |
13 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
<html><head><title>test1.html</title></head>
<h1>Testformular></h1>
<form action="cgi-bin/test1.pl" method=post>
Name: <input size=40 maxlength=40 name="Anwendername"><br>
Text: <textarea rows 5 cols=70 name="Kommentartext" wrap=virtual></textarea>
</form>
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
# Reaktion des CGI Programms
use strict;
use warnings;
read (STDIN, my $Daten, $ENV{'Content_LENGTH'});
print "Content-type: text/\n\n";
print "<html><head><title>CGI-Reaktion</title></head>\n";
print "<body><h1>Reaktion des CGI-Programms</h1>\n";
print $ENV{'CONTENT_LENGTH'};
print "</body></html>\n";
|
|< 1 2 >| | |
13 Einträge, 2 Seiten |
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
