dominik: name der entstandenen html datei

SELF-Forum

name der entstandenen html datei

dominik
– Informationen zu den Bewertungsregeln

angenommen ich verwende ganz einfach das script von selfhtml.
wie heißt die durch cgi entstandene html datei?
danke im voraus
domink

#!/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/</</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>CGI-Feedback vom Programm <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";

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. name der entstandenen html datei

    $xNeTworKx
    – Informationen zu den Bewertungsregeln

    Hallo,

    #!/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/</</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>CGI-Feedback vom Programm <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";

    Da entsteht keien HTML Datei. Das HTML wird nur vom CGI Script ausgegeben, und wenn du in die Adresszeile siehst, wird noch immer die CGI Dagtei aufscheinen. Desweiteren würde ich dir empfehlen cgi.pm zu verwenden, was das Script gleich um ein paar Zeilen verkürzen würde.

    $xNeTworKx.

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln