(xml) Problème de script

Salus,

débutante en perl, j'ai un script qui est censé récupérer un fichier xml existant, puis je voudrais supprimer le dernier élément de la liste. Pour cela, voici mon scritp, et je sais pas comment écrire "supprimer la ligne sélectionnée" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

$xml = new XML::Simple(); $var = $xml -> XMLin($variablexml);   print $q->header, $q->start_html('test');     $i = 0; while ($var->{item}->{clip}[$i] ne "") { # suppression de la ligne... #et là je sais pas quoi ecrire $i++; }     XMLout($conf, OutputFile => $pathfile2)

---

Est-ce que qqn peut m'aider svp ?

Merci.

Je pense que ce que tu veux c'est :

Code:

---

pop @{$var->{item}{clip}};

---

pop() est une fonction de Perl qui supprime le dernier élément d'une liste et le renvoie (ici on ignore la valeur de retour puisque tout ce qui nous intéresse c'est la suppression).

Je te préviens également que XML::Simple est relativement limité (et parfois surprenant, par exemple si tu n'avais qu'un seul élément sous clip...), pour des fichiers XML très simple il est acceptable, mais méfie-toi si tu ne contrôles pas parfaitement les fichiers XML en entrée.

--
Jedaï