De l'aide pour vos programmes et scripts en Perl

parcourt d'un fichier xml avec du perl.

J'ai en effet installé les deux module XML::dom et XML::Grove pour essaiyer mais rien ne se passe comme je souhaite:

mon fichier .xml est le suivant :




EST
New
CCACTCCTAAAATAACC
........
EST
bad
CCACATCCCGAATAACC




je dois parcourir ce fichier et recuperer chaque contenu de balise sequence pour faire des test sur ma base.

Voici mon script:
/usr/bin/perl -w
use strict;
use XML::DOM;
my $parser = new XML::DOM::Parser;
die "I need an XML file as first argument" unless $ARGV[0];
my $doc = $parser->parsefile ($ARGV[0]);
my $node;
my $Value;
sub parcours {
$node = shift;
print "Start Node ". $node->getNodeName ."\n";
if( $node->getNodeName eq "#text" ){
print " $Value: ". $node->getData ."\n";
}
for my $kid ($node->getChildNodes) { parcours($kid); }
print "End Node ". $node->getNodeName ."\n";
#
}


# On commence avec l'élément racine
parcours( $doc->getDocumentElement );

J'ai du mal a recuper que les contenu de sequence et aussi je ne vois pas quel est l'intertet de XML::dom exactement dans ce cas si je dois utiliser des expression regulire pour recuper le contenu de mes balises sequence/ merci d'avance

Alerter Rezoweb si ce message est illégal