Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]17[/thread]

Fehler beim Here-Dokument!!!

Leser: 1


<< |< 1 2 >| >> 17 Einträge, 2 Seiten
skontox
 2003-08-22 15:24
#1106 #1106
User since
2003-08-06
193 Artikel
BenutzerIn
[default_avatar]
Guten Tag!
Ich hab ein kleines Perl-CGI-Script geschieben und dort sollte ein here-Dokument erstellt werden, aber er meckert dann immer.

hier mein Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;

print <<HTML;
Content-type: text/html

<HTML>
<HEAD><TITLE>Test using HTML<TITLE></HEAD>
<BODY>
<CENTER>TEST</CENTER>
</BODY>
</HTML>

HTML


Er kann dann anscheinend den "HTML"-String nicht am Ende der Datei finden.

Hier die Fehlermeldung:
Code: (dl )
Can't find string terminator "HTML" anywhere before EOF at ... line 5.


Sehr komisch, obwohl ich das genau so aus einem Buch habe!

Hat da vielleicht jemand ne Idee?

Gruß skontox
esskar
 2003-08-22 15:26
#1107 #1107
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

use strict;

print <<HTML;
Content-type: text/html

<HTML>
<HEAD><TITLE>Test using HTML<TITLE></HEAD>
<BODY>
<CENTER>TEST</CENTER>
</BODY>
</HTML>

HTML
# it's magic
skontox
 2003-08-22 15:34
#1108 #1108
User since
2003-08-06
193 Artikel
BenutzerIn
[default_avatar]
Datt is ja trixy! Besten Dank!
Da muß man erst einmal drauf kommen!

:-)
esskar
 2003-08-22 15:36
#1109 #1109
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=skontox,22.08.2003, 13:34]Datt is ja trixy! Besten Dank!
Da muß man erst einmal drauf kommen!

:-)[/quote]
das # kann auch weg; solange HTML nicht die letzte Zeile im code ist...
mit dem # find ich es aber schicker... dann vergisst man es event. nicht!
Strat
 2003-08-22 15:43
#1110 #1110
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Weil nach dem HTML noch ein Zeilenumbruch kommen muss, verwende ich da lieber folgende Schreibweise:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

use strict;

print qq~Content-type: text/html

<HTML>
<HEAD><TITLE>Test using HTML<TITLE></HEAD>
<BODY>
<CENTER>TEST</CENTER>
</BODY>
</HTML>
~; # im text darf halt kein ~ vorkommen

(oder ueberhaupt ein Templating system wie CPAN:HTML::Template\n\n

<!--EDIT|Strat|1061552641-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
skontox
 2003-08-24 15:30
#1111 #1111
User since
2003-08-06
193 Artikel
BenutzerIn
[default_avatar]
Besten Dank Euch allen!
Das hat mir auf jeden Fall ersteinmal weitergeholfen!

Gruß skontox
Crian
 2003-08-25 15:32
#1112 #1112
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
Mit einem vernünftigen Editor, der Dateien nicht ohne letzten Zeilenumbruch abspeichert, braucht man sich darum gar nicht zu kümmern ;-)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Strat
 2003-08-25 21:12
#1113 #1113
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=Crian,25.08.2003, 13:32]Mit einem vernünftigen Editor, der Dateien nicht ohne letzten Zeilenumbruch abspeichert, braucht man sich darum gar nicht zu kümmern ;-)[/quote]
Ich hasse Editoren, die das machen. In sehr seltenen Faellen ist es zwar ganz fein, aber in anderen Faellen kann durch dieses zusaetzliches Newline ein Problem entstehen, das man nur sehr schwer findet...\n\n

<!--EDIT|Strat|1061831593-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
pq
 2003-08-25 21:16
#1114 #1114
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=Strat,25.08.2003, 19:12][...] aber in anderen Faellen kann durch dieses zusaetzliches Newline ein Problem entstehen, das man nur sehr schwer findet...[/quote]
welche fälle denn, das würde mich mal interessieren, denn ich
kann mir jetzt keinen vorstellen...
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
Strat
 2003-08-25 22:02
#1115 #1115
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=pq,25.08.2003, 19:16]welche fälle denn, das würde mich mal interessieren, denn ich
kann mir jetzt keinen vorstellen...[/quote]
z.B.
x) bei Binaerdateien
x) wenn der Zeilenumbruch am Ende signifikant ist, also wenn man sich schlimmerweise darauf verlaesst, dass in einer Datei wirklich nur eine Zeichenkette ohne \n steht, und wenn jemand dann diese Datei dann mit dem editor oeffnest, was darin aendert und die Datei wieder abspeichert. Da hat man vielleicht einen zusaetzlichen Zeilenumbruch im Output, oder die Laenge des Strings stimmt nicht mehr, und wenn man im Code nicht damit rechnet, kann das manchmal "interessante" Auswirkungen haben...\n\n

<!--EDIT|Strat|1061834615-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
<< |< 1 2 >| >> 17 Einträge, 2 Seiten



View all threads created 2003-08-22 15:24.