Discussion :

[Ftina]

Bonjour,
pourquoi l'expression suivante n'est pas correcte ( l'objectif est de remplacer un retour à la ligne par un espace per exemple si le fichier contient :
bonjour
tout
le
monde

je veux avoir bonjour tout le monde sur une seule ligne
j'ai essayé avec : $_ =~ s/\n//g;
mais ça donne rien !!!!!

[Lolo78]

Bonsoir Ftina,

ce que tu fais peut marcher, mais à certaines conditions.

D'abord, à condition que ta variable $_ contienne bien les lignes:

Code :

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

1
2
3
4
5
 
bonjour
tout
le
monde

mais je doute que ce soit le cas, mais tu ne donnes pas assez de détails pour que je saches ce dont il retourne.

Si tu lis ton fichier ligne par ligne comme on le fait généralement pour des fichiers texte, alors la variable $_ ne contient à un instant t qu'une seule ligne de ce qui précède. Il faut alors s'y prendre légèrement différemment.

Ensuite, même si tu as des variables multilignes, il faut être sûr que le retour à la ligne est bien un "\n". Les fichiers générés sous Windows ne sont pas dans ce cas (ils utilisent deux caractères pour les retours à la ligne) et nécessiteraient plutôt un code dans ce genre:

Code :

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

1
2
 
$string =~ s/[\n\r]+//g;

Mais il faudrait vraiment que tu montres ton code plus complètement pour que l'on comprenne comment tu lis le fichier et ce que tu fais avec. A vue de nez, c'est surtout la première des deux conditions ci-dessus qui n'est pas remplie. Et là, je ne peux t'aider que ti tu donnes plus de détails sur ton programme.

[Ftina]

Bonjour Lolo ,
C'est juste une lecture puis écriture dans un autre fichier comme ça :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
my $FichierResulat = '/home/lenovo/Bureau/MesTravaux/Traitement_corpus/result2';
open( my $FhResultat, '>:utf8', $FichierResulat );
 
 
 
 
 
open(my $fh, "<:utf8", '/home/lenovo/Bureau/MesTravaux/Traitement_corpus/essai') or die "Failed to open file: $!\n";
 
 
 
#open(my $fh, "<:utf8", $directory) or die "Failed to open file: $!\n";
#open( my $FhResultat, '>:utf8', $FichierResulat ) or die "Failed to write file \n";
 
 
 
while(<$fh>){
 
 
#next if m/^$/;
 
$_ =~ s/\n/ /;
#remplacer plusieurs ! par un seul
$_ =~s/\!+/ /g;
#Enlever ; et le , 
$_ =~s/[;,:]/ /g;
$_ =~s/\*+/ /g;
 
#supprimer point d'interrogation en arabe 
 
$_ =~s/\x{061F}/ /g;
#supprimer point virgule en arabe 
$_ =~s/\x{066C}/ /g;
 
$_ =~s/\x{066B}/ /g;
 
$_ =~s/\x{060C}/ /g;
#supprimer les expressions regulieres 
$_ =~s/\,//g;
 
$_ =~s/\;//g; 
$_ =~s/\*//g; 
 $_ =~s/\-//g;  
$_ =~ s/\_//g;
$_ =~s/\[//g;
$_ =~s/\]//g;
$_ =~s/\(//g; 
$_ =~s/\)//g;
$_ =~s/\{//g; 
$_ =~s/\}//g;    
$_ =~s/\'//g; 
#s/\"//g;
$_ =~s/\&//g;
$_ =~s/»//g;
$_ =~s/»//g;
 
$_ =~s/؛//g;
 
$_ =~s/\|//g;   
 
$_ =~s/\\//g; 
$_ =~s/\+//g;
$_ =~s/://g;  
#supprimer les deux points
$_ =~s/\://g;
#remplacer plusieurs points par un seul
#$_ =~ s/\.+/ \. /g;
#$_ =~ s/\.+/ \. /g; 
$_ =~s/\.+/ /g;
$_ =~s/ +/ /g;
 
$_ =~s/\/\s+/ /g;
 
 
#Supprimer toute combinaison d'espaces et tabulations
$_ =~s/[ \t]+/ /g;
#Remplacer plusieurs espaces par un seul
$_ =~s/ +/ /g;
#Supprimer les lignes vides
$_ =~ s/^\s+//g; 
$_ =~ s/\n//g;
$_ =~ s/\n$/ /gs;
 
 print $FhResultat "$_";
 
 
 
}

[Lolo78]

Bonjour,

bizarre. Je vois bien quelques anomalies dans tes expressions régulières, mais les retours à la ligne devraient disparaître. Je ne vois pas pourquoi ne ce serait pas le cas. Peux-tu donner un fichier en entrée pour lequel ça ne marche pas (si possible en français) pour que je puisse tester avec tes données?

Bonne fin d'après-midi.