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