Bonjour,

Je veux remplacer toutes les lettre accentuées par les lettre sans accent, mais le ficher sortir, il n'a rien fait. Pourriez vous m'aider ou il y a des erreurs.
Merci
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
 
 
# Récupération du nom de fichier passé en argument
$fichier = $ARGV[0];
 
# Ouverture du fichier en lecture
open(ENTREE, "petitprince_I.txt") or die "impossible d'ouvrir le fichier petitprince_I.txt !";
 
open(SORTIR, ">$fichier") or die "impossible d'ouvrir le fichier $fichier !";
 
while(<ENTREE>){
 
	if ($_=~ /\[DESSIN .+\]/) {
		$i++;
		$_ =~ s/\[DESSIN .+\]/[DESSIN $i]/;
		$_ =~ s/œ/oe/;
		$_ =~ tr/àçéèêî/aceeei/;
		print SORTIR $_;
	}
	else {
		print SORTIR $_;
	}
}