Print (Allgemeines zu Perl) - Perl-Community.de

[thread]6428[/thread]

jan10001

2004-07-24 12:48

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

Besteht eigentlich die Möglichkeit in einer Printanweisung den Contentyp zu ändern?

BungeeBug

2004-07-24 13:26

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

Hi,

sicher ...

Code (perl): (dl )

print << EOF;
Content-Type: html/test\n\n
<html>
<head>
</head>
<body>
<h1>Test Seite</h1>
</body>
</html>
EOF

=== CODE GEÄNDERT .... Da fehlte ein "EOF" am Ende! ===

Sollte so klappen.\n\n

MfG
BungeeBug

Ishka

2004-07-24 13:45

User since
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.

Code: (dl )

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}

jan10001

2004-07-24 15:06

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

@Ishka

Quote
Und versuch das nächste Mal das passende Forum zu finden, das schaut mir mehr nach ner CGI-Frage aus

Geht klar. :) Ich glaube ich habe ne Lösung für mein Problem.

BungeeBug

2004-07-24 16:43

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

Hab meinen Code berichtigt! So sollte er das tuen was er soll. Ausserdem sind Here-Dokumente garnicht schlecht ... scheint mir zumindest so :)

MfG
BungeeBug

betterworld

2004-07-24 16:47

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=BungeeBug,24.07.2004, 14:43]Hab meinen Code berichtigt! So sollte er das tuen was er soll. Ausserdem sind Here-Dokumente garnicht schlecht ... scheint mir zumindest so :)[/quote]
Hinter dem Content-Type muss das Semikolon weg und dafuer noch ein weiterer Zeilenumbruch hinein.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

BungeeBug

2004-07-24 18:30

User since
2004-03-16
54 Artikel
BenutzerIn
[default_avatar]

Sorry, leigt aber am Forum, dass anscheinent Versucht den Code umzusetzen.

MfG
BungeeBug

betterworld

2004-07-24 18:37

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Oh ja, das gute alte Perl-Highlighting. Sorry, daran hatte ich nicht gedacht.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Strat

2004-07-25 00:51

User since
2003-08-04
5246 Artikel
ModeratorIn

HERE-Dokumente finde ich persoenlich nicht so toll, weil es da ein paar schwierig zu sehende Fallen gibt:
der ende-TAG (z.B: EOF) muss direkt davor und dahinter einen Zeilenumbruch enthalten (der zweite wird manchmal vergessen, wenn es das letzte Statement der Datei ist, und der Editor nicht automatisch einen Zeilenumbruch hinzufuegt (sowas will ich auch von einem Editor nicht), und Leerzeichen danach sind auch kritisch...
Ich habe mal meinen Emacs so umkonfiguriert, dass er Leerzeichen am Zeilenende mit rotem Hintergrund anzeigt... finde ich ganz fein...

Alternativen:

Code: (dl )

print qq~Content-type: text/html\n\n~;
print qq~<html>
  <head> ...
~;

Besser: gleich CGI (oder ein aehnliches Modul) verwenden:

Code: (dl )

use CGI ();
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html'), $cgi->start_html("testseite");
...

oder besser noch ein Templating System verwenden (mehr als ein paar Zeilen HTML inmitten von Perl-Code finde ich nicht so toll, und fast immer ist die Trennung von Code und GUI (=HTML, CSS) sinnvoll und erleichtert zumindest auf lange Sicht den Aenderungs- und Wartungsaufwand erheblich)\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Strat

2004-07-25 00:53

User since
2003-08-04
5246 Artikel
ModeratorIn

btw: die Antwort auf deine erste Frage:
ja, z.B. mit

Code: (dl )

#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); # in Produktion auskommentieren

my $cgi = CGI->new();
print $cgi->header(-type => 'image/gif');
...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2004-07-24 12:48.