Bonjour,
si l'aspect xml n'est pas trop important (pas trop de souplesse), il est possible d'utiliser les regexp avec les options "sgm"
Code :
- my @tops_elements=();
- while ((my $enreg,my $key)=~m/(<top\s+key="([^"]+)"\s+>.*?<\/top> )/msg)){
- push (@tops_elements, [$key,$enreg]);
- }
|
Après, il n'y a plus qu'à utiliser la fonction sort
PS: je ne l'ai pas testé, donc ya peut-être qq adaptations/corrections à faire...
Message édité par dreameddeath le 15-03-2008 à 09:10:10