Discussion :

[Raoul_Pinette]

J'aimerais comprendre comment on peut trier des chaines avec éèçàï. Alors j'ai écris un bout de code, mais la sortie est incohérente pour moi. J'aurais donc besoin de vos conseils.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
 
my @liste = qw/cales abricot entonnoir couchette aïd arrosoir caleçon élève zozo/ ;
 
print join (' ' , ( sort @liste )) . "\n";
 
use locale ;
print "use locale\n" ;
print join (' ' , ( sort @liste )) . "\n" ;

et la sortie

Code :

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

1
2
3
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
aïd abricot élève arrosoir caleçon cales couchette entonnoir zozo

Alors que je désire obtenir cet ordre :

Code :

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

abricot aïd arrosoir caleçon cales couchette élève entonnoir zozo

Merci

[Raoul_Pinette]

Je me réponds à moi-même. Voici ce que j'ai trouvé et qui fonctionne :

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
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
 
my @liste = qw/cales abricot entonnoir couchette aïd arrosoir caleçon élève zozo/ ;
 
sub desaccent {
    my $in = shift ;
 
    $in =~ s/[é|è|ê]/e/g ;
    $in =~ s/[É|È|Ê]/E/g ;
    $in =~ s/ç/c/g ;
    $in =~ s/Ç/ç/g ;
 
    return lc $in ;
}
 
@liste = sort { desaccent($a) cmp desaccent($b) } @liste ;
 
print join(' ' , @liste) . "\n" ;

retourne bien

Code :

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

abricot aïd arrosoir caleçon cales couchette élève entonnoir zozo

[Raoul_Pinette]

Bon ben ça ne marche pas à tous les coups. Le programme avec une nouvelle chaîne :

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
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
 
my @liste = qw/Alphonse
               Éric
               Emmanuel
               Gilbert/ ;
 
sub desaccent {
    my $in = shift ;
 
    $in =~ s/[é|è|ê]/e/g ;
    $in =~ s/[É|È|Ê]/E/g ;
    $in =~ s/ç/c/g ;
    $in =~ s/Ç/ç/g ;
    $in =~ s/à/a/g ;
    $in =~ s/À/A/g ;
    $in =~ s/ï/i/g ;
    $in =~ s/Ï/I/g ;
 
    return lc $in ;
}
 
@liste = sort { desaccent($a) cmp desaccent($b) } @liste ;
 
print join(' ' , @liste) . "\n" ;

retourne

Code :

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

Alphonse Éric Emmanuel Gilbert

où Éric pose encore un problème.

Help, please.

[Lolo78]

Bonjour

pas le temps d'entrer dans les détails maintenant, mais cette ligne:

Code :

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

1
2
 
$in =~ s/Ç/ç/g ;

me paraît erronée.

Tu veux sans doute:

Code :

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

1
2
 
$in =~ s/Ç/C/g;

Sinon, la fonction tr/.../.../ est sans doute plus adaptée à ton problème qu'une expression régulière de type s/.../.../et, accessoirement, plus rapide). Jette un coup d’œil à sa documentation.



.

[Raoul_Pinette]

Avec tr c'est pas mieux. J'ai rajouté deux lignes pour vérifier ce qui sort de la fonction desaccent et les résultats sont surprenants.

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
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
# use utf8 ;
 
my @liste = qw/Alphonse
               Éric
               Emmanuel
               Gilbert/ ;
 
sub desaccent {
    my $in = shift ;
 
    $in =~ tr/ÉÈÊéèê/e/ ;
    # $in =~ s/[éèêÉÈÊ]/e/g ;
    # $in =~ s/[çÇ]/c/g ;
    # $in =~ s/[àÀ]/a/g ;
    # $in =~ s/[ïÏ]/i/g ;
 
    return  $in ;
}
 
foreach ( @liste ) {
    print desaccent($_) . "\n" ;
}
 
@liste = sort { desaccent($a) cmp desaccent($b) } @liste ;
 
print join(' ' , @liste) . "\n" ;

Sortie sans use utf8

Code :

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

1
2
3
4
5
Alphonse
eeric
Emmanuel
Gilbert
Alphonse Emmanuel Gilbert Éric

