Discussion :

[Chekov]

Bonjour,

J'aimerai convertir automatiquement un texte tout en majuscules en phrases commençant par une majuscule (c-à-d. après un point) et le reste en minuscules.

Je sais le faire avec une boucle for, mais y-a-t-il moyen de le faire via une regex optimisée pour cela?

Merci d'avance, bonne journée

Eric

[Schmorgluck]

S'il n'y a pas de sauts de lignes au milieu de tes phrases, ça devrait marcher avec ça :

Code :

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

$texte =~ s/(\s*\w)([^.!?]*[.!?])/\U$1\L$2/g

S'il y a des sauts de ligne en milieu de phrase, c'est un peu plus compliqué, il faut que je potasse mon bouquin.

[djibril]

tu as les fonction lc, lcfirst, uc, ucfirst pour ça

lc => minuscule
uc => majuscule

sinon via les regex \L et \U

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
 
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
 
my $toto = "BONJOUR SPLUG";
print lc($toto),"\n";
print lcfirst($toto),"\n";
print uc($toto),"\n";
print ucfirst($toto),"\n";
 
#regex \L => minuscule, \U => majuscule
$toto =~ s/(.+)/\L$1/gi;
print $toto,"\n"; 
 
$toto =~ s/(.+)/\U$1/gi;
print $toto,"\n";

[Chekov]

Merci à vous deux.

mon texte étant dans une liste, voici ce que j'ai fait (et qui semble fonctionner dans mes cas d'utilisation):

Code :

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

1
2
3
4
 
my $texte = join(m/-NEWLINE-/,@{$rTxt});
$texte =~ s/(\s*\w)([^.!?]*[.!?])/\U$1\L$2/g;
@{$rTxt}=split(m/-NEWLINE-/,$texte);