Discussion :

[trashvip]

Bonjour à tous,

J'ai un petit souci que voilà :

Je souhaiterai copier des données dans un fichier.
Cependant les données que j'ajoute, il faudrait qu'elles "repartent du haut du fichier" : sur une nouvelle colonne.

Par exemple :

Voilà mon fichier avant la copie :

1
2
3
4
5

et je souhaiterai copier de nouvelles valeurs (a,b,c,d,e) dedans non pas à la suite mais sur une nouvelle colonne (après un test if), pour obtenir ceci :

1 a
2 b
3 c
4 d
5 e


Pour le moment j'ai un code PERL tq:

open(OUT, '>outall.txt') || die ("Erreur d'ouverture du fichier");
....
while <>
{

my $lignecomplete2 = $_ ;
my @maligne2 = split(/\s+/,$lignecomplete2);
print OUT "$maligne2[3]\t\n"; <<<<< ligne à modifier pour obtenir une copie sur une nouvelle colonne

}

Y-a-t-il qqun pour m'éclairer ?
J'espère avoir été clair.
Merci d'avance pour vos réponses.
Cdlt.

[50Nio]

Bonjour,

Je passerais par un fichier temporaire:
- boucle en lecture sur ton fichier.txt
- pour chaque ligne
- génération de la nouvelle ligne dans fichier.txt.tmp
- sauvegarde de l'ancienne version de fichier.txt
- move de fichier.txt.tmp en fichier.txt
Si la volumétrie de données permet de fonctionner comme ça, c'est plus simple que de modifier le fichier à la volée (d'ailleurs je ne vois pas très bien comment le faire directement).

[Philou67430]

Si le traitement est simple, tu peux le faire en uniligne avec les options -p -i

Code :

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

perl -i -pe 's/$/" ".$number++/e' toto.txt

Cette commande ajoute un espace est un numéro à la fin de chaque ligne du fichier toto.txt.

[trashvip]

Problème résolu.