Sortie avec use utf8

Code :

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

1
2
3
4
5
Alphonse
eric
Emmanuel
Gilbert
Alphonse Emmanuel Gilbert ic

ce n'est pas une erreur de copié-collé, il a bien mangé deux lettre.

Je n'y comprends rien, pourquoi l'utilisation de

Code :

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

use locale

ne règle pas le problème simplement (voir mon premier post) ?
N'y a-t-il pas un moyen simple de trier des chaînes avec des caractères français, ce qui semble une opération triviale ?

[disedorgue]

J'aimerais comprendre comment on peut trier des chaines avec éèçàï. Alors j'ai écris un bout de code, mais la sortie est incohérente pour moi. J'aurais donc besoin de vos conseils.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
 
my @liste = qw/cales abricot entonnoir couchette aïd arrosoir caleçon élève zozo/ ;
 
print join (' ' , ( sort @liste )) . "\n";
 
use locale ;
print "use locale\n" ;
print join (' ' , ( sort @liste )) . "\n" ;

et la sortie

Code :

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

1
2
3
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
aïd abricot élève arrosoir caleçon cales couchette entonnoir zozo

Alors que je désire obtenir cet ordre :

Code :

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

abricot aïd arrosoir caleçon cales couchette élève entonnoir zozo

Merci

Attention, ici, tu sembles en utf8 et qu'en tu n'utilises pas la locale, le perl se considère en locale "C" qui ne comprend pas l'accentuation. Et quand tu lui dit d'utiliser la locale, tu sembles être en iso8859-1 et comme en réalité c'est de l'utf8, il se perd.
Par contre, si ta locale est en utf8, le trie est correcte:

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
$ locale
LANG=fr_FR.UTF8
LC_CTYPE="fr_FR.UTF8"
LC_NUMERIC="fr_FR.UTF8"
LC_TIME="fr_FR.UTF8"
LC_COLLATE="fr_FR.UTF8"
LC_MONETARY="fr_FR.UTF8"
LC_MESSAGES="fr_FR.UTF8"
LC_PAPER="fr_FR.UTF8"
LC_NAME="fr_FR.UTF8"
LC_ADDRESS="fr_FR.UTF8"
LC_TELEPHONE="fr_FR.UTF8"
LC_MEASUREMENT="fr_FR.UTF8"
LC_IDENTIFICATION="fr_FR.UTF8"
LC_ALL=
$ perl ./script.pl
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
abricot aïd arrosoir caleçon cales couchette élève entonnoir zozo

[Raoul_Pinette]

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
$ locale
LANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC=fr_FR.UTF-8
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
LC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_PAPER="fr_FR.UTF-8"
LC_NAME="fr_FR.UTF-8"
LC_ADDRESS="fr_FR.UTF-8"
LC_TELEPHONE="fr_FR.UTF-8"
LC_MEASUREMENT="fr_FR.UTF-8"
LC_IDENTIFICATION="fr_FR.UTF-8"
LC_ALL=

Je suis pourtant bien en UTF8 et n'obtiens pas le bon résultat ! Une idée ?

[CosmoKnacki]

Que te renvoie la commande locale -a?

[Raoul_Pinette]

Que te renvoie la commande locale -a?

842 lignes de locales que je ne vais pas coller ici.

[disedorgue]

C'est bizarre...

Et que donne:

Code :

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

locale -k LC_COLLATE

En même temps, si tu pouvais nous dire ton OS ainsi que la version du perl.

[Raoul_Pinette]

C'est bizarre...

Et que donne:

Code :

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

locale -k LC_COLLATE

En même temps, si tu pouvais nous dire ton OS ainsi que la version du perl.

Code :

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

1
2
3
4
5
$ locale -k LC_COLLATE
collate-nrules=4
collate-rulesets=""
collate-symb-hash-sizemb=2707
collate-codeset="UTF-8"

[disedorgue]

