Bonjour,

je tente de réaliser ce json-ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
{
 "forum":
 [
  {"nom":"forum1","langage":"MYSQL"},
  {"nom":"forum2","langage":"PGSQL"}
 ]
}
comme contrainte, j'ai une variable qui est de cette forme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
$mavar = "forum1~MYSQL,forum2~PGSQL";
J'ai fait plusieurs tentatives pour jongler avec un tableau associatif, ou des tableaux simples, mais les valeurs sont écrasées et je ne garde que le dernier élément ajouté...

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
 
#!/usr/bin/perl
use JSON;
 
$mavar = "nom1~url1,nom2~url2";
 
my @tab  = split(",",$mavar);
 
foreach my $one (@tab){
	($part1,$part2) = split("~",$one);
        #*ici il faut mémoriser ces valeurs d'une certaine manière...
}
 
 
$json->{'copyright'} = "Developpez.net";
 
$json->{'contenu'} = \%ici_generalement_on_met_le_tableau_généré_plus_haut;
 
$json_text = to_json($json,{utf8 => 1, pretty => 1});
 
print "$json_text\n";
Est-ce quelqu'un a une idée svp ?

[le forum Perl n'acceptant plus de nouveaux messages, je me permets d'écrire dans celui-ci]

Merci.