Probleme avec print dans un fichier
J'ai un petit problème de print , je cherche comment écrire entre trois ligne
J'ai une amorce de fichier xml
Code:
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:
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
