Opened by haijp at 2006-04-28 13:21
User since
2006-04-11
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-11
14 Artikel
BenutzerIn
Thx schonmal nur die Frage war auch noch wie ich überhaupt die sachen die ich auf der seite eingeben dann auslesen kann also ich schätze ja mal muss dann die beiden werte wie du es sagst in 2 neue $ speichern und dann einfach ins file printen.
oder steh ich atm nur aufem schlauch ^^
also er verweisst ja atm auf comments.pl
so gibt der mir einfach nur die werte auf einer anderen seite halt nochmal aus, muss es ja gar net soll nur die werte auslesen und in file hinzufügen aber ich back das prog atm nicht so das ich es umgeschrieben kriege -.- weil ich oben schon gar nicht verstehe wie oder wo der die werte abspeichert.
hatte es mal mit dem zusatz hier so probiert
weil es bei der hltm ausgabe ja auch der $Formular ist klappt aber net :|
ach und sry für meinen schreibstyle atm :D\n\n
<!--EDIT|haijp|1146220692-->
oder steh ich atm nur aufem schlauch ^^
also er verweisst ja atm auf comments.pl
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
#!/usr/bin/perl
use strict;
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, my $Wert) = split(/=/, $Feld);
$Wert =~ tr/+/ /;
$Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Wert =~ s/</</g;
$Wert =~ s/>/>/g;
$Formular{$Name} = $Wert;
}
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>Feedback</title></head>\n";
print "<body><h1>Feedback Ihrer Eingabe vom Programm <i>comments.pl</i></h1>\n";
print "<p><b>Link:</b> $Formular{links}</p>\n";
print "<p><b>Beschreibung:</b> $Formular{beschreibung}</p>\n";
print "</body></html>\n";
so gibt der mir einfach nur die werte auf einer anderen seite halt nochmal aus, muss es ja gar net soll nur die werte auslesen und in file hinzufügen aber ich back das prog atm nicht so das ich es umgeschrieben kriege -.- weil ich oben schon gar nicht verstehe wie oder wo der die werte abspeichert.
hatte es mal mit dem zusatz hier so probiert
Code: (dl
)
1
2
3
4
5
my $pfad = '/SAN/content/cgi-bin/links';
open(DATEI, '>>', $pfad);
print "$Formular\n";
print "$Formular\n";
close(DATEI);
weil es bei der hltm ausgabe ja auch der $Formular ist klappt aber net :|
ach und sry für meinen schreibstyle atm :D\n\n
<!--EDIT|haijp|1146220692-->