Discussion :

[goblin]

J'ai un petit problème de print , je cherche comment écrire entre trois ligne

J'ai une amorce de fichier xml

Code :

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

1
2
3
4
5
<?xml version="1.0" encoding="utf-8" ?>
 
<base>
 
</base>

je voudrais écrire des informations entre <base> et </base>

Voici le bout de code qui pose problème

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
sub print_xml
{
  open (FILE, ">>report.xml");
  flock(FILE, 2); #verouillage
  print FILE "\n";
  print FILE "<base>\n";
  print FILE "<hack>\n";
  print FILE "<ip>$ip</ip>\n";
  print FILE "<date>$date</date>\n";
  print FILE "<ref>$ref</ref>\n";
  print FILE "<domain>$domain</domain>\n";
  print FILE "<port>$port</port>\n";
  print FILE "<method>$method</method>\n";
  print FILE "</hack>\n";
  close (FILE);
  flock(FILE, 8); #deverouillage
}

merci de vos réponses

[djibril]

je ne sais pas ce que veut dire flock ! peux tu nous expliquer, est ce une de tes fonctions?
Bref, sinon j'ai remarqué que t'ai écris :

Code :

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

open (FILE, ">>report.xml");

et le >> permet uniquement d'ecrire en fin de fichier et non entre fichier, donc tu ne pourras pas travailler ainsi.
Generalement, lorsqu'on veut remplacer quelque chose dans un fichier, du moins en ce qui me concerne, j'utilise toujours un fichier temporaire toto_temp.txt par exemple.
Et j'y ecris tous les lignes de mon ancien fichier qui ne changent pas ainsi que le changements ou nouvelles lignes. Puis je detruit le fichier original et renomme le fichier temporaire par le nom de l'ancien fichier.
Voilà.
NB: autre conseil aussi, je sais pas les taches que tu dois accomplir, mais du moment ou tu traites du XML, je te conseil d'utiliser une des modules du CPAN.
Bon courage

[goblin]

Flock permet de poser un vérou sur un fichier pour empécher sa modification pendant qu'une autre est en cour pas exemple.

Pour ce qui est de open effectivement une solution tel que celle-ci est plus aproprié

Code :

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

open FICHIER, $fi || die "Unable to open $fi: $!";

Je veut juste remplir mon fichier Xml c'est tout le " traitement " seras fait dans du html grace au Data island , donc pas beoin de module pour le Xml

[Jedai]

Attention, ton dernier code ouvre le fichier en lecture uniquement, tu ne peux plus écrire dedans, pour utiliser la solution proposée par djibril, il faut également ouvrir un fichier temporaire en écriture (avec '>').

--
Jedaï

[djibril]

bonne remarque de jedai 8)
si t'as des soucis sur la manipulation des fichiers, n'hésite pas à regarder la faq qu'on a ecris ainsi que les cours de GLDavid, lien dans ma signature.