Discussion :

[Emycherie02]

Bonjour,

Je suis débutante avec le langage Perl.
Je suis à la recherche de codes qui me permettraient de corriger automatiquement un texte au niveau de sa typographie.
L'utilisation des expressions régulières est à privilégier.

Merci d'avance pour votre aide.

[Lolo78]

Bonjour,

à mon avis, il est impossible de corriger l'orthographe d'un texte avec des expressions régulières.

Je pense que la seule solution praticable est de disposer d'un corpus de mots corrects (téléchargeable sur Internet).

[Emycherie02]

Merci.
Je voudrais corriger la typographie, pas l'orthographe.
Donc supprimer des espaces en trop, mettre des majuscules après les points, mettre des espaces avant et après un tiret, etc.
Je suis un cours de codage en perl et le prof m'a dit que ça se fait principalement avec des boucles et des expressions régulières...

Je suis vraiment débutante et je ne sais pas trop comment m'y prendre :/

[Lolo78]

Bonjour,

OK, ton texte, il est dans un fichier? Si oui, tu sais comment ouvrir le fichier pour le lire ligne à ligne? Sais-tu comment écrire dans un (autre) fichier de résultat?

Si tu sais faire tout cela, c'est déjà un début, puisqu'il suffit, pour chaque ligne lue, d'appliquer des expressions régulières. Par exemple, pour supprimer les doubles (ou triples) espaces:

Code :

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

1
2
3
4
5
6
7
8
9
 
# ouverture des fichiers en entrée et en sortie
while (my $ligne = <$IN_FILE>) {
    $ligne = s/ +/ /g;      # remplace espaces multiples par un seul espace
    # ici, autres expressions régulières pour autres règles typographiques
    # ...
    print $OUT_FILE $ligne;
}
# fermeture des fichiers

C'est l'idée de base, il peut y avoir des variations selon les besoins. Mais le mieux est que tu montres ton code pour que l'on t'indique ce qu'il faut changer ou améliorer.

[CosmoKnacki]

Enlever des espaces dupliqués, ça ne pose pas de problèmes. Par contre pour ce qui est de mettre une majuscule après un point, c'est différent: s'il est facile de détecter une lettre minuscule après un point, il est plus difficile de savoir si le point marque la fin d'une phrase. Qu'en est-il si une lettre minuscule suit une abréviation comme par exemple "c.-à -d."? Dans ce cas il n'y a pas lieu de mettre une majuscule au mot suivant. C'est pour ce genre de choses qu'un dictionnaire est utile.

Pour ce qui est des tirets, ça n'est pas évident du tout. Si le texte a déjà une politique claire en la matière en utilisant des caractères différents comme par exemple: tirets longs pour les dialogues, tirets moyens pour les énumérations, etc., c'est envisageable (et encore), par contre si le caractère moins (ascii x2D) est indifféremment utilisé dans toutes les situations, c'est impossible.

Je crois que le plus gros du travail n'est pas le code en lui même, mais surtout d'établir clairement les limites de l'exercice.

[Emycherie02]

Voilà mon code.
J'ai rassemblé des infos que j'ai trouvé sur différents sites mais je ne sais pas du tout si je vais dans la bonne direction !
Le code doit pouvoir fonctionner sur n'importe quel texte.
Je sais ouvrir le fichier mais par contre, je croyais que la correction se faisait automatiquement :/
D'après le prof, c'est facile et amusant ! Mais je suis complètement perdue.
Merci pour votre aide.

[olivier1969]

Hello,

Si tu utilisais un éditeur de texte avec la coloration syntaxique tu trouverais déjà des erreurs .

Je ne suis pas expert en Perl mais pour une substitution il te faut avoir toujours 3 / : $ligne = s/ +/ /g;

ça donnerai plutôt quelque chose dans ce genre , à compléter bien sur :

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
my $numero_ligne = 0;
   while ( my $ligne = <$donnees> ) {
 
# s/ substitution
 
    $ligne =~ s/\.[A-Z]$//;              # une chaine qui se termine par  
                                                # un point suivie d'une majuscule
 
    $ligne =~ s/ *$//;                 # supprimer les espaces en trop 
                                                # à la fin de chaque ligne  
 
    $ligne =~ s/^ *//;                 # supprimer les espaces en trop 
                                                # au début de chaque ligne
 
    $ligne =~ s/([ \t]*\n){2,}/\n/g;   # supprimer les lignes vides 
                                                # ou ne contenant qu'une 
                                                # combinaison de blancs et de
                                                # tabulations
 
    $ligne =~ s/«([^ ])//;              # supprimer les espaces après 
                                                # les guillemets ouvrants
 
    $ligne =~ s/([^ ])»//;              # supprimer les espaces avant 
                                                # les guillemets fermants
 
    $ligne =~ s/\(([^ ])//;             # supprimer les espaces après 
                                                # les parenthèses ouvrantes
 
    $ligne =~ s/([^ ])\)//;             # supprimer les espaces avant 
                                                # les parenthèses fermantes
 
    $ligne =~ s/ +/ /;                 # remplacer plusieurs espaces
                                                # par un seul
 
   }

[Lolo78]

Je sais ouvrir le fichier mais par contre, je croyais que la correction se faisait automatiquement :/

Un fichier texte est généralement un fichier séquentiel. Il n'est pas possible de modifier directement un fichier séquentiel existant, quel que soit le langage et quel que soit le logiciel. Si ce que tu voudrais ajouter est plus long que ce que tu voudrais enlever, tu perdrais des morceaux du fichier. Donc, ça ne fonctionne pas comme ça, et ce n'est (fort heureusement) pas possible.

Mais il y a des solutions de contournement.

Une première technique consiste à ouvrir un fichier en entrée et un fichier en sortie. Tu lis dans le fichier en entrée et écris dans le fichier en sortie. C'est à peu près ce que j'avais brièvement montré dans mon exemple ci-dessus. Si besoin, tu renommes les deux fichiers après coup (et après les avoir fermés tous les deux).

Une deuxième technique consiste à charger tout le fichier en mémoire, faire les modifications en mémoire, puis remplacer le fichier avec ce qu'il y a en mémoire. C'est ce qui se passe en coulisses quand tu édites un fichier avec un éditeur ou un traitement de texte. Mais comme tu es débutante, je ne te conseille pas vraiment cette méthode qui peut être un peu délicate.