Bonjour,
 
dans un fichier, je veux supprimer toutes les lignes commençant par le mot :وقال (fichier en arabe),  
voici mon code
 

#!/usr/bin/env perl
    use strict;
    use warnings;
    use autodie;
    use utf8;
 
 
open(my $fh, "<:utf8", '/home/lenovo/Bureau/txt_to_xml/exple.odt') or die "Failed to open file: $!\n";
 
open my $fh1, ">:utf8", '/home/lenovo/Bureau/txt_to_xml/res.txt';
 
 
 
my @save = <$fh>;
#close(FILE);
foreach (@save)
{
 $_ = "" if ($_ =~ /^":وقال"/);
chomp $_;
}
 
 
foreach (@save)
{
print $fh1 $_."\n" if ($_);
}
#close(FILE);

 
Mais pas de résultat correct, y'a t'il quelqu'un qui peut m'aider SVP ?

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
open my $fh,  "<", '/home/lenovo/Bureau/txt_to_xml/exple.odt';
open my $fh1  ">", '/home/lenovo/Bureau/txt_to_xml/res.txt';
while (<$fh> ) {
    s/^":وقال"//;
    print $fh1 $_; # ca marche peut être même avec juste print $fh1; 
}
close $fh1;
close $fh2;

Je n'ai pas testé, car je suis au boulot, mais un truc comme ceci devrait le faire.
 
A+,

Merci beaucoup pour votre réponse gilou, mais ce programme ne donne pas le bon résultat, en fait j'ai changé un peu le teste comme ça :  

if ($_ =~ /^وقال/) 
 
 
    {
    $_ = "";
    }

 
j'ai deux autres questions si bien sûre vous me permettez :  
 
si maintenant j'ai des autres mots à part ":وقال" pour faire le teste , comment je peux modifier l'expression régulière ?  
 
La deuxième question comment je peux supprimer de mon fichier toute ligne ne contenant pas ":" ?
 
Merci d'avance

Bah j'ai résolu le problème, peut re le code n'est pas optimisé mais il me semble qu'il donne des résultats corrects, voici le code

#!/usr/bin/env perl
    use strict;
    use warnings;
    use autodie;
    use utf8;
 
 
open(my $fh, "<:utf8", '/home/lenovo/Bureau/txt_to_xml/exple') or die "Failed to open file: $!\n";
 
open my $fh1, ">:utf8", '/home/lenovo/Bureau/txt_to_xml/res.txt';
 
 
 
my @save = <$fh>;
 
 
foreach (@save)
{
  if ($_ =~ /^وقال/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^وتقول/) 
 
 
    {
    $_ = "";
    }
 
 
 
  if ($_ =~ /^قال/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^تقول/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^باب/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^وقالا/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^يقول/) 
 
 
    {
    $_ = "";
    }
 
  if ($_ =~ /^وأنشد/) 
 
 
    {
    $_ = "";
    }
 
 
  if ($_ =~ /^أنشد/) 
 
 
    {
    $_ = "";
    }
 
 if ($_ =~ /^يقال/) 
 
 
    {
    $_ = "";
    }
 
 if ($_ =~ /^أي/) 
 
 
    {
    $_ = "";
    }
 
 
 
 if ($_ =~ /^ويقال/) 
 
 
    {
    $_ = "";
    }
 
 if ($_ =~ /^سقول/) 
 
 
    {
    $_ = "";
    }
 
 
  if ($_ !~ m/:/) 
 
 
    {
    $_ = "";
    }
 
 
chomp $_;
}
 
 
foreach (@save)
{
print $fh1 $_."\n" if ($_);
}

 
******************************
 
pour supprimer les lignes qui ne contiennent pas deux points cette condition est juste ?  

if ($_ !~ m/:/)

 
 
dans le me contexte pour un fichier de type:  
الأَوْقُ: الثقل؛ يقال: ألقى عليَّ أَوْقَه. وتقول: أما والله لتجدنه عليك ذا أوق
المأفول، من الرجال: الذي لا يجدونه على ما ظنوا به، في القتال وغيره.
الأَفِيقُ: الجلد الذي قد دبغ ولم يُقطع.
 
je veux extraire le premier mot suivi de deux points (en effet je veux traiter seulement les lignes commençant par un seul mot (non pas deux ou plus) suivi de deux points) et la chaine de caractère se trouvant après le deuc points, j'ai essayé ce code mais il traite meme le cas ou ils existent deux mots au début de la ligne

use strict;
use warnings;
use autodie;
 
open(my $fh, "<:utf8", '/home/lenovo/Bureau/txt_to_xml/res.txt') or die "Failed to open file: $!\n";
 
open my $fh1, ">:utf8", '/home/lenovo/Bureau/txt_to_xml/jim.xml';
 
 
 
 
 
