Bonjour,

Je commence à utiliser jQuery pour faire de l'Ajax dans un environnement Perl. Jusque là, pas de soucis.

Mon code appelant en perl:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
	print "\$.post(\"get_port_vlan.cgi\", {op: 'nb_sites' , id_c: client}, function(data){\n";
	print " alert('data :'+data);\n"; 
	print "	\$(\"#nb_sites\").html(data);\n";
	print "	});";
Ce qui donne après interprétation
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
$.post("get_port_vlan.cgi", {op: 'nb_sites' , id_c: client}, function(data){
	alert('data :'+data);
	$("#nb_sites").html(data);
	});}
Mon code appelé (toujours un fichier .cgi donc) est de la forme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
my $chaine = "\n";
	my $id_c = param ("id_c");
 
	my @nb_sites_tab = $_BD->select("SELECT nb_site FROM `clients` WHERE id_client=$id_c");
	my $nb_sites = $nb_sites_tab[0][0];
	$chaine .= "$nb_sites site(s) prevu(s)"
 
print  $chaine;
J'ai dû initialiser $chaine à "\n" car dans ce que je récupère, la première ligne est systématiquement supprimée.

Sans que ce soit bloquant (maintenant que j'ai la feinte), ce n'est plus excessivement parlant, et difficilement reprenable sans explication. Donc si quelqu'un a déjà vu ce problème et/ou trouvé une solution, je suis curieuse.

Merci de vos réponses.