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

 
 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

perl + comparaison + xml

n°2206156
rim_enis
j'aime ENIS
Posté le 09-10-2013 à 23:36:24  profilanswer
 

Reprise du message précédent :
gilou plz hel me !!

mood
Publicité
Posté le 09-10-2013 à 23:36:24  profilanswer
 

n°2206169
gilou
Modérateur
Modzilla
Posté le 10-10-2013 à 01:47:05  profilanswer
 

C'est juste un pb d'encodage:
si les fichier en entrée sont en utf8, et que je fais
open(my $fh, "<:utf8", $fname1); au lieu de open(my $fh, $fname1); et pareil pour $fname2, j'obtiens en sortie:


مَا-ثَمَّاشْ وَاحِدْ آخِرْ تَوَّةْ ؟  
 
ثَمَّةْ الحْدَاشْ مْتَاعْ-اللِيلْ  


 
A+,
 
 
 


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2206316
rim_enis
j'aime ENIS
Posté le 10-10-2013 à 20:21:34  profilanswer
 

mais pkoi le résultat est fausse en fait il fait des autre concaténation et ajoute des lignes vides
 
أَيْتْفَضَّلْخُويَا.
 
مْعَوَقْتَاشْبِاللهْالتْرَانْيِمْشِي؟
 
. مَاضِي-سَاعَةْ وَ أَرْبْعَةْ

n°2206335
gilou
Modérateur
Modzilla
Posté le 10-10-2013 à 21:28:34  profilanswer
 

Je ne sais pas trop quel résultat vous voulez obtenir, mais si c'est ce que je pense, alors en remplaçant
foreach (<$fh> ) {
  foreach my $r (@biwords) {
    my $t = $r =~ s/ /-/r;
    if (/$r/) {
      s/$r/$t/g;  
     # print ;
  push @tab, $_;
    }
  }
}
par
foreach (<$fh> ) {
    foreach my $r (@biwords) {
        if (/$r/) {
            my $t = $r;
            $t =~ tr/ /-/;
            s/$r/$t/g;  
        }
    }
    push @tab, $_;
}
ça fera peut être l'affaire.
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2206348
rim_enis
j'aime ENIS
Posté le 10-10-2013 à 22:38:59  profilanswer
 

gilou a écrit :

Bonjour :)
C'est splitté dans le code, simplement l'affichage ne fait rien (pas de saut de ligne après) pour les mots qui ne sont pas dans la base.
C'est très simple à modifier si on veut un saut de ligne systématique.
 

Code :
  1. #! /usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use XML::Simple;
  5. use Encode;
  6. use autodie;
  7. use feature 'unicode_strings';
  9. # en entrée, une reference sur un hash %syn et le nom du fichier xml
  10. # en sortie %syn est rempli avec comme clés et les étiquettes comme valeurs.
  11. sub parseBase ($$) {
  12.   use XML::Simple;
  13.   my $href = shift;
  14.   my $data = XMLin(shift);
  15.   foreach (@{$data->{mot}}) {
  16.     s/^\s+|\s+$//g;
  17.     next if (/^$/);
  18.     my $synonyme = $_->{'synonyme'};
  19.     next if (ref($synonyme));
  20.     $synonyme =~ s/^\s+|\s+$//g;
  21.     next if ($synonyme ~~ /^$/);
  22.     my $etiquette = $_->{'etiquette'};
  23.     next if (ref($etiquette));
  24.     $etiquette =~ s/^\s+|\s+$//g;
  25.     next if ($etiquette ~~ /^$/);
  26.     $$href{$synonyme} = $etiquette;
  27.   }
  28. }
  30. my %syn;
  31. parseBase(\%syn, 'BaseEtiquettes.xml');
  33. open my $fh,  "<:utf8", 'CorpusNettoye.txt';
  34. open my $fh1, ">:utf8", 'toto.txt';
  35. my $linenum = 0;
  36. foreach (<$fh> ) {
  37.   # Si BOM initiale
  38.   unless ($linenum++ or not /^\x{feff}/) {
  39.     s/^\x{feff}// ;
  40.     print $fh1 "\x{feff}";
  41.   }
  42.   my @words = split /(\b|\x{061F}|\x{061B})/;
  43.   foreach (@words) {
  44.     s/^\s+|\s+$//g;
  45.     next if (/^$/);
  46.     next if (/^\r?\n$/);  # élimination des mots vides, retours de ligne, etc
  47.     print $fh1 $_;
  48.     # si le mot figure dans la liste des synonymes
  49.     if ($syn{$_}) {
  50.       print $fh1  " $syn{$_}";
  51.     }
  52.     print $fh1  " \n";  # va splitter à l'affichage pour tous les mots non vides qu'ils soient dans la base ou non
  53.   }
  54. }
  55. close $fh1;
  56. close $fh;


parseBase a aissi été modifié tant que j'y étais afin de tenir compte dee entrées avec du blanc autour: <synonyme>تْفَضَّلْ </synonyme>  et des entrées vides:  <etiquette></etiquette>  
Avec vos données, j'ai maintenant en sortie:

. Point  
أَيْ confirmation  
تْفَضَّلْ politesse  
خُويَا nomination  
مْعَ  
وَقْتَاشْ outil question demande horaire  
بِاللهْ demande  
التْرَانْ marq train  
يِمْشِي marq depart  
؟ Point Interrogation  
. Point  
مَاضِي  
سَاعَةْ  
وَ coordination  
أَرْبْعَةْ nombre  
مَا  
ثَمَّاشْ  
وَاحِدْ  
آخِرْ  
تَوَّةْ  
؟ Point Interrogation  
. Point  
لاَ  
هَاكَ  
هَذَاكَ  
هُوَ  
ثَمَّاشِي  
وَاحِدْ  
آخِرْ  
بَعْدُو  
؟ Point Interrogation  
ثَمَّةْ  
الحْدَاشْ  
مْتَاعْ  
اللِيلْ  
سَلَامُ  
عَلَيْكُمْ  
بِاللهْ demande  
تِكَايْ  
لْتُونِسْ  
بْقَدَّاهْ  
؟ Point Interrogation  
ثْنَاشْ  
وُ  
تْسْعَةْ  
مِيَّةْ  
. Point  
سَلَامُ  
عَلَيْكُمْ  
. Point  
زُوزْ  
زُوزْ  
لْتُونِسْ  
وَقْتَاشْ outil question demande horaire  
يُخْرِجْ  


A vous d'adapter à vos besoins si nécessaire.
 
A+,


 
 
si dans mon fichier j'ai des mots de ce genre : مَاضِي-سَاعَةْ  comment je peux modifier l'expression regulière afin de considérer مَاضِي-سَاعَةْ comme un seul mot et non pas 3 mots  

