Discussion :

[Flyer007]

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 :

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
 
$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.

[Jedai]

Je pense que ce que tu veux c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï