Discussion :

[Celano]

Bonjour,

pas du tout informaticien, je suis en train de m'initier à Perl très progressivement.

• J'ai obtenu par OCR la transcription d'un texte.jpg en un texte.txt.
• Très fidèle, mon logiciel a évidemment transcrit tous les tirets qui séparent les mots en fin de ligne pour justifier le texte.
• Avec Perl, j'aimerais effacer ces tirets de fin de ligne. Tant-pis, ce n'est pas grave si week-end devient weekend, le tout c'est qu'il enlève tout les tirets qui ralentissent sensiblement la lecture.

La solution provisoire que j'ai, et qui ne me convient pas, est celle ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
open (F, "temp.txt") ;
open (G, ">resu.txt");
while (<F>)
	{print ;
	chomp;
		s/- *$//g;
		print G;
	}
close (F); 
close (G);

Certes, il enlève tous les tirets en fin de ligne, mais en fait, il enlève surtout tous les retours \n. Comment puis-je faire pour qu'il change uniquement:

Code :

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

1
2
quan-\n
tité

par:

Code :

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

quantité/n

?

J'espère avoir énoncé ma question clairement.
Merci d'avance pour votre aide.

Celano

[dmganges]

Bonjour,

Si OCR me donne :

- Le week-end la quanti-
té de confiture est doublée.
- En semaine elle est de 50g.

un.pl vite fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
 
open (IN_Fic, '<', "temp.txt") or die "Erreur sur ouverture fichier temp.txt \n";
open (OUT_Fic, '>', "resu.txt") or die "Erreur sur ouverture fichier resu.txt \n";
 
while ( my $Lig = <IN_Fic> ){
	$Lig =~ s/-\n$//;
	print OUT_Fic $Lig;
}
 
close (IN_Fic); 
close (OUT_Fic);

Donne :

- Le week-end la quantité de confiture est doublée.
- En semaine elle est de 50g.

Est-ce que ça te convient ?

[Lolo78]

Je pense que ça n'est pas bon parce que la demande spécifie qu'il faut remettre un retour à la ligne.

Il serait plus facile d'ajouter le retour à la ligne avant le mot coupé qu'après.
C'est à dire remplacer

Code :

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

1
2
quan-\n
tité

par

Code :

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

\nquantité

Est-ce que ça conviendrait?

[Celano]

Oui, la deuxième solution serait l'idéal.
Mais la première est déjà très bien.


Du coup, dans le deuxième exemple, il faudrait faire quoi?

Celano

PS: pour le moment, je ne comprends pas très bien les codes que vous me donnez, mais c'est un bon support pour aller chercher dans la doc et apprendre un peu du langage Merci

[Lolo78]

En fait, en écrivant la solution, je me suis rendu compte qu'il était aussi facile de le faire après le mot coupé qu'avant.

Exemples sous la forme de scripts unilignes:

Code :

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

1
2
3
4
5
6
7
8
$ perl -e '$c = "quanti-\nte"; $c =~ s/\b(\w+)-\n(\w+)\b/\n$1$2/g; print $c;'
 
quantite
HP ~
$ perl -e '$c = "quanti-\nte"; $c =~ s/\b(\w+)-\n(\w+)\b/$1$2\n/g; print $c;'
quantite
 
HP ~