Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2355 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  perl + xml

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

perl + xml

n°2214530
rim_enis
j'aime ENIS
Posté le 27-12-2013 à 23:37:06  profilanswer
 

malheureusement j'ai toujours des problèmes avec perl et j'ai besoin enormement de votre aide ..
 
j'ai codé ça :  
 
Code :
 
    use strict;
    use warnings;
    use autodie;
    use XML::TreeBuilder;
    my %h1;
    my $tree = XML::TreeBuilder->new();
    $tree->parse_file('/home/hp/Bureau/Master/fic2.xml');
    my @mots = $tree->find('mot');
    foreach (@mots) {
            s/^\s+|\s+$//g;
            next if (/^$/);
    my ($synonyme, $etiquette);
    foreach ($_->descendants()) {
       my $tag = $_->tag();
       if ($tag ~~ "synonyme" ) {
         $synonyme = ($_->content_list())[0];
            next if (ref($synonyme));
            $synonyme =~ s/^\s+|\s+$//g;
            next if ($synonyme ~~ /^$/);
       }
       if ($tag ~~ "etiquette" ) {
         $etiquette = ($_->content_list())[0];
        next if (ref($etiquette));
            $etiquette =~ s/^\s+|\s+$//g;
            next if ($etiquette ~~ /^$/);
         $h1{$synonyme} = $etiquette;
       }
    }
    }
    $tree->delete;
    my %h2;
    $tree = XML::TreeBuilder->new();
    $tree->parse_file('/home/hp/Bureau/Master/fic3.xml');
    my @classes = $tree->find('classe');
    foreach (@classes) {
    s/^\s+|\s+$//g;
            next if (/^$/);
    #my $synonyme = $_->{'synonyme'};
           # next if (ref($synonyme));
    my ($nom, $etiquette);
    foreach ($_->descendants()) {
       my $tag = $_->tag();
       if ($tag ~~ "nom" ) {
         $nom = ($_->content_list())[0];
    next if (ref($nom));
            $nom =~ s/^\s+|\s+$//g;
            next if ($nom ~~ /^$/);
       }
       if ($tag ~~ /^etiquette\d+$/) {
         $etiquette = ($_->content_list())[0];
    next if (ref($etiquette));
            $etiquette =~ s/^\s+|\s+$//g;
            next if ($etiquette ~~ /^$/);
         $h2{$etiquette}= $nom;
       }
    }
    }
    $tree->delete;
    open my $fh,  "<:utf8 ", '/home/hp/Bureau/Master/sortie2.txt';
    open my $fh1, ">:utf8", '/home/hp/Bureau/Master/sortie3.txt';
    my $linenum = 0;
    my (@bloc, @words);
    my $Appelation="";
    my $Obligation="";
    my $Ville="";
    my $Comparaison="";
    my $MotOutil="";
    my $AutreMots="";
    my $Autre="";
    my $Disponibilite="";
    my $Nombre="";
    my $Annees="";
    my $MoyenTransport="";
    my $Action="";
    my $Etat="";
    my $Certitude="";
    my $Jure="";
    my $Demande="";
    my $Politesse="";
    my $OutilQuestion="";
    my $Lieu="";
    my $Amorce="";
    my $Salutation="";
    my $TypeTrain="";
    my $ClasseTrain="";
    my $Mois="";
    my $Jour="";
    my $Horaires="";
    my $Nomination="";
    my $Hesitation="";
    my $Reponse="";
    my $Monnaie="";
    my $Pronom="";
    my $Quantite="";
    my $Promotion="";
    my $Billet="";
    my $Voyageur="";
    my $Carte="";
    my $Possibilite="";
           
    foreach(<$fh> ) {
    unless ($linenum++ or not /^\x{feff}/) {
       s/^\x{feff}// ;
    }
    if (/^\s*$/) {
       if (0+@bloc) {
    #print $fh1 join(" ", @bloc), "\n";
         @bloc = ();
       }
    }
    else {
    chomp;
       s/^\s+|\s+$//g;
       @words = split /\s+/;
       if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
     
    if ($h2{$h1{$words[0]}} ~~ "Appelation" ) {
       
    $Appelation .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Obligation" ) {
       
    $Obligation .= " $words[0]";
    }  
    if ($h2{$h1{$words[0]}} ~~ "Ville" ) {
       
    $Ville .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Comparaison" ) {
       
    $Comparaison .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Mot-Outil" ) {
       
    $MotOutil .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Autre-Mots" ) {
       
    $AutreMots .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Autre" ) {
       
    $Autre .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Disponibilite" ) {
       
    $Disponibilite .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Nombre" ) {
       
    $Nombre .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Annees" ) {
       
    $Annees .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Moyen-Transport" ) {
       
    $MoyenTransport .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Possibilite" ) {
       
    $Possibilite .= " $words[0]";
    }  
    if ($h2{$h1{$words[0]}} ~~ "Action" ) {
       
    $Action .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
       
    $Etat .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Certitude" ) {
       
    $Certitude .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Jure" ) {
       
    $Jure .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Demande" ) {
       
    $Demande .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Politesse" ) {
       
    $Politesse .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Outil-Question" ) {
       
    $OutilQuestion .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
       
    $Etat .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
       
    $Etat .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Lieu" ) {
       
    $Lieu .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Amorce" ) {
       
    $Amorce .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Salutation" ) {
       
    $Salutation .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Type-Train" ) {
       
    $TypeTrain .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Classe-Train" ) {
       
    $ClasseTrain .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Mois" ) {
       
    $Mois .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Jour" ) {
       
    $Jour .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Horaires" ) {
       
    $Horaires .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Nomination" ) {
       
    $Nomination .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Hesitation" ) {
       
    $Hesitation .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Reponse" ) {
       
    $Reponse .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Monnaie" ) {
       
    $Monnaie .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Pronom" ) {
       
    $Pronom .= " $words[0]";
    }
       
    }
    if ($h2{$h1{$words[0]}} ~~ "Quantite" ) {
       
    $Quantite .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Promotion" ) {
       
    $Promotion .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Billet" ) {
       
    $Billet .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Voyageur" ) {
       
    $Voyageur .= " $words[0]";
    }
    if ($h2{$h1{$words[0]}} ~~ "Carte" ) {
       
    $Carte .= " $words[0]";
    }
    }
    }
    push @bloc, "  Appelation ".$Appelation;
    push @bloc, "\n";
    push @bloc, "Obligation ".$Obligation;
    push @bloc, "\n";
    push @bloc, "Ville ".$Ville;
    push @bloc, "\n";
    push @bloc, "Comparaison ".$Comparaison;
    push @bloc, "\n";
    push @bloc, "Mot-Outil ".$MotOutil;
    push @bloc, "\n";
    push @bloc, "Autre-Mots ".$AutreMots;
    push @bloc, "\n";
    push @bloc, "Autre ".$Autre;
    push @bloc, "\n";
    push @bloc, "Disponibilite ".$Disponibilite;
    push @bloc, "\n";
    push @bloc, "Nombre ".$Nombre;
    push @bloc, "\n";
    push @bloc, "Annees ".$Annees;
    push @bloc, "\n";
    push @bloc, "Moyen-Transport ".$MoyenTransport;
    push @bloc, "\n";
    push @bloc, "Action ".$Action;
    push @bloc, "\n";
    push @bloc, "Etat ".$Etat;
    push @bloc, "\n";
    push @bloc, "Certitude ".$Certitude;
    push @bloc, "\n";
    push @bloc, "Jure ".$Jure;
    push @bloc, "\n";
    push @bloc, "Demande ".$Demande;
    push @bloc, "\n";
    push @bloc, "Politesse ".$Politesse;
    push @bloc, "\n";
    push @bloc, "Outil-Question ".$OutilQuestion;
    push @bloc, "\n";
    push @bloc, "Lieu ".$Lieu;
    push @bloc, "\n";
    push @bloc, "Amorce ".$Amorce;
    push @bloc, "\n";
    push @bloc, "Salutation ".$Salutation;
    push @bloc, "\n";
    push @bloc, "Type-Train ".$TypeTrain;
    push @bloc, "\n";
    push @bloc, "Classe-Train ".$ClasseTrain;
    push @bloc, "\n";
    push @bloc, "Mois ".$Mois;
    push @bloc, "\n";
    push @bloc, "Jour ".$Jour;
    push @bloc, "\n";
    push @bloc, "Horaires ".$Horaires;
    push @bloc, "\n";
    push @bloc, "Nomination ".$Nomination;
    push @bloc, "\n";
    push @bloc, "Hesitation ".$Hesitation;
    push @bloc, "\n";
    push @bloc, "Reponse ".$Reponse;
    push @bloc, "\n";
    push @bloc, "Monnaie ".$Monnaie;
    push @bloc, "\n";
    push @bloc, "Pronom".$Pronom;
    push @bloc, "\n";
    push @bloc, "Quantite ".$Quantite;
    push @bloc, "\n";
    push @bloc, "Promotion ".$Promotion;
    push @bloc, "\n";
    push @bloc, "Billet ".$Billet;
    push @bloc, "\n";
    push @bloc, "Voyageur ".$Voyageur;
    push @bloc, "\n";
    push @bloc, "Carte ".$Carte;
    push @bloc, "\n";
    if (0+@bloc) {
    print $fh1 join("  ", @bloc), "\n";
    }
 
 
 