while (<$fh> ) {
    if (/^(.*)(:)([^\s])(.*)/)  {
    print $fh1 "<entry form=\"$1\">\n";
    print $fh1 "\t<defs>\n";
    print $fh1 "\t\t<gloss>$3</gloss>\n";
    print $fh1 "\t</defs>\n";
    print $fh1 "</entry>\n\n\n";
    }
}
close $fh1;
close $fh;
 
 
Merci beaucoup d'avance.

Ah! Au boulot j'avais lu trop vite, je croyais que vous vouliez juste supprimer le mot, pas toute la ligne.
Ce que vous voulez, c'est:

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
     
open my $fh,  "<", '/home/lenovo/Bureau/txt_to_xml/exple.odt';
open my $fh1  ">", '/home/lenovo/Bureau/txt_to_xml/res.txt';
while (<$fh> ) {
    next if (/^:وقال/);
    print $fh1 $_; # ca marche peut être même avec juste print $fh1; 
}
close $fh1;
close $fh2;

et pour plusieurs mots possibles en début de ligne a sauter:
next if (/^(وقال|وقال|وتقول|ويقال)/);
J'en ai mis que 4.
 
Pour supprimer les lignes sans : je ferais
next unless (/:/);
 
Pour le reste
 if (/^\s*(.*?)\s*:\s*(.*?)\s*$/)  {  
devrait mettre ce qu'il faut dans $1 et $2.
 
(.*): c'est le comportement par défaut: il va essayer de mettre dans le groupe un maximum de caractères suivis de : donc il va absorber un premier : s'il y en a deux et qu'il s'il matche la suite avec le reste de l'expression régulière
(.*?): c'est le comportement par inverse: il va essayer de mettre dans le groupe un minimum de caractères suivis de : donc il va s’arrêter au premier : s'il matche la suite avec le reste de l'expression régulière
 
 
A+,

Bonjour gilou et merci beaucoup pour vos réponses,  
mais l'expression ne donne pas vraiment ce que je souhaite en effet: si je fait :  

if (/^\s*(.*?)\s*:\s*(.*?)\s*$/)   {
 
 
 
    print $fh1 "<entry form=\"$1\">\n";
    print $fh1 "\t<defs>\n";
    print $fh1 "\t\t<gloss>$2</gloss>\n";
    print $fh1 "\t</defs>\n";
    print $fh1 "</entry>\n\n\n";
    }

 
si j'ai le texte suivant:
الأَوْقُ: الثقل؛  
المأفول، من الرجال: الذي لا يجدونه على ما ظنوا به، في القتال وغيره
الأَفِيقُ: الجلد الذي قد دبغ ولم يُقطع
ونشطت العقدة، إذا جعلتها بأُنشوطة؛ وأنشطها: حلَّها
 
le résultat est;  
<entry form="الأَوْقُ">
 <defs>
  <gloss>الثقل؛</gloss>
 </defs>
</entry>
 
 
<entry form="المأفول، من الرجال">
 <defs>
  <gloss>الذي لا يجدونه على ما ظنوا به، في القتال وغيره.</gloss>
 </defs>
</entry>
 
 
<entry form="الأَفِيقُ">
 <defs>
  <gloss>الجلد الذي قد دبغ ولم يُقطع.</gloss>
 </defs>
</entry>
 
<entry form="ونشطت العقدة، إذا جعلتها بأُنشوطة؛ وأنشطها">
 <defs>
  <gloss>حلَّها.</gloss>
 </defs>
</entry>
 
alors je veux seulement  afficher :
 
<entry form="الأَوْقُ">
 <defs>
  <gloss>الثقل؛</gloss>
 </defs>
</entry>
 
 
 
 
 
<entry form="الأَفِيقُ">
 <defs>
  <gloss>الجلد الذي قد دبغ ولم يُقطع.</gloss>
 </defs>
</entry>
 
 
 

Ah! Une fois de plus, j'avais lu trop vite votre post.
 
Donc vous voulez sauter les lignes ou on a deux mots avant le : et donc un blanc entre les deux mots.
Remplacer le
if (/^\s*(.*?)\s*:\s*(.*?)\s*$/)
par
if (/^\s*(\S*?)\s*:\s*(.*?)\s*$/)
\S représente l’opposé de \s et donc \S* va matcher toute suite de caractère qui ne contient pas de \s
 
A+,

Merci énormément je vais voir ce code

Bonsoir gilou,
 
Je trouve souvent des difficultés avec les expressions régulières ..
donc je veux afficher seulement les lignes qui se termine par un point par exemple : .والعمهوج: الطويلة الجميلة    
 
j'aiessayé ce code :

next unless (/^\s*(\S*?)\s*:\s*(.*?\.{1}$)/);

mais il m'affiche aussi des lignes de cette forme : .والعضدة: التي تجيء من جانب الحوض وهي العضادة من الحوض. وقال العوام العبسي: عضد، يعني جانب الحوض

Elle se termine bien avec un point cette ligne.  
 
A+,