comparaison string perl

comparaison string perl - Perl - Programmation

Marsh Posté le 11-02-2017 à 21:15:12    

Bonsoir à tous,

 

c'est toujours avec les fichiers arabes... donc je suis en train de comparer deux mots, voilà le code que je fait

Code :
  1. chomp($tab[$i]);
  2. if($tab[$i] =~ 'مفرد')
  3. {
  4.  
  5. $singularForm= $tab[$i+1];
  6. last;
  7. }


avec ce code il me donne des résultats mais parfois faux vue qu'il compare tous les mots contenant la chaine مفرد
 
mais si je change

Code :
  1. if($tab[$i] eq 'مفرد')

il y a aucun  résultat à afficher !!!!
qu'elle est le problème SVP ?


Message édité par mouda le 11-02-2017 à 21:20:04
Reply

Marsh Posté le 11-02-2017 à 21:15:12   

Reply

Marsh Posté le 11-02-2017 à 21:35:01    

Une histoire de blancs autour de ton mot dans $tab[$i]?
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 11-02-2017 à 21:40:02    

gilou a écrit :

Une histoire de blancs autour de ton mot dans $tab[$i]?


 

Code :
  1. chomp($tab[$i])


ne  fait pas l'affaire? si non j'ai même testé avec ça  

Code :
  1. my $line = shift @tab;
  2. $line =~ s/^\x{ef}\x{bb}\x{bf}//;
  3. unshift @tab, $line;
  4. map {chomp; s/(^\s*|\s*$)//g} @tab;


mais tjrs le même pblme !!


Message édité par mouda le 11-02-2017 à 21:41:13
Reply

Marsh Posté le 12-02-2017 à 16:51:26    

Code :
  1. if ($tab[$i] =~ 'مفرد') {
  2.   if  ($tab[$i] eq 'مفرد') {
  3.   }
  4.   else {
  5.   # c'est la qu'il faut que tu testes pourquoi il y a pas egalite
  6.   }
  7. }


 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

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