Perl

Formulaire Perl/CGI générant du XML

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Formulaire Perl/CGI générant du XML

henri_kuy

Bonjour,

Je me permets de solliciter votre aide et vos avis.
Je dois faire un projet qui me facilite la saisie des stratégies de sauvegarde car actuellement, je le fais manuellement sous Excel. Ayant l'habitude de faire des formulaires sous PHP avec une base MySQL, on m'a imposé de faire ce projet en Perl/CGI générant un fichier XML comme résultat (je n'ai aucune connaissance de base sur ces derniers langages).
Donc l'outil que je veux développer, il y a un formulaire pour saisir un nouveau serveur avec sa stratégie. Le résultat de la saisie va générer un fichier XML, il peut être consulter (donc je dois le parser) et il peut aussi être mis-à-jour.
On m'a conseillé l'API XML::Twig avec le tutorial http://xmltwig.com/ mais je ne comprends pas grand chose.
Pensez-vous qu'il est possible, à l'aide d'un formulaire, d'arriver à générer ce résultat ?

Code :

<?xml version="1.0"?>
<tinaBackup>
<host>
<name>freo056s</name>
<catalog>cat_freo056s</catalog>
<pool>
<daily>
<quot1>AJ1245L1</quot1>
<quot2>AJ5689L1</quot2>
</daily>
<weekly>
<h1>
<hebd11>AJ2356L1</hebd11>
<hebd12>AJ1478L1</hebd12>
</h1>
<h2>
<hebd21>AJ8521L1</hebd21>
<hebd22>AJ0210L1</hebd22>
</h2>
<h3>
<hebd31>AJ6589L1</hebd31>
<hebd32>AJ0001L1</hebd32>
</h3>
<h4>
<hebd41>AJ5555L1</hebd41>
<hebd42>AJ5210L1</hebd42>
</h4>
<h5>
<hebd51>AJ7896L1</hebd51>
<hebd52>AJ6987L1</hebd52>
</h5>
</weekly>
<monthly>
<m1>
<mens11>AJ1020L1</mens11>
<mens12>AJ0314L1</mens12>
</m1>
<m2>
<mens21>AJ9632L1</mens21>
<mens22>AJ4102L1</mens22>
</m2>
<m3>
<mens31>AJ5541L1</mens31>
<mens32>AJ4413L1</mens32>
</m3>
</monthly>
<annually>
<year1>AJ1548L1</year1>
<year2>AJ1948L1</year2>
</annually>
<manually>
<test1>AJ4613L1</test1>
<test2>AJ0274L1</test2>
</manually>
<spare>
<spare1>AJ4652L1</spare1>
<spare2>AJ2580L1</spare2>
</spare>
</pool>
<calendar>
<year>2006</year>
<weeks>
<w1>H1</w1>
<w2>H2</w2>
<w3>H3</w3>
<w4>H4</w4>
<w5>H5</w5>
</weeks>
</calendar>
<comments></comments>
</host>
<host>
<name>freo080s</name>
<catalog>cat_freo080s</catalog>
<pool>
<daily>
<quot1>AJ1201L1</quot1>
<quot2>AJ1235L1</quot2>
</daily>
<weekly>
<h1>
<hebd11>AJ1515L1</hebd11>
<hebd12>AJ1526L1</hebd12>
</h1>
<h2>
<hebd21>AJ8495L1</hebd21>
<hebd22>AJ3265L1</hebd22>
</h2>
<h3>
<hebd31>AJ7894L1</hebd31>
<hebd32>AJ8415L1</hebd32>
</h3>
<h4>
<hebd41>AJ8412L1</hebd41>
<hebd42>AJ8411L1</hebd42>
</h4>
<h5>
<hebd51>AJ8451L1</hebd51>
<hebd52>AJ2595L1</hebd52>
</h5>
</weekly>
<monthly>
<m1>
<mens11>AJ4815L1</mens11>
<mens12>AJ9632L1</mens12>
</m1>
<m2>
<mens21>AJ4815L1</mens21>
<mens22>AJ1202L1</mens22>
</m2>
<m3>
<mens31>AJ1548L1</mens31>
<mens32>AJ4859L1</mens32>
</m3>
</monthly>
<annually>
<year1>AJ1502L1</year1>
<year2>AJ3625L1</year2>
</annually>
<manually>
<test1>AJ4859L1</test1>
<test2>AJ3625L1</test2>
</manually>
<spare>
<spare1>AJ0214L1</spare1>
<spare2>AJ9635L1</spare2>
</spare>
</pool>
<calendar>
<year>2006</year>
<weeks>
<w1>H1</w1>
<w2>H2</w2>
<w3>H3</w3>
<w4>H4</w4>
<w5>H5</w5>
</weeks>
</calendar>
<comments></comments>
</host>
</tinaBackup>

J'ai fais moi même le fichier XML, n'ayant pas de connaissance, je ne sais pas s'il est valide ou pas.
Merci.

Henri

Publicité

Danjer

Salut,

Ca ne ressemble pas trop a ton arbre mais c'est une maniere plutot simple de faire ce que tu veux... enfin dans certaines limites.

- Tu organises ton formulaire,
- Tu remplis ta hash,
- Et tu aura un truc proche de ce que tu veux...

Code :

#!/usr/bin/perl -w
use XML::Simple;
use strict;
my $hash = {
tinaBackup => {
host => {
name => 'freo056s',
catalog => 'cat_freo056s',
pool => {
daily => {
quot1 => 'AJ1245L1',
quot2 => 'AJ5689L1',
},
weekly => {
H1 => {
hebd11 => 'AJ2356L1',
hebd12 => 'AJ1245L1',
},
},
},
},
},
};
print XMLout($hash, KeepRoot => 1, NoAttr => 1);

Message édité par Danjer le 22-07-2006 à 13:12:18

---------------
Cdl, Danjer

FORUM HardWare.fr

Programmation

Perl

Formulaire Perl/CGI générant du XML

Sujets relatifs
Probléme de chargement d'image avec GD et Formulaire	Accès à une valeur de formulaire par l'intermédiaire d'une variable
Quel parseur XML pour une utilisation dans du C++	[Access] SQL direct et formulaire
[Perl] générer une variable grace à une chaine	[asp][1.1] Fichier XML dans un tableau
[MySQL/PHP] problème d'encodage à l'insertion via formulaire	Mon projet XML+XSL
executer un script perl periodiquement	[Access] Zone de liste et doublons dans formulaire
Plus de sujets relatifs à : Formulaire Perl/CGI générant du XML

Page générée en 0.060 secondes