Opened by jan10001 at 2004-07-24 12:48
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
So klappt gar nix, das gibt nämlich nen Syntaxfehler ;)
ok, ich wüßte auch nicht, wie man das mit nem HERE-Dokument macht, weil ich die nie verwende.
macht das, was BungeeBug machen wollte. Ich schreib desswegen die \n immer explizit, weil ich da mal nach nem Zeilenumbruch im Header n Leerzeichen hatte und ich _diesen_ Fehler nie wieder debuggen möchte..
Allerdings: Conten-Type _ändern_ dürfte schwer gehen, schließlich ist er fest, sobald der Header fertig ausgegeben wurde.
Und versuch das nächste Mal das passende Forum zu finden, das schaut mir mehr nach ner CGI-Frage aus ;)
ok, ich wüßte auch nicht, wie man das mit nem HERE-Dokument macht, weil ich die nie verwende.
Code: (dl
)
1
2
3
4
5
6
7
print "Content-Type: html/test\n\n<html>
<head>
</head>
<body>
<h1>Test Seite</h1>
</body>
</html>"
macht das, was BungeeBug machen wollte. Ich schreib desswegen die \n immer explizit, weil ich da mal nach nem Zeilenumbruch im Header n Leerzeichen hatte und ich _diesen_ Fehler nie wieder debuggen möchte..
Allerdings: Conten-Type _ändern_ dürfte schwer gehen, schließlich ist er fest, sobald der Header fertig ausgegeben wurde.
Und versuch das nächste Mal das passende Forum zu finden, das schaut mir mehr nach ner CGI-Frage aus ;)
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}