Je viens de tester chez moi et ça fonctionne aussi...
Le test 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
15
16
17
18
19
20
21
22
23
24
$ locale
LANG=C
LANGUAGE=C
LC_CTYPE="C"
LC_NUMERIC="C"
LC_TIME="C"
LC_COLLATE="C"
LC_MONETARY="C"
LC_MESSAGES="C"
LC_PAPER="C"
LC_NAME="C"
LC_ADDRESS="C"
LC_TELEPHONE="C"
LC_MEASUREMENT="C"
LC_IDENTIFICATION="C"
LC_ALL=
$ perl xyz.pl 
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
$ LC_COLLATE=fr_FR.UTF-8 perl xyz.pl 
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
abricot aïd arrosoir caleçon cales couchette élève entonnoir zozo

[CosmoKnacki]

Dans ce cas limite les résultats avec:locale -a | grep ^fr, l'idée étant que tes variables d'environnements sont toutes sur fr_FR.UTF-8 mais que celui-ci ne serait pas disponible (parce que pas généré). Cela dit, sur 842 ce serait vraiment pas d'bol.

[Raoul_Pinette]

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
$ locale -a | grep ^fr
fr_BE
fr_BE@euro
fr_BE.iso88591
fr_BE.iso885915@euro
fr_BE.utf8
fr_CA
fr_CA.iso88591
fr_CA.utf8
fr_CH
fr_CH.iso88591
fr_CH.utf8
french
fr_FR
fr_FR@euro
fr_FR.iso88591
fr_FR.iso885915@euro
fr_FR.utf8
fr_LU
fr_LU@euro
fr_LU.iso88591
fr_LU.iso885915@euro
fr_LU.utf8

le fr_FR.utf8 est bien présent. Je n'y comprends rien. Ça viendrait donc en fait d'un problème de conf. de mon système ?

[disedorgue]

Et en plus, tu as la même conf du LC_COLLATE que moi, donc ta conf aussi semble bonne...

Et que donne le script suivant où on force le LC_COLLATE directement dans le perl (fonctionne chez moi quelque soit la locale de définie ) :

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/env perl
use strict;
use warnings;
use diagnostics;
use POSIX qw(locale_h);
 
my @liste = qw/cales abricot entonnoir couchette aïd arrosoir caleçon élève zozo/ ;
 
print join (' ' , ( sort @liste )) . "\n";
 
use locale;
setlocale(LC_COLLATE, "fr_FR.utf8");
print "use locale\n" ;
print join (' ' , ( sort @liste )) . "\n" ;

[Raoul_Pinette]

Mouarf, de pis en pis :

Code :

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

1
2
3
abricot arrosoir a cales calen couchette entonnoir zozo e
use locale
abricot a arrosoir calen cales couchette e entonnoir zozo

[disedorgue]

Je ne trouve pas, le trie semble bon, c'est l'affichage qui délire ici...

Si tu regardes bien, les mots incomplets sont ceux avec les accents mais sur la première ligne ils sont dans l'ordre habituel et sur la 2ème ligne ils sont au bon endroit:
aïd en 3éme position et élève juste avant entonnoir.

Un premier test, c'est de recharger ton environnement et de réessayer le script.

Un deuxième test:
Remplace la ligne:

Code :

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

setlocale(LC_COLLATE, "fr_FR.utf8");

par

Code :

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

setlocale(LC_ALL, "fr_FR.utf8");

[Raoul_Pinette]

Remplace la ligne:

Code :

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

setlocale(LC_COLLATE, "fr_FR.utf8");

par

Code :

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

setlocale(LC_ALL, "fr_FR.utf8");

J'obtiens le même résultat.

[disedorgue]

Et si tu retires les lignes:

Code :

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

use POSIX qw(locale_h);

et

Code :

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

setlocale(LC_COLLATE, "fr_FR.utf8");

LC_COLLATE est peut-être maintenant LC_ALL chez toi.

Quel est le résultat ?

En principe, là, c'est le trie qui ne fonctionnera pas mais l'affichage des mots devrait être correcte.

[Raoul_Pinette]

Au temps pour moi, il y avait un use utf8 qui trainait, sans lui il n'y a pas de lettre qui manque, mais j'ai le même résultat avec LC_COLLATE et LC_ALL, c.à.d :

Code :

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

1
2
3
abricot arrosoir aïd cales caleçon couchette entonnoir zozo élève
use locale
aïd abricot élève arrosoir caleçon cales couchette entonnoir zozo