Include PHP dans un script Perl

**Jim_Nastiq** · 15/05/2006, 14h13

Salut,

J'ai un probleme, mon site utilise un fichier php qui gere le menu deroulant(avec css et js) j'ai donc toutes mes pages en php et je met un include du style :

Code :

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

<?php $chemin = '../../';  include($chemin.'menu.php'); ?>

cependant j'utilise des scripts CGI Perl qui me créé eux meme des pages aux format HTML et qui ont leur propres fonction JS au chargement dans la balise body.
Je souhaite donc afficher le menu sur ces pages créer mais je n'arrive pas a afficher celui ci.

mon fichier menu.php commence ainsi(a noter la fermeture de la balise head et le debut de body) :

Code :

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

1
2
3
4
5
6
 <link rel="stylesheet" type="text/css" href="<?php echo($chemin);?>menu.css">
<script language="javascript" type="text/javascript" src="<?php echo($chemin);?>menu.js"></script>
<title>Nec i-mode</title>
  </head>
  <link type="text/css" rel="stylesheet" href="<?php echo($chemin);?>page.css">
  <body>

j'ai donc modifier le menu.php pour mettre le "onload" du JS dans la balise body et juste invoqué l'include dans mon script perl mais ca ne fonctionne pas .

mon code perl avant tentative d'inclure le menu contient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 print "Content-type: text/html\n\n";
 print <<"HTML";
<HTML>
<HEAD>
<script type=text/javascript>
 
function emulHover()
{  
 if(document.all)
 {   
  TR  = tab.getElementsByTagName('tr');    
  for(i in TR)
  {      
   TR[i].className = 'ieTR';         
   TR[i].onmouseover = function()
   {        
    this.className = 'ieTRhover';
   }     
   TR[i].onmouseout = function()
   {       
    this.className = 'ieTR';         
   }   
  }  
 }
}
</script>
</HEAD>
<link type="text/css" rel="stylesheet" href="../../../nemip/php/table.css">
<BODY onload="emulHover()">
<TABLE id="tab" bgcolor="#DCDCDC">
HTML

mon fichier perl apres tentative:

Code :

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

1
2
3
4
5
6
7
 print "Content-type: text/html\n\n";
 print <<"HTML";
<HTML>
<HEAD>
<?php $chemin = '../../../'; include($chemin.'menu.php'); ?>
<TABLE id="tab" bgcolor="#DCDCDC">
HTML

le probleme que j'ai remarqué c'est le passage du parametre $chemin. en fait qu'en je test la page et que j'affiache la source j'obtient:

Code :

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

<?php  = '../../../'; include(.'menu.php'); ?>

en fait la variable $chemin ne passe pas dans mon code perl

c'est un peu compliqué

! mais bon si qq'un m'a suivi... merci de m'aider

**Jim_Nastiq** · 16/05/2006, 09h23

vraiment personne?

**Jedai** · 16/05/2006, 15h14

Ben ce que tu demandes n'est pas possible : on ne peut pas mélanger du CGI et du PHP... Le PHP est interprété par le serveur lors d'une requête alors que le CGI est appelé lors d'une requête et renvoie directement l'HTML que le serveur renvoie au client. Donc si tu mets du PHP dans cet HTML, il ne sera pas interprété.

Tu peux "tricher" en demandant au serveur d'interpréter ton PHP, mais il faut faire une redirection vers une page .php que tu créeras pour l'occasion. Ou tu peux faire en sorte que le script Perl demande au serveur d'interpréter le PHP (en faisant une requête avec LWP) puis inclut cette interprétation dans sa sortie.

Ces deux solutions sont loins d'être idéales au niveau du temps de réponse... Le mieux serait sans doute de réécrire le code PHP en Perl et d'en faire un module. Si tu nous montres ton PHP, nous pourrons sans doute te dire si une telle opération est envisageable.

--
Jedaï

Include PHP dans un script Perl

Web Perl

Discussions similaires

Partager

Partager