n°2206352
gilou
Modérateur
Modzilla
Posté le 10-10-2013 à 22:58:32  profilanswer
 

Je pense qu'il faut modifier la regexp du split avec un negative look behind et un negative look ahead
my @words = split /(?<!-)(\b|\x{061F}|\x{061B})(?!-)/;
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2214424
rim_enis
j'aime ENIS
Posté le 25-12-2013 à 17:22:37  profilanswer
 

bonoir gilou ,
 
j'ai encore des problèmes avec perl , merci de m'aider SVP ,
 
voici mon programme perl :  
 

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) {
  12.         s/^\s+|\s+$//g;
  13.         next if (/^$/);
  15. my ($synonyme, $etiquette);
  16. foreach ($_->descendants()) {
  17.    my $tag = $_->tag();
  18.    if ($tag ~~ "synonyme" ) {
  19.      $synonyme = ($_->content_list())[0];
  21.         next if (ref($synonyme));
  22.         $synonyme =~ s/^\s+|\s+$//g;
  23.         next if ($synonyme ~~ /^$/);
  26.    }
  27.    if ($tag ~~ "etiquette" ) {
  28.      $etiquette = ($_->content_list())[0];
  32.     next if (ref($etiquette));
  33.         $etiquette =~ s/^\s+|\s+$//g;
  34.         next if ($etiquette ~~ /^$/);
  38.      $h1{$synonyme} = $etiquette;
  39.    }
  40. }
  41. }
  42. $tree->delete;
  44. my %h2;
  45. $tree = XML::TreeBuilder->new();
  46. $tree->parse_file('/home/hp/Bureau/Master/fic3.xml');
  47. my @classes = $tree->find('classe');
  48. foreach (@classes) {
  50. s/^\s+|\s+$//g;
  51.         next if (/^$/);
  53. #my $synonyme = $_->{'synonyme'};
  54.        # next if (ref($synonyme));
  55. my ($nom, $etiquette);
  56. foreach ($_->descendants()) {
  57.    my $tag = $_->tag();
  58.    if ($tag ~~ "nom" ) {
  59.      $nom = ($_->content_list())[0];
  61. next if (ref($nom));
  62.         $nom =~ s/^\s+|\s+$//g;
  63.         next if ($nom ~~ /^$/);
  65.    }
  66.    if ($tag ~~ /^etiquette\d+$/) {
  67.      $etiquette = ($_->content_list())[0];
  69. next if (ref($etiquette));
  70.         $etiquette =~ s/^\s+|\s+$//g;
  71.         next if ($etiquette ~~ /^$/);
  73.      $h2{$etiquette}= $nom;
  74.    }
  75. }
  76. }
  77. $tree->delete;
  79. open my $fh,  "<:utf8 ", '/home/hp/Bureau/Master/sortie2.txt';
  81. open my $fh1, ">:utf8", '/home/hp/Bureau/Master/sortie3.txt';
  83. my $linenum = 0;
  85. my (@bloc, @words);
  88. my $Appelation="";
  89. my $Obligation="";
  90. my $Ville="";
  91. my $Comparaison="";
  92. my $MotOutil="";
  93. my $AutreMots="";
  94. my $Autre="";
  95. my $Disponibilite="";
  96. my $Nombre="";
  97. my $Annees="";
  98. my $MoyenTransport="";
  99. my $Action="";
  100. my $Etat="";
  101. my $Certitude="";
  102. my $Jure="";
  103. my $Demande="";
  104. my $Politesse="";
  105. my $OutilQuestion="";
  106. my $Lieu="";
  107. my $Amorce="";
  108. my $Salutation="";
  109. my $TypeTrain="";
  110. my $ClasseTrain="";
  111. my $Mois="";
  112. my $Jour="";
  113. my $Horaires="";
  114. my $Nomination="";
  115. my $Hesitation="";
  116. my $Reponse="";
  117. my $Monnaie="";
  118. my $Pronom="";
  119. my $Quantite="";
  120. my $Promotion="";
  121. my $Billet="";
  122. my $Voyageur="";
  123. my $Carte="";
  124. my $Possibilite="";
  125.        
  127. foreach(<$fh> ) {
  128. unless ($linenum++ or not /^\x{feff}/) {
  129.    s/^\x{feff}// ;
  130. }
  132. if (/^\s*$/) {
  134.    if (0+@bloc) {
  136. #print $fh1 join(" ", @bloc), "\n";
  138.      @bloc = ();
  139.    }
  140. }
  142. else {
  143. chomp;
  144.    s/^\s+|\s+$//g;
  145.    @words = split /\s+/;
  147.    if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
  149.  
  150. if ($h2{$h1{$words[0]}} ~~ "Appelation" ) {
  151.    
  153. $Appelation .= " $words[0]";
  156. }
  159. if ($h2{$h1{$words[0]}} ~~ "Obligation" ) {
  160.    
  162. $Obligation .= " $words[0]";
  165. } 
  167. if ($h2{$h1{$words[0]}} ~~ "Ville" ) {
  168.    
  170. $Ville .= " $words[0]";
  173. }
  175. if ($h2{$h1{$words[0]}} ~~ "Comparaison" ) {
  176.    
  178. $Comparaison .= " $words[0]";
  181. }
  183. if ($h2{$h1{$words[0]}} ~~ "Mot-Outil" ) {
  184.    
  186. $MotOutil .= " $words[0]";
  189. }
  191. if ($h2{$h1{$words[0]}} ~~ "Autre-Mots" ) {
  192.    
  194. $AutreMots .= " $words[0]";
  197. }
  198. if ($h2{$h1{$words[0]}} ~~ "Autre" ) {
  199.    
  201. $Autre .= " $words[0]";
  204. }
  206. if ($h2{$h1{$words[0]}} ~~ "Disponibilite" ) {
  207.    
  209. $Disponibilite .= " $words[0]";
  212. }
  214. if ($h2{$h1{$words[0]}} ~~ "Nombre" ) {
  215.    
  217. $Nombre .= " $words[0]";
  220. }
  221. if ($h2{$h1{$words[0]}} ~~ "Annees" ) {
  222.    
  224. $Annees .= " $words[0]";
  227. }
  228. if ($h2{$h1{$words[0]}} ~~ "Moyen-Transport" ) {
  229.    
  231. $MoyenTransport .= " $words[0]";
  234. }
  235. if ($h2{$h1{$words[0]}} ~~ "Possibilite" ) {
  236.    
  238. $Possibilite .= " $words[0]";
  241. } 
  242. if ($h2{$h1{$words[0]}} ~~ "Action" ) {
  243.    
  245. $Action .= " $words[0]";
  248. }
  250. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  251.    
  253. $Etat .= " $words[0]";
  256. }
  259. if ($h2{$h1{$words[0]}} ~~ "Certitude" ) {
  260.    
  262. $Certitude .= " $words[0]";
  265. }
  268. if ($h2{$h1{$words[0]}} ~~ "Jure" ) {
  269.    
  271. $Jure .= " $words[0]";
  274. }
  277. if ($h2{$h1{$words[0]}} ~~ "Demande" ) {
  278.    
  280. $Demande .= " $words[0]";
  283. }
  286. if ($h2{$h1{$words[0]}} ~~ "Politesse" ) {
  287.    
  289. $Politesse .= " $words[0]";
  292. }
  295. if ($h2{$h1{$words[0]}} ~~ "Outil-Question" ) {
  296.    
  298. $OutilQuestion .= " $words[0]";
  301. }
  304. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  305.    
  307. $Etat .= " $words[0]";
  310. }
  313. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  314.    
  316. $Etat .= " $words[0]";
  319. }
  322. if ($h2{$h1{$words[0]}} ~~ "Lieu" ) {
  323.    
  325. $Lieu .= " $words[0]";
  328. }
  331. if ($h2{$h1{$words[0]}} ~~ "Amorce" ) {
  332.    
  334. $Amorce .= " $words[0]";
  337. }
  340. if ($h2{$h1{$words[0]}} ~~ "Salutation" ) {
  341.    
  343. $Salutation .= " $words[0]";
  346. }
  350. if ($h2{$h1{$words[0]}} ~~ "Type-Train" ) {
  351.    
  353. $TypeTrain .= " $words[0]";
  356. }
  358. if ($h2{$h1{$words[0]}} ~~ "Classe-Train" ) {
  359.    
  361. $ClasseTrain .= " $words[0]";
  364. }
  365. if ($h2{$h1{$words[0]}} ~~ "Mois" ) {
  366.    
  368. $Mois .= " $words[0]";
  371. }
  372. if ($h2{$h1{$words[0]}} ~~ "Jour" ) {
  373.    
  375. $Jour .= " $words[0]";
  378. }
  379. if ($h2{$h1{$words[0]}} ~~ "Horaires" ) {
  380.    
  382. $Horaires .= " $words[0]";
  385. }
  386. if ($h2{$h1{$words[0]}} ~~ "Nomination" ) {
  387.    
  389. $Nomination .= " $words[0]";
  392. }
  393. if ($h2{$h1{$words[0]}} ~~ "Hesitation" ) {
  394.    
  396. $Hesitation .= " $words[0]";
  399. }
  400. if ($h2{$h1{$words[0]}} ~~ "Reponse" ) {
  401.    
  403. $Reponse .= " $words[0]";
  406. }
  407. if ($h2{$h1{$words[0]}} ~~ "Monnaie" ) {
  408.    
  410. $Monnaie .= " $words[0]";
  413. }
  414. if ($h2{$h1{$words[0]}} ~~ "Pronom" ) {
  415.    
  417. $Pronom .= " $words[0]";
  420. }
  422.    
  423. }
  424. if ($h2{$h1{$words[0]}} ~~ "Quantite" ) {
  425.    
  427. $Quantite .= " $words[0]";
  430. }
  431. if ($h2{$h1{$words[0]}} ~~ "Promotion" ) {
  432.    
  434. $Promotion .= " $words[0]";
  437. }
  439. if ($h2{$h1{$words[0]}} ~~ "Billet" ) {
  440.    
  442. $Billet .= " $words[0]";
  445. }
  446. if ($h2{$h1{$words[0]}} ~~ "Voyageur" ) {
  447.    
  449. $Voyageur .= " $words[0]";
  452. }
  453. if ($h2{$h1{$words[0]}} ~~ "Carte" ) {
  454.    
  456. $Carte .= " $words[0]";
  459. }
  461. }
  462. }
  464. push @bloc, "  Appelation ".$Appelation;
  465. push @bloc, "\n";
  466. push @bloc, "Obligation ".$Obligation;
  467. push @bloc, "\n";
  468. push @bloc, "Ville ".$Ville;
  469. push @bloc, "\n";
  470. push @bloc, "Comparaison ".$Comparaison;
  471. push @bloc, "\n";
  472. push @bloc, "Mot-Outil ".$MotOutil;
  473. push @bloc, "\n";
  474. push @bloc, "Autre-Mots ".$AutreMots;
  475. push @bloc, "\n";
  476. push @bloc, "Autre ".$Autre;
  477. push @bloc, "\n";
  478. push @bloc, "Disponibilite ".$Disponibilite;
  479. push @bloc, "\n";
  480. push @bloc, "Nombre ".$Nombre;
  481. push @bloc, "\n";
  482. push @bloc, "Annees ".$Annees;
  483. push @bloc, "\n";
  484. push @bloc, "Moyen-Transport ".$MoyenTransport;
  485. push @bloc, "\n";
  486. push @bloc, "Action ".$Action;
  487. push @bloc, "\n";
  488. push @bloc, "Etat ".$Etat;
  489. push @bloc, "\n";
  490. push @bloc, "Certitude ".$Certitude;
  491. push @bloc, "\n";
  492. push @bloc, "Jure ".$Jure;
  493. push @bloc, "\n";
  494. push @bloc, "Demande ".$Demande;
  495. push @bloc, "\n";
  496. push @bloc, "Politesse ".$Politesse;
  497. push @bloc, "\n";
  498. push @bloc, "Outil-Question ".$OutilQuestion;
  499. push @bloc, "\n";
  500. push @bloc, "Lieu ".$Lieu;
  501. push @bloc, "\n";
  503. push @bloc, "Amorce ".$Amorce;
  504. push @bloc, "\n";
  505. push @bloc, "Salutation ".$Salutation;
  506. push @bloc, "\n";
  507. push @bloc, "Type-Train ".$TypeTrain;
  508. push @bloc, "\n";
  509. push @bloc, "Classe-Train ".$ClasseTrain;
  510. push @bloc, "\n";
  511. push @bloc, "Mois ".$Mois;
  512. push @bloc, "\n";
  513. push @bloc, "Jour ".$Jour;
  514. push @bloc, "\n";
  515. push @bloc, "Horaires ".$Horaires;
  516. push @bloc, "\n";
  517. push @bloc, "Nomination ".$Nomination;
  518. push @bloc, "\n";
  519. push @bloc, "Hesitation ".$Hesitation;
  520. push @bloc, "\n";
  521. push @bloc, "Reponse ".$Reponse;
  522. push @bloc, "\n";
  523. push @bloc, "Monnaie ".$Monnaie;
  524. push @bloc, "\n";
  526. push @bloc, "Pronom".$Pronom;
  527. push @bloc, "\n";
  528. push @bloc, "Quantite ".$Quantite;
  529. push @bloc, "\n";
  530. push @bloc, "Promotion ".$Promotion;
  531. push @bloc, "\n";
  532. push @bloc, "Billet ".$Billet;
  533. push @bloc, "\n";
  534. push @bloc, "Voyageur ".$Voyageur;
  535. push @bloc, "\n";
  536. push @bloc, "Carte ".$Carte;
  537. push @bloc, "\n";
  540. if (0+@bloc) {
  543. print $fh1 join("  ", @bloc), "\n";
  545. }


 
