Parser funktioniert nicht (Perl/CGI)

[thread]185[/thread]

Parser funktioniert nicht

Gast Gast

2004-03-03 15:23

Hallo,
sorry, dass ich euch wieder nerven muss, aber es funktioniert leider immer noch nicht.
Bekomme jetzt eine 500 Error Message.

Benutze folgenden Code:
[CODE]
#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my ($Feld, $Name, $Wert);
my %Formular;

my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
my %Formular=$cgi->Vars();

#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>CGI-Feedback</title></head>\n";
print "<body><h1>Kundenerfassung comments.pl</h1>\n";
print "Kurzname: $Formular{KURZNAME}\n";
print "Name1: $Formular{NAME1}\n";
print "Name2: $Formular{NAME2}\n";
print "Name3: $Formular{NAME3}\n";
print "Straße: $Formular{STRASSE}\n";
print "Land: $Formular{LAND}\n";
print "PLZ: $Formular{PLZ}\n";
print "Ort: $Formular{ORT}\n";
print "Postfach: $Formular{POSTFACH}\n";
#print "Postfach-Plz: $Formular{POSTFACH-PLZ}\n";
print "Telefon: $Formular{TELEFON}\n";
print "Fax: $Formular{FAX}\n";
print "Mobil: $Formular{MOBIL}\n";
print "</body></html>\n";

Nochmals einen großen Dank an allen.

--
Gruß
Piero

Antworten mit Zitat

[E|B]

2004-03-03 15:27

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hallo?!
Community an Piero?!?!?!?
Poste doch bitte in einem einzigen Thread und eröffne nicht bei jedem kleinen Fehler in ein und demselben Script einen neuen! Ich schließe diesen Thread hier. Antworten bitte hier rein:
http://board.perl-community.de/cgi-bin....3;#idx4
Danke schön!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Antworten mit Zitat

Relais

2004-03-03 15:27

User since
2003-08-06
2244 Artikel
ModeratorIn

Den Content-Type brauchst Du noch.

Kannst Du Dich denn vielleicht noch so weit bemühen, nicht jedesmal einen neuen Thread zu starten, sondern im alten zu posten? und die Code-Tags zu verwenden?

Edit: Oder haben wir hier einen Bug im Board, der Dich nicht in bestehenden Threads posten läßt, piero? Falls ja, sag es uns bitte!\n\n

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

Antworten mit Zitat

View all threads created 2004-03-03 15:23.