Perl/XML Problèmes
MrCanard
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
davlar Messages postés 75 Date d'inscription Statut Membre Dernière intervention -
davlar Messages postés 75 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à parser mes fichiers, les transformer en xml,
en fait je voudrais que ce fichier :
SCHEDULE THBAA#M001
ON Unjour
AT 2005
:
*mon petit com
THBAA#M00100T1
*mon petit com 2
THBAA#M0010300
FOLLOWS M00100T1
END
devienne :
<schedule nom="M001" ON="Unjour" AT="2005">
<job nom="M00100T1" commentaire="mon petit com">
<job nom="M0010300" follows="M00100T1" commentaire="mon petit com 2">
</schedule>
Je n'arrive pas à trouver comment je vais faire ça (en Perl).
Donc si quelqu'un pourrait m'aider ça serait sympa, merci d'avance.
MrCanard
Je cherche à parser mes fichiers, les transformer en xml,
en fait je voudrais que ce fichier :
SCHEDULE THBAA#M001
ON Unjour
AT 2005
:
*mon petit com
THBAA#M00100T1
*mon petit com 2
THBAA#M0010300
FOLLOWS M00100T1
END
devienne :
<schedule nom="M001" ON="Unjour" AT="2005">
<job nom="M00100T1" commentaire="mon petit com">
<job nom="M0010300" follows="M00100T1" commentaire="mon petit com 2">
</schedule>
Je n'arrive pas à trouver comment je vais faire ça (en Perl).
Donc si quelqu'un pourrait m'aider ça serait sympa, merci d'avance.
MrCanard
A voir également:
- Perl/XML Problèmes
- Xml download - Télécharger - Édition & Programmation
- Office xml handler - Télécharger - Traitement de texte
- Driveimage xml - Télécharger - Sauvegarde
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
2 réponses
Voici un exemple a partir d'un CVS
use XML::CSV;
my $file = 'addresses.csv';
my @columns = ('first-name', 'last-name', 'email');
my $csv = XML::CSV->new({column_headings => \@columns});
$csv->parse_doc($file);
$csv->declare_xml({version => '1.0',
standalone => 'yes'});
$csv->print_xml('address.xml',
{file_tag => 'address-book',
parent_tag => 'entry'}
);
A+ Dave
use XML::CSV;
my $file = 'addresses.csv';
my @columns = ('first-name', 'last-name', 'email');
my $csv = XML::CSV->new({column_headings => \@columns});
$csv->parse_doc($file);
$csv->declare_xml({version => '1.0',
standalone => 'yes'});
$csv->print_xml('address.xml',
{file_tag => 'address-book',
parent_tag => 'entry'}
);
A+ Dave
Ah un CSV ^^
Comma-separated values c'est bien ça ?
J'avais cru comprendre CVS je ne comprenais plus comment ca allait m'etre utile ^^
Et tu connais bien le fonctionnement du CSV ?
Par contre le code après me parle plus :)
Merci de ton aide Dave ;)
MrCanard