CGI und Darstellung eines Banners (Perl/CGI)

[thread]15437[/thread]

CGI und Darstellung eines Banners

Leser: 18

Articles: hide open all | hide show old branches

+4 replies
gmafx

2010-09-03 16:33
User since
2009-11-19
47 Artikel
BenutzerIn
Hallo,

ich versuche gerade das erste Mal aus einen Perl-CGI-Skript ein Banner darzustellen:
Code: (dl )

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html("Thank You"); print "<a href='http://localhost/CC/ccdf.html'><img src='/Library/WebServer/CGI-Executables/CC/ccdf.jpg' width='800' height='120' </a>"; print h2("Thank You");
Leider wird nur ein leerer Rahmen dargestellt.

In HTML funktioniert die Zeile
Code: (dl )

<a href='http://localhost/CC/ccdf.html'><img src='/Library/WebServer/CGI-Executables/CC/ccdf.jpg' width='800' height='120' </a>
allerdings wunderbar!

Woran kann das liegen?

gma
- +2 replies
- GwenDragon
  
  2010-09-03 16:35
  User since
  2005-01-17
  14830 Artikel
  Admin1
  Im Attribut src des HTML-Elements img muss eine URL drin stehen, kein Datei-Verzeichnis auf dem Server.
  
  Versuche es mal mit /CC/ccdf.jpg
  Ich denke, dein Bild ist wohl auch im Dateiverzeichnis des Servers, in dem die ccdf.html drin ist. ;)
  
  Zeile
  
  Code (perl): (dl )
  
  print "<a href='http://localhost/CC/ccdf.html'><img src='/Library/WebServer/CGI-Executables/CC/ccdf.jpg' width='800' height='120' </a>";
  
  sinnvoller:
  
  Code (perl): (dl )
  
  print qq(<a href='http://localhost/CC/ccdf.html'><img src='http://localhost/CC/ccdf.jpg' width='800' height='120'></a>);
  
  Last edited: 2010-09-03 16:38:02 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - gmafx
    
    2010-09-03 16:48
    
    User since
    2009-11-19
    47 Artikel
    BenutzerIn
    
    Super,
    
    funktioniert!!!
    
    Vielen Dank!
    gma
- GwenDragon
  
  2010-09-03 17:02
  User since
  2005-01-17
  14830 Artikel
  Admin1
  Du kannst auch die Methoden von CGI.pm verwenden, das ist zwar anders zu schreiben, kann aber helfen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html("Thank You"); print a({ -href=>'http://localhost/CC/ccdf.html'}, img({-src=>'http://localhost/CC/ccdf.jpg', -width=>800, -height=>120}) ); print h2("Thank You");
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-09-03 16:33.