avec  
fic2.xml :
 
<mot>
<synonyme>أُصْرُفْ</synonyme>
<etiquette>Marqueur-Payement</etiquette>
</mot>
<mot>
<synonyme>نْخَلِّيكْ</synonyme>
<etiquette>Mot</etiquette>
</mot>
<mot>
<synonyme>تَرْجَعْلي</synonyme>
<etiquette>Mot</etiquette>
</mot>
 
 
fic3.xml  
<classe>
<nom>Certitude</nom>
<etiquette1>Incertitude</etiquette1>
<etiquette2>Certitude</etiquette2>
</classe>
 
 
<classe>
<nom>Jure</nom>
<etiquette1>Jure</etiquette1>
</classe>
 
 
<classe>
<nom>Reponse</nom>
<etiquette1>Confirmation</etiquette1>
<etiquette2>Negation</etiquette2>
<etiquette3>Reponse</etiquette3>
</classe>
 
 
et sortie2.txt :
 
تْفَضَّلْ
خُويَا
مْعَ
وَقْتَاشْ
بِاللهْ
التْرَانْ
يِمْشِي
مَاضِي
سَاعَةْ
وَ
أَرْبْعَةْ
مَا
ثَمَّاشْ
وَاحِدْ
 
 
 
 
mon but est faire un programme dont la sortie est la suivante :  
 
 
nom de classe mot1 mot2 mot3 ....
 
 
avec nom de classe est le nom de classe du fichier fic3.txt et word1 word2 etc sont le mots ds sortie.txt tout en utilisant la base fic2.xml
 
 
mon problème et que je constate qu'il ya des mots ds sortie2 qui non pas classé , peut etre c'est un problème des espaces  
 
 
 
 
 
 
 
 
 

