Discussion :

[barichon21]

Bonjour,

Je cherche un moyen d'écrire en perl à la fin d'un fichier, moins 9 caractères.

Voici mon programme, mais ça ne marche pas:

#ouverture du fichier à proprement dit:
open FD, ">> ".$config->{logfile};

#Décalage de 9 caractères avant la fin du fichier
seek FD, -9,2;

#Ecriture pour tester
print FD "test-test-test\n"



Sachant que le fichier que j'écris est de cette forme:

<SOURCE>
</SOURCE>
# d'ou le besoin de 9 caractères pour écrire avant cette balise fermante.


Merci par avance pour votre aide

Romain

[Jedai]

A priori tu ne veux pas "écrire dans le fichier 9 caractères avant la fin", tu veux insérer dans le fichier 9 caractères avant la fin (par ailleurs "9 caractères avant la fin" est une spécification extrêmement fragile, que t'arrive t'il si quelqu'un rajoute un saut à la ligne à la fin du fichier... Mieux vaut utiliser une regexp pour repérer le point où insérer).

Ce problème d'insertion dans un fichier est un problème commun à tous les langages, auquel il existe plusieurs solutions, je t'invite à consulter la réponse de notre FAQ consacré à cette question.

--
Jedaï

[lami20j]

Salut,

A priori tu ne veux pas "écrire dans le fichier 9 caractères avant la fin", tu veux insérer dans le fichier 9 caractères avant la fin

Ben, ni un ni l'autre.
Il veux écrire avant les 9 caractères de la fin de fichier (en fait avant </SOURCE>) la chaîne

"test-test-test\n"

En revanche pour les lignes vides à la fin, tu as raison.
Pour chaque fichier, le traitement est diffèrent en fonction de sa structure, d'où l'importance d'avoir le fichier en entrée et ce qu'on veux obtenir en sortie.

Pour barichon21

Selon ton cas exposé voici une solution (les éventuelles lignes à la fin sont prises en compte), mais il ne faut pas généraliser la solution.

La solution ne tient pas compte des 9 caractères (en fait tu as oublié le caractère de saute de ligne et les éventuelles caractères non-imprimables qu'on ne les vois pas).
Je me suis contenté d'écrire avant la ligne </SOURCE> de la fin dans l'exemple que tu as montré (je ne dit pas de la fin de ton fichier)

Le fichier

lami20j@debian:~$ cat fichier.txt

dlfk
kdkf
<SOURCE>
</SOURCE>




lami20j@debian:~$

Le script

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
19
20
21
22
23
24
lami20j@debian:~$ cat insert2last.pl
#!/usr/bin/perl
use strict;use warnings;
 
open F,"fichier.txt";
open FF,">fichier_resultat";
my $n=0;
 
for(reverse <F>){
  chomp; # suppression saut ligne
  length==0?$n++:last; # compter les lignes vides
                       # sortir de boucle des que 1ère ligne non-vide est rencontrée
}
 
while(<F>){};  # pour la variable $. (nombre de lignes de fichier)
my $i=$.-$n-2; #-1 puisque index commence à zéro
               #-1 pour ne pas prendre la dernière ligne non vide
seek(F,0,0);   #déplacement au début du fichier
print FF ((<F>)[0..$i]),"test-test-test\n"; # tranche de liste jusque l'avant dernière ligne
                                                   # non-vide du fichier
seek(F,0,0);
print FF ((<F>)[$i+1..$i+$n+1]); # tranche de liste de la dernière ligne non-vide
                              # jusqu'à la fin de fichier
__END__

Le résultat

lami20j@debian:~$ cat fichier_resultat

dlfk
kdkf
<SOURCE>
test-test-test
</SOURCE>




lami20j@debian:~$

[Jedai]

Ben, ni un ni l'autre.
Il veux écrire avant les 9 caractères de la fin de fichier (en fait avant </SOURCE>)

Oui, c'est ce qu'on appellerait "insérer" du texte avant les 9 derniers caractères...

--
Jedaï

[lami20j]

Oui, c'est ce qu'on appellerait "insérer" du texte avant les 9 derniers caractères...

--
Jedaï

Oui, comme ça t'est plus clair puisque ta phrase que j'ai cité était plutôt ambiguë (enfin pour moi)

insérer dans le fichier 9 caractères avant la fin

Moi j'ai lu que j'insère 9 caractères avant la fin.

Comme il parle de l'insertion à une certaine position dans le fichier (on peut dire une assertion de largeur nulle) j'aurais plutôt formulé comme ça

insérer dans le fichier, dans la position qui précède les 9 caractères avant la fin