mit Perlscript Javascript erzeugen (Perl/CGI)

[thread]18819[/thread]

mit Perlscript Javascript erzeugen

Tags: perl5 CGI Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+5 replies
Gast roger

2013-12-27 08:50
Hallo,

ich erzeuge mit einem Perlscript eine dynamische Webseite mit intergriertem
Javascript und Grafik.

mein Grafikpfad= /srv/www/htdocs/gif/meinegrafik
meine Javascript lib= /srv/www/htdocs/javascrip.js

welche Adresse/Pfad muss ich nun im Perlscript verwenden, damit die Grafik und die *.js benutzt werden kann. Es ist auf jeden Fall anders als in HTML direkt, warum ??

Hier ein Code
Code: (dl )

1 2 3 4 5 6 7

print <<"END"; Content-type: text/html\n\n <html><head> <title>Daten an Steuerung senden</title> <meta HTTP-EQUIV="Content-Type" content="text/html ; charset=iso-8859-1"> <script type="text/javascript" src="../keyboard.js"></script>
oder
Code: (dl )

1 2

print <<"END"; <img src="../gif/tastatur.jpeg" alt="Tastatur" width="26" height="18"/>
Gruß
roger
Last edited: 2013-12-27 08:52:04 +0100 (CET)
- jan
  
  2013-12-27 08:54
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  Das kommt schwer darauf an, unter welcher URL dein Perlscript aufgerufen wird.
  
  Wenn das bspw unter / läuft, dann müsstest Du
  
  Code: (dl )
  
  <script type="text/javascript" src="keyboard.js"></script>
  
  nutzen, und entsprechend auch beim Bild
  
  Code: (dl )
  
  <img src="gif/tastatur.jpeg" alt="Tastatur" width="26" height="18"/>
  
  Statt der relativen kannst Du natürlich auch /keyboard.js bzw /gif/tastatur.jpeg benutzen.
  
  Oder habe ich deine Frage vollkommen falsch verstanden?
- +2 replies
- GwenDragon
  
  2013-12-27 10:35
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Quote
  mein Grafikpfad= /srv/www/htdocs/gif/meinegrafik
  meine Javascript lib= /srv/www/htdocs/javascrip.js
  
  Dann wäre es so zu machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $docroot = $ENV{DOCUMENT_ROOT}; my $grafik_pfad = '/srv/www/htdocs/gif/meinegrafik'; my $javascript_pfad = '/srv/www/htdocs/javascrip.js'; my $grafik_url = $grafik_pfad; $grafik_url =~ s/$docroot//; my $javascript_url = $javascript_pfad; $javascript_url =~ s/$docroot//;
  
  Diese $..._url fügst du in deine generiertes HTML ein.
  
  Oder was willst du genau erreichen?
  Last edited: 2013-12-27 10:42:29 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - gelöscht 2013-12-27 10:39
- GwenDragon
  
  2013-12-27 10:40
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wieso stellst du deine Javascripte nicht in ein Unterverzeichnis js?
  Und ganz ehrlich, du solltest bei CGI-Programmen keine relativen Pfade benutzen, sondern absolute.
  
  So könntest du folgendes machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  print <<"END"; Content-type: text/html\n\n <html><head> <title>Daten an Steuerung senden</title> <meta HTTP-EQUIV="Content-Type" content="text/html ; charset=iso-8859-1"> <script type="text/javascript" src="/js/keyboard.js"></script> .... END print <<"END"; <img src="/gif/tastatur.jpeg" alt="Tastatur" width="26" height="18"/> ..... END
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-12-27 08:50.