Perl

recherche algo pour expansion d'une structure.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : recherche algo pour expansion d'une structure.

djtoz

Salut,

j'ai une structure de type HoHoHoH... de profondeur inconnue, exemple:

Code :

$toto = {
key1 => {
key2 => {
param1 => value1,
param2 => value2,
},
* => {
param3 => value3,
},
},
* => {
key4 => {
* => {
param4 => value4,
},
},
},
};

je cherche a reperer les cles egales a '*' et quand j'en trouve une,
je veut copier la structure sur laquelle pointe la cle un nombre X de fois en creeant les cles necessaires.
(on ne s'interessera pas ici a la facon de nommer les nouvelles cles crees)

puis la structure ayant pour cle '*' est supprime.

exemples
X est egale a 2:

je voudrais obtenir une structure egale a cela:

Code :

$toto = {
key1 => {
key2 => {
param1 => value1,
param2 => value2,
},
newkey3 => {
param3 => value3,
},
newkey4 => {
param3 => value3,
},
},
newkey1 => {
key4 => {
newkey6 => {
param4 => value4,
},
},
newkey5 => {
param4 => value4,
},
},
},
newkey2 => {
key4 => {
newkey8 => {
param4 => value4,
},
},
newkey7 => {
param4 => value4,
},
},
},
};

j'ai deja reussi a faire quelque chose qui marche mais je parcours le hash a "expander" dans le sens "normal",
et par consequent je suis oblige de repeter l appel a ma fonction plusieurs fois car quand je copie un bloc
dont la cle etait une etoile, il peut arriver que je duplique a nouveau des etoiles qui se trouverai
dans la sous-structure copier...

bref ca fonctionne mais c'est pas beau !

l'ideal serait de faire un parcours du hash en profondeur, dans le sens "inverse",
mais je n'y arrive pas de cette facon...

si quelqu'un a reussi a comprendre mes explications qui sont pas tres clair,
deja bravo,
et eventuellement si vous aviez une idee pour m'aidez, n'hesitez pas.

je vous remercie d'avance.

Publicité

dreameddeath

si tu pouvais nous mettre le code de ton algo déjà codé (ou une version simplifiée) ça serait bien car on pourrait t'aider à le transformer/ améliorer

djtoz

dreameddeath a écrit :

si tu pouvais nous mettre le code de ton algo déjà codé (ou une version simplifiée) ça serait bien car on pourrait t'aider à le transformer/ améliorer

Code :

&depth($default, $user);
&depth($default, $user);
...
sub depth {
my ($default, $user) = @_;
foreach my $key (keys %{ $default }) {
if ($key eq '*') {
&copy($default, $user, $default->{$key});
}
if (ref($default->{$key}) eq 'HASH') {
&depth($default->{$key}, $user->{$key});
}
}
}
sub copy {
my ($default, $user, $sub) = @_;
foreach my $z (keys %{ $user }) {
# create structure if dont already exist
$default->{$z} = {} unless defined $default->{$z};
my %e = %{ merge($default->{$z}, $sub) };
$default->{$z} = \%e;
}
delete $default->{'*'};
}

voici donc ma facon de proceder actuellement, la ref de hash "$user" est la uniquement pour savoir quelle sont les cles que je doit creer au moment de la copie.

mais avec cette methode, il faut que j'appelle ma fonction &depth plusieurs fois pour avoir l'expansion de toutes les '*'.

dans l'exemple que j'ai donne precedemment il faudrat par exemple que je l'apelle 2 fois.

dreameddeath

bah déjà pourquoi tu ne fais pas qqch du type dans copy, qui va transformer avant de merger

Code :

sub copy {
#...
$default->{$z} = \%e;
#fait le depth sur la structure nouvellement créé...
&depth($default->{$z},$user->{$z});
}

je pense que ça devrait marcher !

djtoz

dreameddeath a écrit :

bah déjà pourquoi tu ne fais pas qqch du type dans copy, qui va transformer avant de merger

Code :

sub copy {
#...
$default->{$z} = \%e;
#fait le depth sur la structure nouvellement créé...
&depth($default->{$z},$user->{$z});
}

je pense que ça devrait marcher !

effectivement ca fonctionne.
maintenant je suis pas sur que ca soit plus optimise que la premiere methode...

ca evite d'appeller plusieurs fois la fonction au debut, certes.

mais ca n'empeche pas que le fait de parcourir le hash dans ce sens multiplie le nombre d'etoile a chaque copie si dans la structure copiée il y avait aussi des etoiles...

tu n'as pas une idee pour faire la meme chose mais en parcourant la structure à partir des elements les plus profonds ?

Message édité par djtoz le 06-02-2005 à 14:34:35

dreameddeath

Je ne suis pas sûr de comprendre dans ce cas la fonction de la HASH %user. C'est a priori elle qui contient, de manière HIERARCHIQUE, les infos qui doivent remplacer les "*".

une question me viennent dans ce cas :
- est-ce que les valeurs que prennes les '*' dans une sous-structure dépendent de la valeur de '*' dans la stucture parent
Dans ton exemple :

Code :

$toto = {
...
* => {
key4 => {
* => {
param4 => value4,
},
},
},
};

est-ce que la valeur 1er * (avant key4) implique des valeurs spécifiques du * de la sous-structure ? Ceci, d'après ton algorithme, me semble être le cas...

Mais bon si tu veux faire les éléments les plus profonds d'abord, il suffit de faire :

Code :

sub copy {
my ($default, $user, $sub) = @_;
#modification de sub
&depth($sub,$user->{// je ne vois pas quoi mettre//});
foreach my $z (keys %{ $user }) {
# create structure if dont already exist
$default->{$z} = {} unless defined $default->{$z};
my %e = %{ merge($default->{$z}, $sub) };
$default->{$z} = \%e;
}
delete $default->{'*'};
}

et dans ce cas il transformera le $sub avant de faire les copies mais j'ai peur que cela ne donne pas le bon résultat (toutes les sous-structures seront identiques alors que ce ne semble pas être le souhait)

FORUM HardWare.fr

Programmation

Perl

recherche algo pour expansion d'une structure.

Sujets relatifs
Recherche script de mailing list evolué !	Structure CSS
recherche site langage html livre d'or compteur etc	recherche interactive comme dans les dictionnaires en VBA
MOTEUR DE RECHERCHE COMME GOOGLE [ OU? ]	trop bizare la recherche vba
recherche optimisee	[JBuilder X] pb ds le panneau de structure
recherche de fichiers - renvoi des noms de fichiers	Moteur de recherche en perl
Plus de sujets relatifs à : recherche algo pour expansion d'une structure.

Page générée en 0.073 secondes