Opened by Meike at 2005-06-14 12:14
Oje wieder mal ich.
Ich komme nicht weite, ich habe jetzt das mit dem strict versucht und so.
Ich schicke dir einfach mal die Datei. Wenn du lust und zeit hast,kannst sie ja mal kurz anschauen, wenn nicht, dann werde ich wohl nochmal ein paar Stündchen dran verbraten müssen.
Kennst du ein echt gutes Tutorial, wo auch ein guter Index drin ist?
Crian: Code-Tags\n\n
<!--EDIT|Crian|1118752863-->
Ich komme nicht weite, ich habe jetzt das mit dem strict versucht und so.
Ich schicke dir einfach mal die Datei. Wenn du lust und zeit hast,kannst sie ja mal kurz anschauen, wenn nicht, dann werde ich wohl nochmal ein paar Stündchen dran verbraten müssen.
Kennst du ein echt gutes Tutorial, wo auch ein guter Index drin ist?
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/local/bin/perl
print "Content-type: text/html \n\n";
use strict;
use warnings;
use CGI;
# Perl-Skript zu RezepteEinfuegen.html
#Eingaben lesen
my $data="";
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
my $file ="./RETest.html";
##Name-Wert-Paare splitten
my @pairs;
my $name;
my $value;
my $pair;
@pairs = split(/&/, $data);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
#Konvertierung HTML-Code
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
my $abfrage;
$abfrage = new CGI;
my $rezepttitel = $abfrage->param(Rezepttitel);
my $Rezeptdatei = "./Rezept.txt";
##funktioniert nicht
##Formulardaten in Datei eintragen
open(RAUS, ">> $Rezeptdatei");
print RAUS $rezepttitel;
print RAUS "\n";
close(RAUS);
##Ende funktioniert nicht
# Antwortseite
print "<html><head><title> Rezeptseite </title></head><body bgcolor=white>\n";
print "<font size= 5 color=#996633><b>super Rezept</b></font>\n";
print "<b>$FORM{'Rezepttitel'}</b><br>\n";
print "</body></html>\n";
exit;
(END)
Crian: Code-Tags\n\n
<!--EDIT|Crian|1118752863-->