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

  FORUM HardWare.fr
  Programmation
  Perl

  perl + xml::treebuilder

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

perl + xml::treebuilder

n°2222447
rim_enis
j'aime ENIS
Posté le 17-03-2014 à 08:22:59  profilanswer
 

Bonjour Tout le monde,
Je débute en perl ,  
j'ain un fichier sous cette forme :  
حَتَّى Mot-Outil  
شَيْ Negation  
رَاهُو Mot-Outil  
بِاللَاهِي Marqueur-Politesse  
يْعَيْشِكْ Marqueur-Politesse  
شُوفْلِي Demande  
وَ Coordination  
إِلَّا Mot-Outil  
إِبْعَثْنِي Marqueur-Envoyer  
لِشْكُونْ Outil-Question  
يْحِلِّي Marqueur-Ouvrir  
مُشْكِلْتِي Marqueur-Probleme  
شُوفْ Marqueur-Voir  
 
et ma base prend la forme suivante :  
<mot>
<synonyme> مَكْتَبْ</synonyme>
<etiquette>Mot-Objet</etiquette>
</mot>
 
<mot>
<synonyme> عْمِلْتْ</synonyme>
<etiquette>Marqueur-Faire</etiquette>
</mot>
 
<mot>
<synonyme> الشَافْ</synonyme>
<etiquette>Mot-Chef</etiquette>
</mot>
 
<mot>
<synonyme> فَسَّرْلِي</synonyme>
<etiquette>Marqueur-Expliquer</etiquette>
</mot>
 
 
mon but est d'extraire tous les Y qui ont une etiquette X voila mon code :
 

Code :
  1. use strict;
  2. use warnings;
  3. use autodie;
  4. use XML::TreeBuilder;
  5. my %h1;
  6. my $tree = XML::TreeBuilder->new();
  7. $tree->parse_file('/home/hp/Bureau/Master/fic2.xml');
  8. my @mots = $tree->find('mot');
  9. foreach (@mots) {
  10. my ($synonyme, $etiquette);
  11. foreach ($_->descendants()) {
  12.    my $tag = $_->tag();
  13.    if ($tag ~~ "synonyme" ) {
  14.      $synonyme = ($_->content_list())[0];
  15.    }
  16.    if ($tag ~~ "etiquette" ) {
  17.      $etiquette = ($_->content_list())[0];
  18.      $h1{$synonyme} = $etiquette;
  19.    }
  20. }
  21. }
  22. $tree->delete;
  23. open my $fh,  "<:utf8", '/home/hp/Bureau/Master/toto.txt';
  24. open my $fh1, ">:utf8", '/home/hp/Bureau/Master/resultatML.txt';
  25. open my $fh2, ">:utf8", '/home/hp/Bureau/Master/essai10.txt';
  26. my $linenum = 0;
  27. my (@bloc, @words);
  28. foreach(<$fh> ) {
  29. unless ($linenum++ or not /^\x{feff}/) {
  30.    s/^\x{feff}// ;
  31. }
  32. if (/^\s*$/) {
  33.    if (0+@bloc) {
  34.  
  35.  #print $fh2 join(" + ", @bloc), "\n";
  36.      @bloc = ();
  37.    }
  38. }
  39. #sinon
  40. else {
  41. #On vire les espaces en début et en fin
  42.    s/^\s+|\s+$//g;
  43. #On découpe la ligne comme des mots séparés par des espaces
  44.    @words = split /\s+/;
  45.    if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
  46. if  ( $h1{$words[0]} ~~ "Mot-Chef" ) {
  47.        push @bloc, "$words[0]\n";
  48.    }
  49.    }
  50.    else {
  51.      # push @bloc, "???";
  52.    }
  53. }
  54. }
  55. if (0+@bloc) {
  56. print $fh2 join("\n", @bloc), "\n";
  57. }
  58. close $fh;


 
le problème c'est que je ne sais pas pkoi il y a des mots qui possède comme etiquette "Mot-Chef" mais qui n'apparaissent pas dans mon fichier resultat !!
plz si quelqu'un peut m'aider je serais très reconnaissante !!!!

mood
Publicité
Posté le 17-03-2014 à 08:22:59  profilanswer
 


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

  perl + xml::treebuilder

 

Sujets relatifs
Faire un include d'un drive en perl[perl]Aide pour l'installation d'un logiciel permettant le perl (noob)
[Résolu] Export données en perlperl + xml
[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
Plus de sujets relatifs à : perl + xml::treebuilder


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