Discussion :

[Ftina]

Je travaille sur des fichiers arabes, je veux supprimer toutes les lignes commençant par le mot ":وقال"
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
 
 
    #!/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 ($_ =~ /^":وقال"/)
 
{
$_ = "";
}
 
chomp $_;
}
 
 
foreach (@save)
{
print $fh1 $_."\n" if ($_);
}

mais j'ai eu le même texte comme résultat, si quelqu'un peut m'aider à corriger l'expression régulière ?

[disedorgue]

Bonjour,

Es-tu sure que les guillemets font partie de la recherche ?

[Ftina]

j'ai corrigé l'erreur, effectivement les "" ne font pas partie de la recherche, une autre question, est ce vous savez comment supprimer des lignes ne contenant pas :

[disedorgue]

Je ne sais pas si la question est complète, je vais donc supposer que l'on ne doit pas prendre en compte les ligne qui n'ont pas le caractère ":" ...
En fait, il est plus simple de faire l'inverse, on fait, si la ligne contient un caractère ":", exemple basique:

Code :

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

1
2
3
4
$ echo "toto:titi" | perl -ne 'print if(/:/)'
toto:titi
$ echo "toto_titi" | perl -ne 'print if(/:/)'
$

PS: ici le "$" en début de ligne est le prompt de mon shell.