Thread Link nach Formulareingabe (21 answers)
Opened by Drain at 2003-08-25 18:33

Strat
 2003-08-26 18:32
#1437 #1437
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
1. Kennst Du das Modul CPAN:CGI?

Ersetze besser diesen Code
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
# Input and formate
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(&ũ))/eg;
  $Wert =~ s/</</g;
  $Wert =~ s/>/>/g;
  $Formular{$Name} = $Wert;
 }

durch den folgenden:
Code (perl): (dl )
1
2
3

use CGI;
my $cgi = CGI->new();
my %Formular = $cgi->Vars();

Dann hast du schon mal viel schwierigen Code, der zudem noch fehleranfaellig ist, vermieden.

2.
Code (perl): (dl )
1
2
3

open HTML,'<html.html';
print <HTML>;
close HTML;

Kann da irgenwie das Oeffnen der Datei html.html fehlschlagen?
Code (perl): (dl )
1
2
3
4
5
6
7
8
9

my $file = "html.html";
unless (open (HTML, $file)) {
  print "Fehler: konnte die Datei '$file' nicht oeffnen: $!
";
}
else {
  print <HTML>;
  close HTML;
}
\n\n

<!--EDIT|Strat|1061908460-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread Link nach Formulareingabe