Discussion :

[antigone]

Ci dessous mon programme qui à partir d'un message saisie au clavier crée un fichier et y écrit le message.
Sauf que les accents genre à é .... ne passent pas.
Est ce qu'il existe une fonction pour corriger cela?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
my $fic="c:\\fichier.txt";
 
open(FIC, ">".$fic)||die("Probleme ");
 
print "\n\nSAISIR LE MESSAGE \n"; 
 
$ligne=<STDIN>;
 
print FIC "message: $ligne\n";
 
close(FIC);
 
print "\n\n>>>FIchier $fic cree\n\n";

exemple
Vérifier qu'il n'y a aucun lot à traiter donne
V,rifier qu'il n'y a aucun lot … traiter

[GLDavid]

Bonjour

Tiens, je me rends compte que c'est le premier thread auquel je répond en tant que Responsable de cette section.
Bon, laissons un peu cette part d'orgueil.
A mon avis, tu as juste un problème de localisation de ton système. Donc, je voudrais savoir quel OS tu utilises. Exemple, si tu es sous Linux avec une localisation en UTF-8, tu peux t'attendre à cet erreur qui en fait, ne gène en rien.

@++

[antigone]

Salut chef ! ;-)

Je suis sous windows.
Ne connais tu pas une fonction sur string qui me permettrai de garder mes accents?

[2Eurocents]

Alors, si tu es sous Windows, il te faut savoir que la table de caractères utilisée par le système dans la fenêtre de commandes est différente de celle qu'il utilise dans toutes les applications fenêtrées.

C'est donc le bazar, et pas seulement en Perl (les utilisateurs de DevC++ savent certainement de quoi je veux parler ).

[Jedai]

Tu as plusieurs solutions : soit tu utilise le module Encode pour gérer cette différence, soit tu utilises carrément une console Windows qui utilise la bonne page de code (cp1252 je crois), fais une petite recherche, la solution a déjà été évoquée ici.

--
Jedaï