Voici mon probleme
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
open(FIC,'>test') || die("Pb d’ouverture\n");   
    print FIC ('<?xml version="1.0" encoding="UTF-8"?>' . "\n");
    print FIC ("<!DOCTYPE ficAlimMENESR SYSTEM \"ficAlimMENESR.dtd\">\n");
    print FIC ("<ficAlimMENESR>\n");
#comment inséré mon print (ou printf si il faut) dans ma boucle pour y retrouver tout les informations merci
    while(my $r = $request->fetchrow_hashref) {
        print "  <modifyRequest>\n";
        foreach (sort keys(%$r)) 
        {
            print "    <$_>$r->{$_}</$_>\n";
        }
        print "  </modifyRequest>\n";
    }

   print FIC ("<ficAlimMENESR>\n");
close(FIC);