n°2214425
rim_enis
j'aime ENIS
Posté le 25-12-2013 à 17:33:50  profilanswer
 

bonoir gilou ,
 
j'ai encore des problèmes avec perl , merci de m'aider SVP ,
 
voici mon programme perl :  
 

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) {
  12.         s/^\s+|\s+$//g;
  13.         next if (/^$/);
  15. my ($synonyme, $etiquette);
  16. foreach ($_->descendants()) {
  17.    my $tag = $_->tag();
  18.    if ($tag ~~ "synonyme" ) {
  19.      $synonyme = ($_->content_list())[0];
  21.         next if (ref($synonyme));
  22.         $synonyme =~ s/^\s+|\s+$//g;
  23.         next if ($synonyme ~~ /^$/);
  26.    }
  27.    if ($tag ~~ "etiquette" ) {
  28.      $etiquette = ($_->content_list())[0];
  32.     next if (ref($etiquette));
  33.         $etiquette =~ s/^\s+|\s+$//g;
  34.         next if ($etiquette ~~ /^$/);
  38.      $h1{$synonyme} = $etiquette;
  39.    }
  40. }
  41. }
  42. $tree->delete;
  44. my %h2;
  45. $tree = XML::TreeBuilder->new();
  46. $tree->parse_file('/home/hp/Bureau/Master/fic3.xml');
  47. my @classes = $tree->find('classe');
  48. foreach (@classes) {
  50. s/^\s+|\s+$//g;
  51.         next if (/^$/);
  53. #my $synonyme = $_->{'synonyme'};
  54.        # next if (ref($synonyme));
  55. my ($nom, $etiquette);
  56. foreach ($_->descendants()) {
  57.    my $tag = $_->tag();
  58.    if ($tag ~~ "nom" ) {
  59.      $nom = ($_->content_list())[0];
  61. next if (ref($nom));
  62.         $nom =~ s/^\s+|\s+$//g;
  63.         next if ($nom ~~ /^$/);
  65.    }
  66.    if ($tag ~~ /^etiquette\d+$/) {
  67.      $etiquette = ($_->content_list())[0];
  69. next if (ref($etiquette));
  70.         $etiquette =~ s/^\s+|\s+$//g;
  71.         next if ($etiquette ~~ /^$/);
  73.      $h2{$etiquette}= $nom;
  74.    }
  75. }
  76. }
  77. $tree->delete;
  79. open my $fh,  "<:utf8 ", '/home/hp/Bureau/Master/sortie2.txt';
  81. open my $fh1, ">:utf8", '/home/hp/Bureau/Master/sortie3.txt';
  83. my $linenum = 0;
  85. my (@bloc, @words);
  88. my $Appelation="";
  89. my $Obligation="";
  90. my $Ville="";
  91. my $Comparaison="";
  92. my $MotOutil="";
  93. my $AutreMots="";
  94. my $Autre="";
  95. my $Disponibilite="";
  96. my $Nombre="";
  97. my $Annees="";
  98. my $MoyenTransport="";
  99. my $Action="";
  100. my $Etat="";
  101. my $Certitude="";
  102. my $Jure="";
  103. my $Demande="";
  104. my $Politesse="";
  105. my $OutilQuestion="";
  106. my $Lieu="";
  107. my $Amorce="";
  108. my $Salutation="";
  109. my $TypeTrain="";
  110. my $ClasseTrain="";
  111. my $Mois="";
  112. my $Jour="";
  113. my $Horaires="";
  114. my $Nomination="";
  115. my $Hesitation="";
  116. my $Reponse="";
  117. my $Monnaie="";
  118. my $Pronom="";
  119. my $Quantite="";
  120. my $Promotion="";
  121. my $Billet="";
  122. my $Voyageur="";
  123. my $Carte="";
  124. my $Possibilite="";
  125.        
  127. foreach(<$fh> ) {
  128. unless ($linenum++ or not /^\x{feff}/) {
  129.    s/^\x{feff}// ;
  130. }
  132. if (/^\s*$/) {
  134.    if (0+@bloc) {
  136. #print $fh1 join(" ", @bloc), "\n";
  138.      @bloc = ();
  139.    }
  140. }
  142. else {
  143. chomp;
  144.    s/^\s+|\s+$//g;
  145.    @words = split /\s+/;
  147.    if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
  149.  
  150. if ($h2{$h1{$words[0]}} ~~ "Appelation" ) {
  151.    
  153. $Appelation .= " $words[0]";
  156. }
  159. if ($h2{$h1{$words[0]}} ~~ "Obligation" ) {
  160.    
  162. $Obligation .= " $words[0]";
  165. } 
  167. if ($h2{$h1{$words[0]}} ~~ "Ville" ) {
  168.    
  170. $Ville .= " $words[0]";
  173. }
  175. if ($h2{$h1{$words[0]}} ~~ "Comparaison" ) {
  176.    
  178. $Comparaison .= " $words[0]";
  181. }
  183. if ($h2{$h1{$words[0]}} ~~ "Mot-Outil" ) {
  184.    
  186. $MotOutil .= " $words[0]";
  189. }
  191. if ($h2{$h1{$words[0]}} ~~ "Autre-Mots" ) {
  192.    
  194. $AutreMots .= " $words[0]";
  197. }
  198. if ($h2{$h1{$words[0]}} ~~ "Autre" ) {
  199.    
  201. $Autre .= " $words[0]";
  204. }
  206. if ($h2{$h1{$words[0]}} ~~ "Disponibilite" ) {
  207.    
  209. $Disponibilite .= " $words[0]";
  212. }
  214. if ($h2{$h1{$words[0]}} ~~ "Nombre" ) {
  215.    
  217. $Nombre .= " $words[0]";
  220. }
  221. if ($h2{$h1{$words[0]}} ~~ "Annees" ) {
  222.    
  224. $Annees .= " $words[0]";
  227. }
  228. if ($h2{$h1{$words[0]}} ~~ "Moyen-Transport" ) {
  229.    
  231. $MoyenTransport .= " $words[0]";
  234. }
  235. if ($h2{$h1{$words[0]}} ~~ "Possibilite" ) {
  236.    
  238. $Possibilite .= " $words[0]";
  241. } 
  242. if ($h2{$h1{$words[0]}} ~~ "Action" ) {
  243.    
  245. $Action .= " $words[0]";
  248. }
  250. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  251.    
  253. $Etat .= " $words[0]";
  256. }
  259. if ($h2{$h1{$words[0]}} ~~ "Certitude" ) {
  260.    
  262. $Certitude .= " $words[0]";
  265. }
  268. if ($h2{$h1{$words[0]}} ~~ "Jure" ) {
  269.    
  271. $Jure .= " $words[0]";
  274. }
  277. if ($h2{$h1{$words[0]}} ~~ "Demande" ) {
  278.    
  280. $Demande .= " $words[0]";
  283. }
  286. if ($h2{$h1{$words[0]}} ~~ "Politesse" ) {
  287.    
  289. $Politesse .= " $words[0]";
  292. }
  295. if ($h2{$h1{$words[0]}} ~~ "Outil-Question" ) {
  296.    
  298. $OutilQuestion .= " $words[0]";
  301. }
  304. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  305.    
  307. $Etat .= " $words[0]";
  310. }
  313. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  314.    
  316. $Etat .= " $words[0]";
  319. }
  322. if ($h2{$h1{$words[0]}} ~~ "Lieu" ) {
  323.    
  325. $Lieu .= " $words[0]";
  328. }
  331. if ($h2{$h1{$words[0]}} ~~ "Amorce" ) {
  332.    
  334. $Amorce .= " $words[0]";
  337. }
  340. if ($h2{$h1{$words[0]}} ~~ "Salutation" ) {
  341.    
  343. $Salutation .= " $words[0]";
  346. }
  350. if ($h2{$h1{$words[0]}} ~~ "Type-Train" ) {
  351.    
  353. $TypeTrain .= " $words[0]";
  356. }
  358. if ($h2{$h1{$words[0]}} ~~ "Classe-Train" ) {
  359.    
  361. $ClasseTrain .= " $words[0]";
  364. }
  365. if ($h2{$h1{$words[0]}} ~~ "Mois" ) {
  366.    
  368. $Mois .= " $words[0]";
  371. }
  372. if ($h2{$h1{$words[0]}} ~~ "Jour" ) {
  373.    
  375. $Jour .= " $words[0]";
  378. }
  379. if ($h2{$h1{$words[0]}} ~~ "Horaires" ) {
  380.    
  382. $Horaires .= " $words[0]";
  385. }
  386. if ($h2{$h1{$words[0]}} ~~ "Nomination" ) {
  387.    
  389. $Nomination .= " $words[0]";
  392. }
  393. if ($h2{$h1{$words[0]}} ~~ "Hesitation" ) {
  394.    
  396. $Hesitation .= " $words[0]";
  399. }
  400. if ($h2{$h1{$words[0]}} ~~ "Reponse" ) {
  401.    
  403. $Reponse .= " $words[0]";
  406. }
  407. if ($h2{$h1{$words[0]}} ~~ "Monnaie" ) {
  408.    
  410. $Monnaie .= " $words[0]";
  413. }
  414. if ($h2{$h1{$words[0]}} ~~ "Pronom" ) {
  415.    
  417. $Pronom .= " $words[0]";
  420. }
  422.    
  423. }
  424. if ($h2{$h1{$words[0]}} ~~ "Quantite" ) {
  425.    
  427. $Quantite .= " $words[0]";
  430. }
  431. if ($h2{$h1{$words[0]}} ~~ "Promotion" ) {
  432.    
  434. $Promotion .= " $words[0]";
  437. }
  439. if ($h2{$h1{$words[0]}} ~~ "Billet" ) {
  440.    
  442. $Billet .= " $words[0]";
  445. }
  446. if ($h2{$h1{$words[0]}} ~~ "Voyageur" ) {
  447.    
  449. $Voyageur .= " $words[0]";
  452. }
  453. if ($h2{$h1{$words[0]}} ~~ "Carte" ) {
  454.    
  456. $Carte .= " $words[0]";
  459. }
  461. }
  462. }
  464. push @bloc, "  Appelation ".$Appelation;
  465. push @bloc, "\n";
  466. push @bloc, "Obligation ".$Obligation;
  467. push @bloc, "\n";
  468. push @bloc, "Ville ".$Ville;
  469. push @bloc, "\n";
  470. push @bloc, "Comparaison ".$Comparaison;
  471. push @bloc, "\n";
  472. push @bloc, "Mot-Outil ".$MotOutil;
  473. push @bloc, "\n";
  474. push @bloc, "Autre-Mots ".$AutreMots;
  475. push @bloc, "\n";
  476. push @bloc, "Autre ".$Autre;
  477. push @bloc, "\n";
  478. push @bloc, "Disponibilite ".$Disponibilite;
  479. push @bloc, "\n";
  480. push @bloc, "Nombre ".$Nombre;
  481. push @bloc, "\n";
  482. push @bloc, "Annees ".$Annees;
  483. push @bloc, "\n";
  484. push @bloc, "Moyen-Transport ".$MoyenTransport;
  485. push @bloc, "\n";
  486. push @bloc, "Action ".$Action;
  487. push @bloc, "\n";
  488. push @bloc, "Etat ".$Etat;
  489. push @bloc, "\n";
  490. push @bloc, "Certitude ".$Certitude;
  491. push @bloc, "\n";
  492. push @bloc, "Jure ".$Jure;
  493. push @bloc, "\n";
  494. push @bloc, "Demande ".$Demande;
  495. push @bloc, "\n";
  496. push @bloc, "Politesse ".$Politesse;
  497. push @bloc, "\n";
  498. push @bloc, "Outil-Question ".$OutilQuestion;
  499. push @bloc, "\n";
  500. push @bloc, "Lieu ".$Lieu;
  501. push @bloc, "\n";
  503. push @bloc, "Amorce ".$Amorce;
  504. push @bloc, "\n";
  505. push @bloc, "Salutation ".$Salutation;
  506. push @bloc, "\n";
  507. push @bloc, "Type-Train ".$TypeTrain;
  508. push @bloc, "\n";
  509. push @bloc, "Classe-Train ".$ClasseTrain;
  510. push @bloc, "\n";
  511. push @bloc, "Mois ".$Mois;
  512. push @bloc, "\n";
  513. push @bloc, "Jour ".$Jour;
  514. push @bloc, "\n";
  515. push @bloc, "Horaires ".$Horaires;
  516. push @bloc, "\n";
  517. push @bloc, "Nomination ".$Nomination;
  518. push @bloc, "\n";
  519. push @bloc, "Hesitation ".$Hesitation;
  520. push @bloc, "\n";
  521. push @bloc, "Reponse ".$Reponse;
  522. push @bloc, "\n";
  523. push @bloc, "Monnaie ".$Monnaie;
  524. push @bloc, "\n";
  526. push @bloc, "Pronom".$Pronom;
  527. push @bloc, "\n";
  528. push @bloc, "Quantite ".$Quantite;
  529. push @bloc, "\n";
  530. push @bloc, "Promotion ".$Promotion;
  531. push @bloc, "\n";
  532. push @bloc, "Billet ".$Billet;
  533. push @bloc, "\n";
  534. push @bloc, "Voyageur ".$Voyageur;
  535. push @bloc, "\n";
  536. push @bloc, "Carte ".$Carte;
  537. push @bloc, "\n";
  540. if (0+@bloc) {
  543. print $fh1 join("  ", @bloc), "\n";
  545. }


 
