Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]190[/thread]

Ich kann einfach den Fehler nicht finden.... (Seite 3)

Leser: 3


<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten
renee
 2004-03-04 11:43
#1463 #1463
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
machmal das hier:
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
#!/usr/bin/perl

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

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

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

print Dumper(\%Formular);

#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/</&lt;/g;
#  $Wert =~ s/>/&gt;/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 <i>comments.pl</i></h1>\n";
#print "<p><b>Kurzname:</b> $Formular{KURZNAME}</p>\n";
#print "<p><b>Name1:</b> $Formular{NAME1}</p>\n";
#print "<p><b>Name2:</b> $Formular{NAME2}</p>\n";
#print "<p><b>Name3:</b> $Formular{NAME3}</p>\n";
#print "<p><b>Straße:</b> $Formular{STRASSE}</p>\n";
#print "<p><b>Land:</b> $Formular{LAND}</p>\n";
#print "<p><b>PLZ:</b> $Formular{PLZ}</p>\n";
#print "<p><b>Ort:</b> $Formular{ORT}</p>\n";
#print "<p><b>Postfach:</b> $Formular{POSTFACH}</p>\n";
#print "<p><b>Postfach-Plz:</b> $Formular{POSTFACH-PLZ}</p>\n";
#print "<p><b>Telefon:</b> $Formular{TELEFON}</p>\n";
#print "<p><b>Fax:</b> $Formular{FAX}</p>\n";
#print "<p><b>Mobil:</b> $Formular{MOBIL}</p>\n";
#print "</body></html>\n";

daran kannst Du erkennen, welche Schlüssel und welche Werte es in dem Hash gibt...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
jan
 2004-03-04 12:01
#1464 #1464
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
das wird kaum funktionieren, nehme ich an, denn das script produziert einen 500 ISE, nicht eine mangelhafte ausgabe....
piero
 2004-03-04 12:03
#1465 #1465
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
am Server, Rechte, und die Art der Dateiübertragung stimmt alles, weil wenn ich folgendes Script benutze dann funktioniert das auch einwandfrei.

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
#!/usr/bin/perl -w

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/</&lt;/g;
  $Wert =~ s/>/&gt;/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 <i>comments.pl</i></h1>\n";
print "<p><b>Name:</b> $Formular{AnwenderName}</p>\n";
print "<p><b>Kommentartext:</b> $Formular{Kommentartext}</p>\n";
print "</body></html>\n";


edit renee: schließenden [code]-Tag eingefügt...

Will doch nur ein Script, welches meine Felder in der HTML Datei ausließt, nicht mehr....\n\n

<!--EDIT|renee|1078395138-->
jan
 2004-03-04 12:09
#1466 #1466
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
sind die eingebundenen module auf deinem server alle installiert?
piero
 2004-03-04 12:11
#1467 #1467
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
hallo,
ich lade es direkt auf dem Webserver.

http://www.franz-kahl.de/deutsch/comment/kommentar.htm

und da, müßten ja doch alle installiert sein.

ich versteh nur nicht, warum es mit dem einem script funkitoniert und mit dem anderen nicht....
renee
 2004-03-04 12:16
#1468 #1468
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
dann näher Dich doch ganz langsam an das andere Skript an...

füge nach und nach immer mehr ein. So kann der erste Test mit dem "Skript" laufen:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl

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

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
print "Hallo";


Wenn das funktioniert, dann kannst Du es erweitern. Z.B. so:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#! /usr/bin/perl

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

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


usw. So baust Du nach und nach Dein Ergebnis auf... Vielleicht kannst Du so feststellen, wo der Fehler liegt (ab wann es nicht mehr funktioniert)...\n\n

<!--EDIT|renee|1078395416-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
piero
 2004-03-04 12:16
#1469 #1469
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
habe jetzt die Fehlermeldung von dem log.-File.
Sie lautet:

Can't locate warnings.pm in @INC (@INC contains: /usr/libdata/perl/5.00503/mach /usr/libdata/perl/5.00503 /usr/local/lib/perl5/site_perl/5.005/i386-freebsd /usr/local/lib/perl5/site_perl/5.005 .) at /usr/home/franz-kahl/cgi-bin/comments.pl line 4.
BEGIN failed--compilation aborted at /usr/home/franz-kahl/cgi-bin/comments.pl line 4.


was bedeutet das?
renee
 2004-03-04 12:20
#1470 #1470
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das das warnings-Modul nicht installiert ist. Entweder installierst Du es, was ich empfehlen würde, oder Du lässt das "use warnings;" weg...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
piero
 2004-03-04 12:23
#1471 #1471
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
hab es rausgenommen, und jetzt kommt folgende fehlermeldung:

Content-type: text/html

Software error:

Undefined subroutine CGI::Vars
ptk
 2004-03-04 12:35
#1472 #1472
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
[quote=renee,04.Mar..2004, 11:20]Das das warnings-Modul nicht installiert ist. Entweder installierst Du es, was ich empfehlen würde, oder Du lässt das "use warnings;" weg...[/quote]
warnings gibt es fuer 5.00503 nicht (und wird es wahrscheinlich auch nie geben).
<< |< 1 2 3 4 5 >| >> 50 Einträge, 5 Seiten



View all threads created 2004-03-04 09:24.