avec fic2.xml ===>
<mot>
<synonyme>حَبْ</synonyme>
<etiquette>Marqueur-Vouloir</etiquette>
</mot>
<mot>
<synonyme>شْتَعْمِلْ</synonyme>
<etiquette>Marqueur-Faire</etiquette>
</mot>
<mot>
<synonyme>الوَالْدَةْ</synonyme>
<etiquette>Nomination</etiquette>
</mot>
 
 
fic3.xm==>
 
<classe>
<nom>Ville</nom>
<etiquette1>Destination-Station</etiquette1>
<etiquette2>Station</etiquette2>
<etiquette3>Stations</etiquette3>
</classe>
 
 
<classe>
<nom>Comparaison</nom>
<etiquette1>Comparatif</etiquette1>
<etiquette2>Comparaison</etiquette2>
<etiquette3>Marqueur-Comparaison</etiquette3>
</classe>
 
<classe>
<nom>Mot-Outil</nom>
<etiquette1>Mot-Outil</etiquette1>
<etiquette2>Mot</etiquette2>
<etiquette3>Coordination</etiquette3>
</classe>
 
 
sortie2.txt ===>
 
 
 
پْرِسْكْ
يْعَيِّشْ-بُوكْ
تْوَلِّي
بْعَشْرَةْ
رَاهُو
إِيهْ
تِي
طَالَعْ
بِطَاقِ
 
 
le but de programme est : pour chaque classe se trouvant ds fic3.xml je vais lui associer tous les dont leurs etiquette appartient à cette classe ( l'etiquette de la base fic2.xml çàd :  
 
nameclass1 word1 word2 ...
 
le problème est qu'il y a des mots dans sortie2.txt qui ne figure pas ds mon résultat final !!!  
pouvez vous m'aider SVP !!

mood
Publicité
Posté le 27-12-2013 à 23:37:06  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  perl + xml

 

Sujets relatifs
[Perl] Créer un graph RRD avec RRDTool::OO[Résolu][Perl] XML::DOM Comment avoir une belle indentation?
split + perlperl tk getOpenFile
[PERL] Probleme avec module Chart::Gnuplotperl + TK
[Perl] CGI qui parse le STDIN n'importe commentperl + xml
[Perl] Utilisation correcte de timeout_callPréprod/Prod, cpan, activestate, intégration librairies
Plus de sujets relatifs à : perl + xml


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR