1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;
my @tab;
#Initialisation du tableau (1 ligne du fichier = 1 colonne du tableau)
tie @tab, 'Tie::File', 'fichier.txt' or die "\nErreur $!\n";
shift(@tab);
#Supprime le premier élément du tableau => la première ligne du fichier
unshift('toto', @tab);
#Ajoute un élément au début du tableau => en première ligne du fichier
reverse(@tab)
#Assez explicite...
splice (@tab, début, nb, 'element a inserer facultatif');
#Enlève nb éléments du tableau à partir de l'indice début => supprime les lignes
On peut éventuellement remplacer les éléments supprimés :
splice(@tab, 1,1, ('a l indice1','a l indice2'));
#On a supprimé à partir de la case d'indice 1 et sur 1 de long (juste la case $tab[1] bref).
#On a ensuite rajouté 2 éléments à l'indice 1 et à l'indice 2 (on a décalé tout le tableau)
pop(@tab);
#Supprimer à la fin du tableau => fin de fichier
push(@tab, $val);
#Ajouter a la fin du tableau => fin de fichier
untie @tab; #Fin du traitement de fichier grâce au tie |
Partager