Javascript dans une page PERL

**High Voltage** · 11/06/2008, 14h12

Bonjour,

Est-il possible d'inclure un script javascript dans une page PERL ? Et si oui comment ?
En faisant

print("<script type="text/javascript">...");

simplement ?

Merci d'avance !

**djibril** · 11/06/2008, 15h48

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
print $query->start_html(-title=>'titre',               
			    	-script=>{-language => "JAVASCRIPT",-src=>"/text/javascript.js"},
                          );

**High Voltage** · 11/06/2008, 16h18

Ok merci. Mais à quoi correspont le "titre" ?

**CKLN00** · 11/06/2008, 16h39

le simple print (que tu propose) fonctionne aussi.
la solution de djibril est si tu utilise le module CGI (du moins il me semble ^_^)

**High Voltage** · 11/06/2008, 16h43

Oui c'est du CGI (j'ai oublié de le préciser)

**djibril** · 11/06/2008, 16h53

Envoyé par High Voltage

Ok merci. Mais à quoi correspont le "titre" ?

A mettre un titre à la page

**High Voltage** · 12/06/2008, 08h45

Arf ça marche pas ! Grosse page blanche.

**CKLN00** · 12/06/2008, 09h07

affiche le code source de la page et essaye de lire le log d'erreur du serveur si tu y as accès

ça peut aider

**High Voltage** · 12/06/2008, 09h20

Dans le code source j'ai seulement "<head>"

Bon, j'ai du faire une erreur. voici le début de ma page :

#!/bin/perl

use CGI qw(:standard);
$html = new CGI;
print $html->header;
print("<head>");

############################# Script permettant le menu déroulant dynamique ########################################
print $query->start_html(
-script=>{-language => "JAVASCRIPT",-src=>"script.js"},
);
################################################ Fin du script ####################################################

print("</head>");
print("<body>");

Qu'est-ce qui ne va pas ?

**Jedai** · 12/06/2008, 10h07

Toi, tu n'as pas lu le manuel du module CGI...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/bin/perl -T
use strict; use warnings;
 
use CGI qw(:standard);
 
print header,
  start_html(
    -title => "Ma super page CGI de débutant",
    -script => {-language => "Javascript",-src=>"script.js"}),
  h1("Ca marche !"),
  p("Vous pouvez venir hacker mon site maintenant ! ;-)"),
  end_html();
 
__END__

(tu es sûr de l'emplacement de ton perl ? C'est plutôt /usr/bin/perl ou même /usr/local/bin/perl d'habitude)

--
Jedaï

**High Voltage** · 12/06/2008, 10h23

Sûr ! (ça marche très bien sans le script)

Je vais essayer ce que tu m'as dit (désolé non je n'ai pas lu la page...)

Javascript dans une page PERL

Langage Perl

Discussions similaires

Partager

Partager