Opened by renee at 2004-03-10 11:13
Hi nochmal,
hab da ein Perl Skript, das bei Ausgabe eine Tabelle mit Variablen anzeigt. Leider wird in der ersten Zeile immer folgendes angezeigt:
Content-Type: text/html; charset=ISO-8859-1
Sorry, aber ich krieg das nicht weg und ich hab das mit anderen Perl-Skripten verglichen wo das nicht angezeigt wird.
Kann mir jemand helfen???
Hier der Quelltext Anfang:
Blick da nicht mehr durch...
MfG
crucho
PS Ich weiss das ich die use warnings hier nicht drin hab...
hab da ein Perl Skript, das bei Ausgabe eine Tabelle mit Variablen anzeigt. Leider wird in der ersten Zeile immer folgendes angezeigt:
Content-Type: text/html; charset=ISO-8859-1
Sorry, aber ich krieg das nicht weg und ich hab das mit anderen Perl-Skripten verglichen wo das nicht angezeigt wird.
Kann mir jemand helfen???
Hier der Quelltext Anfang:
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
#!c:\Perl\bin\perl.exe
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";print "<html>\n";
print "\n\n";
print "<html>\n";
print "\n";
print "<head>\n";
print "<title>TITELTHEMA</title>\n";
print "<link href=\"http://localhost/styles/main.css\" rel=\"STYLESHEET\" type=\"text/css\">\n";
print "</head>\n";
print "<body aLink=\"\#000000\" bgColor=\"\#F0F2FF\" bottomMargin=\"0\" leftMargin=\"0\" link=\"\#000000\"\n";
print "rightMargin=\"0\"\n";
print "style=\"BACKGROUND-IMAGE: url(/images/ap/streifen.jpg); BACKGROUND-REPEAT: repeat-y\"\n";
print "topMargin=\"0\" vLink=\"\#000000\" marginwidth=\"0\" marginheight=\"0\">\n";
use CGI;
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
my %params = $cgi->Vars();
my $benutzer = $params{'var'}; #Benutzer
my $hwcode1 = $params{'var1'}; #Parameter1 der hw1
my $hwcode2 = $params{'var2'}; #Parameter2 der hw2
my $hwcode3 = $params{'var3'}; #Parameter3 der hw3
my $hwcode4 = $params{'var4'}; #Parameter4 der hw4
my $haus= $params{'var5'}; #Haus
my $room = $params{'var6'}; #Zimmer
Blick da nicht mehr durch...
MfG
crucho
PS Ich weiss das ich die use warnings hier nicht drin hab...