Blackice
02-07-2003, 10:31
moigens,
ich habe ein kleines perl script geschrieben um daten, die aus einer HTML form kommen weiterzuverarbeiten und in ein .rtf dokument einzusetzen.
Dies hier ist der Programmcode:
#!/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;
}
open PLATZ, "<dokument.rtf" or die "Error: $!";
open PLATZ_TMP, ">dokument.rtf.tmp" or die "Error: $!";
while (<PLATZ>) {
s/name/$Formular{Vorname_User}/;
s/nachname/$Formular{Nachname_User}/;
if ($Formular{Zeitarbeits_Firma_User} > 0) {
s/job title/description/;
s/beschreibung/Sasol Germany GmbH/;
}
else {
s/beschreibung/ /;
}
s/Userid/$Formular{Vergleichs_User_ID}/;
s/jahr/$Formular{Befristet_jahr}/;
s/monat/$Formular{Befristet_monat}/;
s/tag/$Formular{Befristet_tag}/;
print PLATZ_TMP;
}
rename "dokument.rtf.tmp", "dokument.rtf";
der apache meldet jetzt aber: Premature end of script headers.
Ich kann mit der Meldung nichts anfangen :confused:
Was is das und was tut man dagegen?
mfg
Blackice
ich habe ein kleines perl script geschrieben um daten, die aus einer HTML form kommen weiterzuverarbeiten und in ein .rtf dokument einzusetzen.
Dies hier ist der Programmcode:
#!/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;
}
open PLATZ, "<dokument.rtf" or die "Error: $!";
open PLATZ_TMP, ">dokument.rtf.tmp" or die "Error: $!";
while (<PLATZ>) {
s/name/$Formular{Vorname_User}/;
s/nachname/$Formular{Nachname_User}/;
if ($Formular{Zeitarbeits_Firma_User} > 0) {
s/job title/description/;
s/beschreibung/Sasol Germany GmbH/;
}
else {
s/beschreibung/ /;
}
s/Userid/$Formular{Vergleichs_User_ID}/;
s/jahr/$Formular{Befristet_jahr}/;
s/monat/$Formular{Befristet_monat}/;
s/tag/$Formular{Befristet_tag}/;
print PLATZ_TMP;
}
rename "dokument.rtf.tmp", "dokument.rtf";
der apache meldet jetzt aber: Premature end of script headers.
Ich kann mit der Meldung nichts anfangen :confused:
Was is das und was tut man dagegen?
mfg
Blackice