avec  
fic2.xml :
 
<mot>
<synonyme>أُصْرُفْ</synonyme>
<etiquette>Marqueur-Payement</etiquette>
</mot>
<mot>
<synonyme>نْخَلِّيكْ</synonyme>
<etiquette>Mot</etiquette>
</mot>
<mot>
<synonyme>تَرْجَعْلي</synonyme>
<etiquette>Mot</etiquette>
</mot>
 
 
fic3.xml  
<classe>
<nom>Certitude</nom>
<etiquette1>Incertitude</etiquette1>
<etiquette2>Certitude</etiquette2>
</classe>
 
 
<classe>
<nom>Jure</nom>
<etiquette1>Jure</etiquette1>
</classe>
 
 
<classe>
<nom>Reponse</nom>
<etiquette1>Confirmation</etiquette1>
<etiquette2>Negation</etiquette2>
<etiquette3>Reponse</etiquette3>
</classe>
 
 
et sortie2.txt :
 
تْفَضَّلْ
خُويَا
مْعَ
وَقْتَاشْ
بِاللهْ
التْرَانْ
يِمْشِي
مَاضِي
سَاعَةْ
وَ
أَرْبْعَةْ
مَا
ثَمَّاشْ
وَاحِدْ
 
 
 
 
mon but est faire un programme dont la sortie est la suivante :  
 
 
nom de classe mot1 mot2 mot3 ....
 
 
avec nom de classe est le nom de classe du fichier fic3.txt et word1 word2 etc sont le mots ds sortie.txt tout en utilisant la base fic2.xml
 
 
mon problème et que je constate qu'il ya des mots ds sortie2 qui non pas classé , peut etre c'est un problème des espaces  
 
 
 
 
 
 
 
 
 

