Discussion :

[PadawanInPerl]

HEllo,

Petit souci lorsque j'écris des accents dans ma fenêtre dos(shell) pour les récupérer dans un script les accents ne se forme pas...

Djibril m'avait conseillé il y a des mois passés (mais pour un autre problème) de faire ce genre de chose:

Code :

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

open OUT,'>:encoding(utf8)',"$output";

mais bon ! là je dois saisir dans le shell

Code :

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

1
2
3
print "Quel est la phrase ?  : ";
$phrase= <STDIN>;
chomp $phrase;

Et je n'arrive pas à récupérer mes accents

Help

[Schmorgluck]

Essaie avec le pragma locale.

Code :

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

use locale;

Ça marchera peut-être mieux.

[djibril]

C'est normal. L'encodage de ton STDIN dépend de ton shell. Quand tu récupères une phrase, elle a un encodage de type cpxxx si c'est du DOS par exemple.
Pour en savoir plus, un peu de lecture sur les accents DOS. L'idée sera donc de décoder la phrase et ça devrait fonctionner.

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
#!/usr/bin/perl
use strict;
use warnings;
 
use Encode;
print "Quel est la phrase ?  : ";
my $phrase= <STDIN>;
chomp $phrase;
 
# Codage du shell Sous DOS
my ($codepage) = (`chcp` =~ m/:\s+(\d+)/);
 
open OUT,">:encoding(utf8)","toto.txt";
$phrase = decode("cp$codepage", $phrase);
 
print OUT $phrase;
close(OUT);

[PadawanInPerl]

Hello,

Merci Djibril


Tous va mieux !!