Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
 |
10 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
<html>
<body>
<form action="./cgi-bin/skript.cgi" method="post">
<input type="text" name="Feld1"><br />
<input type="text" name="Feld2"><br />
<input type="text" name="Feld3"><br />
<input type="text" name="Feld4"><br />
<input type="submit" value="Abschicken">
</form>
</body>
</html>
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi = CGI->new();
print $cgi->header();
my %params = $cgi->Vars();
print $_," -> ",$params{$_},"<br />" for(sort keys %params);
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
#!/usr/bin/perl
# nachfolgend zwei wichtige Pragmas, die den Programmierer zu sauberer
# Programmierung zwingen, siehe: wiki.perl-community.de/bin/view/Wissensbasis/UseStrict
use strict;
use warnings;
# CGI.pm ist praktisch fuer die Arbeit mit CGI
use CGI;
# allgemeine Einstellungen - die muessen angepasst werden
my $file = './zieldatei.txt';
# erzeuge ein Objekt von CGI, lese die Formulardaten aus und gebe den Header aus
my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header();
if(exists $params{action} and $params{action} eq 'save'){
save_to_file($file,\%params);
show_formular(get_date(),'Daten wurden gespeichert');
}
else{
my $date = get_date();
show_formular($date);
}
#------------------------------------------------------------------------------#
# Subroutines #
#------------------------------------------------------------------------------#
##
# Methode zum Speichern der Daten
##
sub save_to_file{
my ($file,$params) = @_;
my $string = $params->{Date}.": ".
$params->{Name}.": ".
$params->{Number}.": ".
$params->{Units}.": ".
$params->{Comments}."\n\n";
open(my $w_fh,'>',$file) or die $!;
print $w_fh $string;
close $w_fh or die $!;
}
##
# Methode zum Berechnen des heutingen Tages
##
sub get_date{
my ($day,$mon,$year) = (localtime(time))[3..5];
my $date = sprintf("%02d.%02d.%04d",$day,$mon+1,$year+1900);
return $date;
}
##
# Methode zur Ausgabe des Formulars
##
sub show_formular{
my ($date,$msg) = @_;
print qq~<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY bgColor=#ffff80>
<P align=center><U><b><FONT color=#0000a0
size=7>Formular für
Details</FONT></b></U></P>
<P align=center><U></U> </P>
<P align=center> </P>
<P align=center>
<div align="center">
<form action="./skript.cgi" method="post">
<font color="#ff0000">$msg</font>
<TABLE style="WIDTH: 436px; HEIGHT: 206px" borderColor=#0000a0 bgColor=#c0c0c0
border=1>
<TR>
<TD>
<P align=right><FONT size=5><b>Datum:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name="Date" value="$date">
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Name:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Name>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Nummer:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Number>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Anzahl:</b></FONT></P>
</TD>
<TD>
<INPUT style="WIDTH: 93px; HEIGHT: 22px" size=11 name=Units>
</TD>
</TR>
<TR>
<TD>
<P align=right><FONT size=5><b>Kommentar:</b></FONT></P>
</TD>
<TD>
<TEXTAREA name=Comments></TEXTAREA>
</TD>
</TR>
</TABLE>
<input type="submit" value="Eintragen">
<input type="hidden" name="action" value="save">
</form>
</div>
<div align="center"></div>
<div align="center"></div>
<P align=center><INPUT style="WIDTH: 153px; HEIGHT: 24px" type=submit size=204 value=Sichern name=Sichern></P>
</BODY>
</HTML>~;
}
Quote?2. nach Eintragung der Daten das Formular auf 0 gesetzt wird
use CGI::Carp qw/fatalsToBrowser/;
Wissensbasis.FaqCGIServerError500
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem |
|
10 Einträge, 1 Seite |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
