Discussion :

[rimenis]

Bonjour ,
j'ai fait un script perl qui me permet d'associer a chaque mot d'une phrase un etiquette , voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
#! /usr/bin/perl
#use strict;
#use warnings;
use XML::Simple;
use Encode;
use autodie;
use feature 'unicode_strings';
 
# en entrée, une reference sur un hash %syn et le nom du fichier xml
# en sortie %syn est rempli avec comme clés et les étiquettes comme valeurs.
sub parseBase ($$) {
  use XML::Simple;
  my $href = shift;
  my $data = XMLin(shift);
  foreach(@{$data->{mot}}) {
    $href->{$_->{'synonyme'}} = $_->{'etiquette'};
  }
}
 
my %syn;
parseBase(\%syn, 'BaseEtiquettes.xml');
 
 
open my $fh,  "<:utf8", 'in.txt';
open my $fh1, ">:utf8", 'resultat.txt';
 
my $linenum = 0;
 
 
foreach(<$fh> ) {
 
  # Si BOM initiale
 
 
  unless ($linenum++ and /^\x{feff}/) {
    s/^\x{feff}// ;
    print $fh1 "\x{feff}"; 
  }
  my @words = split /\b/;
  foreach (@words) {
    print $fh1 $_; 
 
    # si le mot figure dans la liste des synonymes
    if ($syn{$_}) {
 
     print $fh1  " <$syn{$_}> ";
 
    }
  }
 
 
}
 
close $fh1;
close $fh;

Le problème c'est que l'affichage en sortie est inversé, le résultat est :
أَيْ <Confirmation> تْفَضَّلْ <Politesse> خُويَا <Appelation>

Alors ce que je veux obtenir est :

<Appelation> خُويَا <Politesse> تْفَضَّلْ<Confirmation> أَيْ

Alors c'est quoi le problème !!!!!!!
Merci d'avance

[Lolo78]

Je n'y connais rien à l'utilisation d'arabe en Perl, il semble que tu écrives tes mots de droite à gauche, sans doute parce que c'est de l'arabe.

Peut-être que la fonction reverse peut remettre ta ligne dans l'ordre que tu souhaites.

[dmganges]

Exact Lolo78 !

[ Edit:16-05:28 : MERCI POUR LE DEPLACEMENT ]
AU MODERATEUR : il y a 2 entrées Langages Perl :
- la première
- la deuxième

Donc rimenis, désolé je vois ta question avec retard.

Ceci dit depuis le temps...
tu as un fichier qui contient des mots arabes, l'informatique ayant été créée par des occidentaux pour des occidentaux, lorsque tu lis les mots, ils sont présentés de gauche à droite...

Donc tu mets la phrase, en la découpant, dans un tableau @t

- soit tu parcours ce tableau à l'orientale de N vers 0
$#t étant l'indice du dernier élément ou plus lisible :
le dernier élément est $t[-1]
l'avant dernier $t[-2]
...

- soit tu fais un reverse du tableau et tu le parcours à l'occidentale de 0 vers N :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@s = reverse(@t);

@s contient les mots de @t dans l'ordre inverse

Bon courage !