n°2214426
rim_enis
j'aime ENIS
Posté le 25-12-2013 à 17:49:01  profilanswer
 

bonoir gilou ,
 
j'ai encore des problèmes avec perl , merci de m'aider SVP ,
 
voici mon programme perl :  
 

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) {
  12.         s/^\s+|\s+$//g;
  13.         next if (/^$/);
  15. my ($synonyme, $etiquette);
  16. foreach ($_->descendants()) {
  17.    my $tag = $_->tag();
  18.    if ($tag ~~ "synonyme" ) {
  19.      $synonyme = ($_->content_list())[0];
  21.         next if (ref($synonyme));
  22.         $synonyme =~ s/^\s+|\s+$//g;
  23.         next if ($synonyme ~~ /^$/);
  26.    }
  27.    if ($tag ~~ "etiquette" ) {
  28.      $etiquette = ($_->content_list())[0];
  32.     next if (ref($etiquette));
  33.         $etiquette =~ s/^\s+|\s+$//g;
  34.         next if ($etiquette ~~ /^$/);
  38.      $h1{$synonyme} = $etiquette;
  39.    }
  40. }
  41. }
  42. $tree->delete;
  44. my %h2;
  45. $tree = XML::TreeBuilder->new();
  46. $tree->parse_file('/home/hp/Bureau/Master/fic3.xml');
  47. my @classes = $tree->find('classe');
  48. foreach (@classes) {
  50. s/^\s+|\s+$//g;
  51.         next if (/^$/);
  53. #my $synonyme = $_->{'synonyme'};
  54.        # next if (ref($synonyme));
  55. my ($nom, $etiquette);
  56. foreach ($_->descendants()) {
  57.    my $tag = $_->tag();
  58.    if ($tag ~~ "nom" ) {
  59.      $nom = ($_->content_list())[0];
  61. next if (ref($nom));
  62.         $nom =~ s/^\s+|\s+$//g;
  63.         next if ($nom ~~ /^$/);
  65.    }
  66.    if ($tag ~~ /^etiquette\d+$/) {
  67.      $etiquette = ($_->content_list())[0];
  69. next if (ref($etiquette));
  70.         $etiquette =~ s/^\s+|\s+$//g;
  71.         next if ($etiquette ~~ /^$/);
  73.      $h2{$etiquette}= $nom;
  74.    }
  75. }
  76. }
  77. $tree->delete;
  79. open my $fh,  "<:utf8 ", '/home/hp/Bureau/Master/sortie2.txt';
  81. open my $fh1, ">:utf8", '/home/hp/Bureau/Master/sortie3.txt';
  83. my $linenum = 0;
  85. my (@bloc, @words);
  88. my $Appelation="";
  89. my $Obligation="";
  90. my $Ville="";
  91. my $Comparaison="";
  92. my $MotOutil="";
  93. my $AutreMots="";
  94. my $Autre="";
  95. my $Disponibilite="";
  96. my $Nombre="";
  97. my $Annees="";
  98. my $MoyenTransport="";
  99. my $Action="";
  100. my $Etat="";
  101. my $Certitude="";
  102. my $Jure="";
  103. my $Demande="";
  104. my $Politesse="";
  105. my $OutilQuestion="";
  106. my $Lieu="";
  107. my $Amorce="";
  108. my $Salutation="";
  109. my $TypeTrain="";
  110. my $ClasseTrain="";
  111. my $Mois="";
  112. my $Jour="";
  113. my $Horaires="";
  114. my $Nomination="";
  115. my $Hesitation="";
  116. my $Reponse="";
  117. my $Monnaie="";
  118. my $Pronom="";
  119. my $Quantite="";
  120. my $Promotion="";
  121. my $Billet="";
  122. my $Voyageur="";
  123. my $Carte="";
  124. my $Possibilite="";
  125.        
  127. foreach(<$fh> ) {
  128. unless ($linenum++ or not /^\x{feff}/) {
  129.    s/^\x{feff}// ;
  130. }
  132. if (/^\s*$/) {
  134.    if (0+@bloc) {
  136. #print $fh1 join(" ", @bloc), "\n";
  138.      @bloc = ();
  139.    }
  140. }
  142. else {
  143. chomp;
  144.    s/^\s+|\s+$//g;
  145.    @words = split /\s+/;
  147.    if (defined($h1{$words[0]}) and defined($h2{$h1{$words[0]}})) {
  149.  
  150. if ($h2{$h1{$words[0]}} ~~ "Appelation" ) {
  151.    
  153. $Appelation .= " $words[0]";
  156. }
  159. if ($h2{$h1{$words[0]}} ~~ "Obligation" ) {
  160.    
  162. $Obligation .= " $words[0]";
  165. } 
  167. if ($h2{$h1{$words[0]}} ~~ "Ville" ) {
  168.    
  170. $Ville .= " $words[0]";
  173. }
  175. if ($h2{$h1{$words[0]}} ~~ "Comparaison" ) {
  176.    
  178. $Comparaison .= " $words[0]";
  181. }
  183. if ($h2{$h1{$words[0]}} ~~ "Mot-Outil" ) {
  184.    
  186. $MotOutil .= " $words[0]";
  189. }
  191. if ($h2{$h1{$words[0]}} ~~ "Autre-Mots" ) {
  192.    
  194. $AutreMots .= " $words[0]";
  197. }
  198. if ($h2{$h1{$words[0]}} ~~ "Autre" ) {
  199.    
  201. $Autre .= " $words[0]";
  204. }
  206. if ($h2{$h1{$words[0]}} ~~ "Disponibilite" ) {
  207.    
  209. $Disponibilite .= " $words[0]";
  212. }
  214. if ($h2{$h1{$words[0]}} ~~ "Nombre" ) {
  215.    
  217. $Nombre .= " $words[0]";
  220. }
  221. if ($h2{$h1{$words[0]}} ~~ "Annees" ) {
  222.    
  224. $Annees .= " $words[0]";
  227. }
  228. if ($h2{$h1{$words[0]}} ~~ "Moyen-Transport" ) {
  229.    
  231. $MoyenTransport .= " $words[0]";
  234. }
  235. if ($h2{$h1{$words[0]}} ~~ "Possibilite" ) {
  236.    
  238. $Possibilite .= " $words[0]";
  241. } 
  242. if ($h2{$h1{$words[0]}} ~~ "Action" ) {
  243.    
  245. $Action .= " $words[0]";
  248. }
  250. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  251.    
  253. $Etat .= " $words[0]";
  256. }
  259. if ($h2{$h1{$words[0]}} ~~ "Certitude" ) {
  260.    
  262. $Certitude .= " $words[0]";
  265. }
  268. if ($h2{$h1{$words[0]}} ~~ "Jure" ) {
  269.    
  271. $Jure .= " $words[0]";
  274. }
  277. if ($h2{$h1{$words[0]}} ~~ "Demande" ) {
  278.    
  280. $Demande .= " $words[0]";
  283. }
  286. if ($h2{$h1{$words[0]}} ~~ "Politesse" ) {
  287.    
  289. $Politesse .= " $words[0]";
  292. }
  295. if ($h2{$h1{$words[0]}} ~~ "Outil-Question" ) {
  296.    
  298. $OutilQuestion .= " $words[0]";
  301. }
  304. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  305.    
  307. $Etat .= " $words[0]";
  310. }
  313. if ($h2{$h1{$words[0]}} ~~ "Etat" ) {
  314.    
  316. $Etat .= " $words[0]";
  319. }
  322. if ($h2{$h1{$words[0]}} ~~ "Lieu" ) {
  323.    
  325. $Lieu .= " $words[0]";
  328. }
  331. if ($h2{$h1{$words[0]}} ~~ "Amorce" ) {
  332.    
  334. $Amorce .= " $words[0]";
  337. }
  340. if ($h2{$h1{$words[0]}} ~~ "Salutation" ) {
  341.    
  343. $Salutation .= " $words[0]";
  346. }
  350. if ($h2{$h1{$words[0]}} ~~ "Type-Train" ) {
  351.    
  353. $TypeTrain .= " $words[0]";
  356. }
  358. if ($h2{$h1{$words[0]}} ~~ "Classe-Train" ) {
  359.    
  361. $ClasseTrain .= " $words[0]";
  364. }
  365. if ($h2{$h1{$words[0]}} ~~ "Mois" ) {
  366.    
  368. $Mois .= " $words[0]";
  371. }
  372. if ($h2{$h1{$words[0]}} ~~ "Jour" ) {
  373.    
  375. $Jour .= " $words[0]";
  378. }
  379. if ($h2{$h1{$words[0]}} ~~ "Horaires" ) {
  380.    
  382. $Horaires .= " $words[0]";
  385. }
  386. if ($h2{$h1{$words[0]}} ~~ "Nomination" ) {
  387.    
  389. $Nomination .= " $words[0]";
  392. }
  393. if ($h2{$h1{$words[0]}} ~~ "Hesitation" ) {
  394.    
  396. $Hesitation .= " $words[0]";
  399. }
  400. if ($h2{$h1{$words[0]}} ~~ "Reponse" ) {
  401.    
  403. $Reponse .= " $words[0]";
  406. }
  407. if ($h2{$h1{$words[0]}} ~~ "Monnaie" ) {
  408.    
  410. $Monnaie .= " $words[0]";
  413. }
  414. if ($h2{$h1{$words[0]}} ~~ "Pronom" ) {
  415.    
  417. $Pronom .= " $words[0]";
  420. }
  422.    
  423. }
  424. if ($h2{$h1{$words[0]}} ~~ "Quantite" ) {
  425.    
  427. $Quantite .= " $words[0]";
  430. }
  431. if ($h2{$h1{$words[0]}} ~~ "Promotion" ) {
  432.    
  434. $Promotion .= " $words[0]";
  437. }
  439. if ($h2{$h1{$words[0]}} ~~ "Billet" ) {
  440.    
  442. $Billet .= " $words[0]";
  445. }
  446. if ($h2{$h1{$words[0]}} ~~ "Voyageur" ) {
  447.    
  449. $Voyageur .= " $words[0]";
  452. }
  453. if ($h2{$h1{$words[0]}} ~~ "Carte" ) {
  454.    
  456. $Carte .= " $words[0]";
  459. }
  461. }
  462. }
  464. push @bloc, "  Appelation ".$Appelation;
  465. push @bloc, "\n";
  466. push @bloc, "Obligation ".$Obligation;
  467. push @bloc, "\n";
  468. push @bloc, "Ville ".$Ville;
  469. push @bloc, "\n";
  470. push @bloc, "Comparaison ".$Comparaison;
  471. push @bloc, "\n";
  472. push @bloc, "Mot-Outil ".$MotOutil;
  473. push @bloc, "\n";
  474. push @bloc, "Autre-Mots ".$AutreMots;
  475. push @bloc, "\n";
  476. push @bloc, "Autre ".$Autre;
  477. push @bloc, "\n";
  478. push @bloc, "Disponibilite ".$Disponibilite;
  479. push @bloc, "\n";
  480. push @bloc, "Nombre ".$Nombre;
  481. push @bloc, "\n";
  482. push @bloc, "Annees ".$Annees;
  483. push @bloc, "\n";
  484. push @bloc, "Moyen-Transport ".$MoyenTransport;
  485. push @bloc, "\n";
  486. push @bloc, "Action ".$Action;
  487. push @bloc, "\n";
  488. push @bloc, "Etat ".$Etat;
  489. push @bloc, "\n";
  490. push @bloc, "Certitude ".$Certitude;
  491. push @bloc, "\n";
  492. push @bloc, "Jure ".$Jure;
  493. push @bloc, "\n";
  494. push @bloc, "Demande ".$Demande;
  495. push @bloc, "\n";
  496. push @bloc, "Politesse ".$Politesse;
  497. push @bloc, "\n";
  498. push @bloc, "Outil-Question ".$OutilQuestion;
  499. push @bloc, "\n";
  500. push @bloc, "Lieu ".$Lieu;
  501. push @bloc, "\n";
  503. push @bloc, "Amorce ".$Amorce;
  504. push @bloc, "\n";
  505. push @bloc, "Salutation ".$Salutation;
  506. push @bloc, "\n";
  507. push @bloc, "Type-Train ".$TypeTrain;
  508. push @bloc, "\n";
  509. push @bloc, "Classe-Train ".$ClasseTrain;
  510. push @bloc, "\n";
  511. push @bloc, "Mois ".$Mois;
  512. push @bloc, "\n";
  513. push @bloc, "Jour ".$Jour;
  514. push @bloc, "\n";
  515. push @bloc, "Horaires ".$Horaires;
  516. push @bloc, "\n";
  517. push @bloc, "Nomination ".$Nomination;
  518. push @bloc, "\n";
  519. push @bloc, "Hesitation ".$Hesitation;
  520. push @bloc, "\n";
  521. push @bloc, "Reponse ".$Reponse;
  522. push @bloc, "\n";
  523. push @bloc, "Monnaie ".$Monnaie;
  524. push @bloc, "\n";
  526. push @bloc, "Pronom".$Pronom;
  527. push @bloc, "\n";
  528. push @bloc, "Quantite ".$Quantite;
  529. push @bloc, "\n";
  530. push @bloc, "Promotion ".$Promotion;
  531. push @bloc, "\n";
  532. push @bloc, "Billet ".$Billet;
  533. push @bloc, "\n";
  534. push @bloc, "Voyageur ".$Voyageur;
  535. push @bloc, "\n";
  536. push @bloc, "Carte ".$Carte;
  537. push @bloc, "\n";
  540. if (0+@bloc) {
  543. print $fh1 join("  ", @bloc), "\n";
  545. }


 
avec  
fic2.xml :
 
<mot>
<synonyme>أُصْرُفْ</synonyme>
<etiquette>Marqueur-Payement</etiquette>
</mot>
<mot>
<synonyme>نْخَلِّيكْ</synonyme>
<etiquette>Mot</etiquette>
</mot>
<mot>
<synonyme>تَرْجَعْلي</synonyme>
<etiquette>Mot</etiquette>
</mot>
 
 
fic3.xml  
<classe>
<nom>Certitude</nom>
<etiquette1>Incertitude</etiquette1>
<etiquette2>Certitude</etiquette2>
</classe>
 
 
<classe>
<nom>Jure</nom>
<etiquette1>Jure</etiquette1>
</classe>
 
 
<classe>
<nom>Reponse</nom>
<etiquette1>Confirmation</etiquette1>
<etiquette2>Negation</etiquette2>
<etiquette3>Reponse</etiquette3>
</classe>
 
 
et sortie2.txt :
 
تْفَضَّلْ
خُويَا
مْعَ
وَقْتَاشْ
بِاللهْ
التْرَانْ
يِمْشِي
مَاضِي
سَاعَةْ
وَ
أَرْبْعَةْ
مَا
ثَمَّاشْ
وَاحِدْ
 
 
 
 
mon but est faire un programme dont la sortie est la suivante :  
 
 
nom de classe mot1 mot2 mot3 ....
 
 
avec nom de classe est le nom de classe du fichier fic3.txt et word1 word2 etc sont le mots ds sortie.txt tout en utilisant la base fic2.xml
 
 
mon problème et que je constate qu'il ya des mots ds sortie2 qui non pas classé , peut etre c'est un problème des espaces  
 
 
 
 
 
 
 
 
 

mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
recherche expert en PERLcomparaison date
[PERL] SubtitionSockets en Perl
[PERL] Récupérer des données dans un fichier txtComparaison avec drawLine ?!
Comparaison et calculs sur deux fichiers à la foisHelp comparaison de deux fichier perl
[Perl - Débutant]Probleme de comparaison de 2 chaines[Perl] Comment ignorer la casse dans une comparaison ?
Plus de sujets relatifs à : perl + comparaison + xml

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.252 secondes

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