Discussion :

[rimenis]

Bonjour,
Je suis débutante en perl , j'ai un fichier qui contient des points d'interrogation dont je veux l'éliminer , le problème que le fichier est ecrit en arabe meme les ? sont en arabe et dans mon script j'ai pas pu remplacer ? par un point d'interrogation en arabe..
Merci de m'aider

[Philou67430]

Il faudrait connaitre le code Unicode du point d'interrogation arabe, et utiliser une regexp pour le remplacer :

Code :

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

$chaine =~ s/\N{U+061F}//g;

(code trouvé ici).

[dmganges]

Bonjour,
Philou67430 a déjà répondu mais j'ajoute quelques exemples :

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
 
# Suppression de tous les diacritiques
$Lig =~ s/\x{064E}//go; # Supprime Fatha
$Lig =~ s/\x{064B}//go; # Supprime FathaTan
$Lig =~ s/\x{0650}//go; # Supprime Kasra
$Lig =~ s/\x{064D}//go; # Supprime KasraTan
$Lig =~ s/\x{064F}//go; # Supprime Damma
$Lig =~ s/\x{064C}//go; # Supprime DammaTan
$Lig =~ s/\x{0652}//go; # Supprime Soukoun
$Lig =~ s/\x{0651}//go; # Supprime Chadda
$Lig =~ s/\x{0623}/\x{0627}/go; # Remplace Alif + Hamza PAR Alif
 
# Suppression des voyelles courtes suivies de voyelles longues
$Lig =~ s/\x{064E}\x{0627}/\x{0627}/go; # Supprime Fatha devant Alif ?
$Lig =~ s/\x{064E}\x{0649}/\x{0649}/go; # Supprime Fatha devant Alif marsour ?
$Lig =~ s/\x{0650}\x{064A}/\x{064A}/go; # Supprime Kasra devant Ya ?
$Lig =~ s/\x{064F}\x{0648}/\x{0648}/go; # Supprime Damma devant Oua ? 
 
