perl + xml::treebuilder

perl + xml::treebuilder - Perl - Programmation

Marsh Posté le 17-03-2014 à 08:22:59    

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;
  6. my %h1;
  7. my $tree = XML::TreeBuilder->new();
  8. $tree->parse_file('/home/hp/Bureau/Master/fic2.xml');
  9. my @mots = $tree->find('mot');
  10. foreach (@mots) {
  11. my ($synonyme, $etiquette);
  12. foreach ($_->descendants()) {
  13.    my $tag = $_->tag();
  14.    if ($tag ~~ "synonyme" ) {
  15.      $synonyme = ($_->content_list())[0];
  16.    }
  17.    if ($tag ~~ "etiquette" ) {
  18.      $etiquette = ($_->content_list())[0];
  19.      $h1{$synonyme} = $etiquette;
  20.    }
  21. }
  22. }
  23. $tree->delete;
  26. open my $fh,  "<:utf8", '/home/hp/Bureau/Master/toto.txt';
  28. open my $fh1, ">:utf8", '/home/hp/Bureau/Master/resultatML.txt';
  30. open my $fh2, ">:utf8", '/home/hp/Bureau/Master/essai10.txt';
  32. my $linenum = 0;
  33. my (@bloc, @words);
  34. foreach(<$fh> ) {
  35. unless ($linenum++ or not /^\x{feff}/) {
  36.    s/^\x{feff}// ;
  37. }
  39. if (/^\s*$/) {
  42.    if (0+@bloc) {
  43.  
  45.  #print $fh2 join(" + ", @bloc), "\n";
  47.      @bloc = ();
  48.    }
  49. }
  51. #sinon
  53. else {
  56. #On vire les espaces en début et en fin
  57.    s/^\s+|\s+$//g;
  58. #On découpe la ligne comme des mots séparés par des espaces
  59.    @words = split /\s+/;
  63.    if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
  67. if  ( $h1{$words[0]} ~~ "Mot-Chef" ) {
  68.        push @bloc, "$words[0]\n";
  69.    }
  74.    }
  75.    else {
  78.      # push @bloc, "???";
  79.    }
  80. }
  81. }
  84. if (0+@bloc) {
  85. print $fh2 join("\n", @bloc), "\n";
  86. }
  87. 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 !!!!

Reply

Marsh Posté le 17-03-2014 à 08:22:59   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed