Comparaison 2 mots en arabe

**rimenis** · 16/04/2013, 20h16

Bonsoir,
Je débute en perl et je sais que le problème a été déja posé mais pour moi j'ai pas reussi à trouver une solution pour comparer 2 mots en arabe ;
voila ce que j'ai fait :

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
 
 
  # supression des retours charriots
chomp( $liste[0]);
chomp($tabMot[3]);
 
# supression des espaces en debut et fin de chaine
$liste[0] =~ s/^\s+|\s+$//;
$tabMot[3] =~ s/^\s+|\s+$//;
 
$string1 = quotemeta $liste[0];
$string2 = quotemeta $tabMot[3];
 
  if( $string1 eq  $string2)
  {
  print "ok";
  }
  else
  {
  print "ouuups";
  }

Normalement ça doit marcher mais malgré que les deux mots sont identiques le resultat est toujours "ouuups" , je sais pas quelle est le problème !!
merci d'avance

**Lolo78** · 16/04/2013, 20h52

Bonjour,

Code :

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

1
2
$liste[0] =~ s/^\s+|\s+$//;
$tabMot[3] =~ s/^\s+|\s+$//;

Ne suffit pas. S'il y a un espace devant, le (ou les) espace(s) derrière ne sera (seront) pas supprimé(s).

Exemple sous le debugger:

Code :

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

1
2
3
4
5
6
 DB<19> $c = " toto "
 
  DB<20> $c =~ s/^\s+|\s+$//;
 
  DB<21> x $c
0  'toto '

Fais plutôt ceci:

Code :

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

1
2
$liste[0] =~ s/^\s+|\s+$//g;
$tabMot[3] =~ s/^\s+|\s+$//g;

Ce qui donne:

Code :

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

1
2
3
4
5
6
  DB<22> $c = " toto "
 
  DB<23> $c =~ s/^\s+|\s+$//g;
 
  DB<24> x $c
0  'toto'

Mais je ne sais évidemment pas si ton problème est là ou ailleurs.

**dragonno** · 17/04/2013, 03h33

Vérifie aussi que les deux mots soient bien identiques, car tu compares un mot en position 0 avec un mot en position 3.

**dmganges** · 17/04/2013, 06h40

Bonjour,
Peu importe la langue,
et le langage, un test compare une chaîne d'octets.

Ajoute :

Code :

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

1
2
3
4
5
6
7
8
my $fichier_Ano = "ano.txt";
open(ANO,">:utf8", $fichier_Ano)
		or die "Erreur sur ouverture fichier Ano : $fichier_Ano : \n\t $! \n";
 
print ANO $string1;
print ANO "\n";
print ANO $string2;
close ANO;

et va voir ce qu'il y a dans ano.txt, éventuellement en hexa, tu en auras le cœur net

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
use strict;
use warnings;
use utf8;
 
my $string1 = "السُّوقِ";
my $string2 = "السُّوقِ";
 
my $fichier_Ano = "ano.txt";
open(ANO,">:utf8", $fichier_Ano)
		or die "Erreur sur ouverture fichier Ano : $fichier_Ano : \n\t $! \n";
 
print ANO $string1;
print ANO "\n";
print ANO $string2;
 
chomp ($string1);
chomp ($string2);
print ANO "\n\n\n";
print ANO $string1;
print ANO "\n";
print ANO $string2;
 
if( $string1 eq  $string2) {
  print "1-ok\n";
} else {
  print "ouuups";
}
 
$string1 = quotemeta $string1;
$string2 = quotemeta $string2;
 
print ANO "\n\n\n";
print ANO $string1;
print ANO "\n";
print ANO $string2;
 
if( $string1 eq  $string2) {
  print "2-ok\n";
} else {
  print "ouuups";
}
 
close ANO;