# Suppression Chadda solaire
# # $Lig =~ s/(\x{0627}\x{0644}..)\x{0651}/$1/go; # Supprime Chadda \x{0651} sur lettre précédé d'une solaire
$Lig =~ s/(\x{0627}\x{0644}\x{062A}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x062A
$Lig =~ s/(\x{0627}\x{0644}\x{062B}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x062B
$Lig =~ s/(\x{0627}\x{0644}\x{062F}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x062F
$Lig =~ s/(\x{0627}\x{0644}\x{0630}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0630
$Lig =~ s/(\x{0627}\x{0644}\x{0631}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0631
$Lig =~ s/(\x{0627}\x{0644}\x{0632}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0632
$Lig =~ s/(\x{0627}\x{0644}\x{0633}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0633
$Lig =~ s/(\x{0627}\x{0644}\x{0634}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0634
$Lig =~ s/(\x{0627}\x{0644}\x{0635}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0635
$Lig =~ s/(\x{0627}\x{0644}\x{0636}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0636
$Lig =~ s/(\x{0627}\x{0644}\x{0637}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0637
$Lig =~ s/(\x{0627}\x{0644}\x{0638}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0638
$Lig =~ s/(\x{0627}\x{0644}\x{0644}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0644
$Lig =~ s/(\x{0627}\x{0644}\x{0646}[\x{064E}\x{0650}|\x{064F}])\x{0651}/$1/go; # Supprime Chadda \x{0651} sur ? \x0646
 
# Suppression Soukoun lunaire
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0627}/\x{0627}\x{0644}\x{0627}/go; # Supprime Soukoun \x{0652} sur ? \x0627
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0628}/\x{0627}\x{0644}\x{0628}/go; # Supprime Soukoun \x{0652} sur ? \x0628
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{062C}/\x{0627}\x{0644}\x{062C}/go; # Supprime Soukoun \x{0652} sur ? \x062C
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{062D}/\x{0627}\x{0644}\x{062D}/go; # Supprime Soukoun \x{0652} sur ? \x062D
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{062E}/\x{0627}\x{0644}\x{062E}/go; # Supprime Soukoun \x{0652} sur ? \x062E
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0639}/\x{0627}\x{0644}\x{0639}/go; # Supprime Soukoun \x{0652} sur ? \x0639
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{063A}/\x{0627}\x{0644}\x{063A}/go; # Supprime Soukoun \x{0652} sur ? \x063A
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0641}/\x{0627}\x{0644}\x{0641}/go; # Supprime Soukoun \x{0652} sur ? \x0641
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0642}/\x{0627}\x{0644}\x{0642}/go; # Supprime Soukoun \x{0652} sur ? \x0642
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0643}/\x{0627}\x{0644}\x{0643}/go; # Supprime Soukoun \x{0652} sur ? \x0643
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0645}/\x{0627}\x{0644}\x{0645}/go; # Supprime Soukoun \x{0652} sur ? \x0645
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0647}/\x{0627}\x{0644}\x{0647}/go; # Supprime Soukoun \x{0652} sur ? \x0647
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{0648}/\x{0627}\x{0644}\x{0648}/go; # Supprime Soukoun \x{0652} sur ? \x0648
$Lig =~ s/\x{0627}\x{0644}\x{0652}\x{064A}/\x{0627}\x{0644}\x{064A}/go; # Supprime Soukoun \x{0652} sur ? \x064A

J'interviens surtout pour attirer ton attention sur le widget Scrolled Text utilisé dans l'interface graphique Tk.
Il y a un petit bug, les chaînes arabes se scindent lorsqu'on pointe dessus avec la souris.

Tu as la discussion ici : http://www.developpez.net/forums/d11...scrolled-text/

De plus les chaînes arabes sont autant décalées vers la gauche qu'elles contiennent de diacritiques (accents).
C'est vraiment dommage car j'ai pu faire des choses très intéressantes avec Perl Tk avec l'aide inestimable de djibril.

Dans le lien suivant, tu trouveras comment passer d'un clavier Français à un clavier Arabe et inversement en programmation perl, les possibilités de ce languanges sont époustouflantes :
http://www.developpez.net/forums/d12...e/#post6970320

Le programme suppose qu'il y a seulement 2 claviers d'installés [FR] et [AR], j'ai supprimé le clavier anglais [EN].
S'il y a plus de 2 claviers sur ton PC, il me semble qu'il existe une API qui au lieu de passer successivement par les claviers installés, prend en compte le code du clavier...

Bonne continuation

[rimenis]

Bonjour ,
Merci beaucoup pour vos réponses , j'ai déjà essayé avec

Code :

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

$chaine =~ s/\N{U+061F}//g;

mais l'expression n'est pas reconnu et une erreur d’exécution s'affiche... Merci de m'aider à résoudre ce problème

[dmganges]

Et avec :
$chaine =~ s/\x{061F}//g;

[rimenis]

Merci
problème résolu

[dmganges]

Alors s'il te plait, fait un clic sur l'icône vert [Résolu] en dessous de tes messages.
Bye

[dmganges]

Bonsoir ,
J'ai essayé de remplacer un virgule arabe par rien en perl , j'ai utilisé ce code : $_ =~ s/\x{060C}//g;
Mais malheureusement c'est pas marché...
Pouvez vous m'aider SVP ?

Effectivement il me semble qu'il y à une erreur dans le tableau précédent.
En voici un autre.

où l'on voit que la virgule (à l'envers de l'alphabet latin) est codée \x{066C}

Merci de poser vos questions techniques sur le forum afin que les réponses profitent au plus grand nombre !

Tous les caractères unicodes
Bonsoir !

[rimenis]

Merci beaucoup

[rimenis]

Malheureusement il ya toujours des problème !!!
pour ces deux ligne :
<Client>.تُونِسْ پْرُومْيَارْ٬أَلاَيْ رُتُورْ ٬أَلاَيْ پْرُومْيَارْ٬ أَلاَيْ رُتُورْ پْرُومْيَارْ٬أَنِي پْرُومْيَارْ أَلاَيْ رُتُورْ</Client>
<Agent>.الخَمْسَةْ، الخَمْسَةْ غِيرْ دَرْجِينْ هَكَاكَ</Agent>

et avec le code

Code :

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

$_ =~ s/\x{066C}/ /g;

Le premier virgule de premier ligne est enlevé alors pour le 2 ème ligne il existe encore !!!!!!!!!!

[dmganges]

Dans le premier message vous avez correctement codé :

Code :

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

 $_ =~ s/\x{060C}//g;

C'est le code du caractère qui convenait pas !
pour remplacer par rien :

Code :

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

1
2
3
 $_ =~ s/\x{066C}//g; 
et non :
$_ =~ s/\x{066C}/ /g;

rien c'est //
/ / il y a un espace !

[dmganges]

En MP :

Alors , parce que peut etre vous n'avez pas vu le post voila
Malheureusement il ya toujours des problème !!!
pour ces deux ligne :
<Client>.تُونِسْ پْرُومْيَارْ٬أَلاَيْ رُتُورْ ٬أَلاَيْ پْرُومْيَارْ٬ أَلاَيْ رُتُورْ پْرُومْيَارْ٬أَنِي پْرُومْيَارْ أَلاَيْ رُتُورْ</Client>
<Agent>.الخَمْسَةْ، الخَمْسَةْ غِيرْ دَرْجِينْ هَكَاكَ</Agent>

et avec le code
Code :Sélectionner tout - Visualiser dans une fenêtre à part
$_ =~ s/\x{066C}/ /g;
Le premier virgule de premier ligne est enlevé alors pour le 2 ème ligne il existe encore !!!!!!!!!!

Parce que dans votre fichier il y a des \x{066C} sur la première ligne et des \x{060C} sur la seconde !!!

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
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Carp;																	# Gestion des erreurs de syntaxe
use File::Copy;														# Pour faire des copy de fichiers
use File::Spec;														# Permet une meilleure gestion des noms des chemins sous tous les OS
 
my $RepBase = 'C:/Arabe/';
my $In_Ara  = File::Spec->catfile( $RepBase, 'Virgule.utf8' );
my $Out_Ara = File::Spec->catfile( $RepBase, 'SansVir.utf8' );
 
open IN, '<:encoding(UTF-8)', $In_Ara
	or die ("Impossible ouvrir  $In_Ara");
open OUT, '>:encoding(UTF-8)', $Out_Ara
	or die ("Impossible ouvrir  $Out_Ara");
 
while ( my $Ligne = <IN> ) {
	$Ligne =~ s/\x{066C}//g;
	$Ligne =~ s/\x{060C}//g;
	print OUT $Ligne;
}
 
close IN;
close OUT;

.تُونِسْ پْرُومْيَارْ٬أَلاَيْ رُتُورْ ٬أَلاَيْ پْرُومْيَارْ٬ أَلاَيْ رُتُورْ پْرُومْيَارْ٬أَنِي پْرُومْيَارْ أَلاَيْ رُتُورْ
.الخَمْسَةْ، الخَمْسَةْ غِيرْ دَرْجِينْ هَكَاكَ

.تُونِسْ پْرُومْيَارْأَلاَيْ رُتُورْ أَلاَيْ پْرُومْيَارْ أَلاَيْ رُتُورْ پْرُومْيَارْأَنِي پْرُومْيَارْ أَلاَيْ رُتُورْ
.الخَمْسَةْ الخَمْسَةْ غِيرْ دَرْجِينْ هَكَاكَ

Il semble qu'il y ait deux codifications de la virgule !

pas de chance

[dmganges]

Bon deux codifications pour une virgule ça me paraissait bizarre, j'en ai pas dormi !

Sur l'image jointe (Clavier AZERTY Egyptien) vous pourrez discerner la différence entre x{060C} et x{066C}

Je mets en citation sinon les caractères arabes ne sont pas affichés correctement :

En arabe classique, je ne connais pas la lettre پ

3 points dessous, d'ailleurs elle n'existe pas sur le clavier AZERTY arabe Egyptien.

Questions :
1 - pour ma petite culture, dans quel dialecte arabe trouve t-on cette lettre ? Son nom ? Sa prononciation ?
2 - quel clavier utilisez-vous ?

MERCI !

[nibroc]

Cette lettre existe en Farsi (ou persan) pour la consonne "p" qui n'existe pas en arabe. Je ne sais pas si elle existe pour d'autres langues ou dialectes.

Bon deux codifications pour une virgule ça me paraissait bizarre, j'en ai pas dormi !

Sur l'image jointe (Clavier AZERTY Egyptien) vous pourrez discerner la différence entre x{060C} et x{066C}

Je mets en citation sinon les caractères arabes ne sont pas affichés correctement :

3 points dessous, d'ailleurs elle n'existe pas sur le clavier AZERTY arabe Egyptien.

Questions :
1 - pour ma petite culture, dans quel dialecte arabe trouve t-on cette lettre ? Son nom ? Sa prononciation ?
2 - quel clavier utilisez-vous ?

MERCI !

[dmganges]

MERCI beaucoup nibroc pour cette précision