Utilisation des liste liées (ajax) avec du perl

Bonjour,

Sur ce lien on a un exemple de liste liée qui fonctionne avec du php! et je souhaite reutiliser ce code mais sans le php , j'ai donc testé en remaniant les parties en php et les codant en perl mais ca ne semble pas fonctionner!

voici mon code adapté :

listelie.pl:

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
#!c:/Perl/bin/perl
 
use strict 'vars';
use strict 'refs';
 
 
 
 
use CGI qw/:standard/;
use DBI;
use Time::local;
my $req = new CGI; 
 
print "Content-type: text/html\n\n";
print<<HTML;
<html>
	<head>
		<title>Tutoriel Ajax (XHTML + JavaScript + XML)</title>
		<script type='text/javascript'>
			var xhr = null; 
 
			function getXhr(){
				if(window.XMLHttpRequest) // Firefox et autres
				   xhr = new XMLHttpRequest(); 
				else if(window.ActiveXObject){ // Internet Explorer 
				   try {
			                xhr = new ActiveXObject("Msxml2.XMLHTTP");
			            } catch (e) {
			                xhr = new ActiveXObject("Microsoft.XMLHTTP");
			            }
				}
				else { // XMLHttpRequest non supporté par le navigateur 
				   alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest..."); 
				   xhr = false; 
				} 
			}
 
			/**
			* Méthode qui sera appelée sur le click du bouton
			*/
			function go(){
				getXhr();
				// On défini ce qu'on va faire quand on aura la réponse
				xhr.onreadystatechange = function(){
					// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
					if(xhr.readyState == 4 && xhr.status == 200){
						leselect = xhr.responseText;
						// On se sert de innerHTML pour rajouter les options a la liste
						document.getElementById('livre').innerHTML = leselect;
					}
				}
 
				// Ici on va voir comment faire du post
				xhr.open("POST","ajaxLivre.pl",true);
				// ne pas oublier ça pour le post
				xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
				// ne pas oublier de poster les arguments
				// ici, l'id de l'auteur
				sel = document.getElementById('auteur');
				idauteur = sel.options[sel.selectedIndex].value;
				xhr.send("idAuteur="+idauteur);
			}
		</script>
	</head>
	<body>
		<form>
			<fieldset style="width: 500px">
				<legend>Liste liées</legend>
				<label>Auteurs</label>
				<select name='auteur' id='auteur' onchange='go()'>
					<option value='-1'>Aucun</option>
HTML
 
my $dbh = DBI->connect( 'dbi:mysql:database=user_mgmt','root','newroot', ) || die "Database connection not made: $DBI::errstr";
 
my $request_table = $dbh->prepare(qq{SELECT * FROM auteur ORDER BY nom});
$request_table->execute;
 
my @title;
 
 
while (@title = $request_table->fetchrow_array)  { 
 
print "<option value='".$title["id"]."'>".$title["nom"]."</option>";
 
}
 
 
print<<HTML;
				</select>
				<label>Livres</label>
				<div id='livre' style='display:inline'>
				<select name='livre'>
					<option value='-1'>Choisir un auteur</option>
				</select>
				</div>
			</fieldset>
		</form>
	</body>
</html>
HTML

et ajaxLivre.pl:

Code:

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
#!c:/Perl/bin/perl
 
package Menu;
use strict 'vars';
use strict 'refs';
use CGI qw/:standard/;
use DBI;
use Time::local;
my $req = new CGI; 
 
my $dbh = DBI->connect( 'dbi:mysql:database=user_mgmt','root','newroot', ) || die "Database connection not made: $DBI::errstr";
my $result =$req->param("idAuteur");
 
print "<select name='livre'>";
	if($result)
	{
		my $request_table = $dbh->prepare(qq{SELECT id,titre FROM livre WHERE idAuteur=$result ORDER BY titre});
		$request_table->execute;
 
 
		while (@title = $request_table->fetchrow_array)  
		{ 
			print "<option value='".$title["id"]."'>".$title["nom"]."</option>";
		}
	}
print "</select>";
 
1;

Deja il est fort possible que ce ne soit pas possible, en fait je n'en sais rien... merci pour votre aide!;)