nicht angemeldet
Hallo zusammen,
ich habe ein Problem bei meinen Skripten. Ich habe mir die Perldoc's von cgi.pm angesehn und möchte die Funktionen dieses Moduls nutzen, was ja eigendlich auch nicht so schwierig ist.
Nur habe ich beim einbinden von Grafiken das Problem, das der HTML-Code für das IMG-Tag innerhalb von Tabellenzellen nicht sauber erzeugt wird.
Beispiel:
01 use CGI qw/:standard/;
02 $bild = img{src=>'images/bild.gif'};
03 print
04 header(),
05 start_html(-title=>'Testseite'), "\n",
07 img{src=>'images/bild.gif'}, "\n",
08 center(
09 table({border=>0, cellspacing=>0, cellpadding=>0}, "\n",
10 TR(th(img{src=>'images/bild.gif'})), "\n",
11 TR(td($bild)), "\n",
12 )),
13 end_html;
In Zeile 07 wird der Img-Tag richtig erzeugt, aber in den Zeilen 10 und 11 wird mir der Img-Tag immer mit einem Slash am Ende ausgegeben.
Beispiel: <img scr="images/bild.gif" />
Woran kann das liegen, was mache ich da falsch?
Danke für Eure Hilfe.