Discussion :

[gorgonite]

Bonjour,


quelqu'un saurait me faire marcher cette substitution ?

Code perl :

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

1
2
3
4
5
foreach my $char (qw("é" "è" "ê")) {
	print "$char\t";
	$search =~ s/$char/e/;
	print "$search\n";
}

[Jedai]

Code :

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

1
2
3
4
5
foreach my $char (qw(é è ê)) {
	print "$char\t";
	$search =~ s/$char/e/;
	print "$search\n";
}

Dans un qw() les "" n'ont pas de sens particulier.

Par ailleurs je ferais plutôt ça comme ça :

Code :

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

$search =~ tr/éèê/e/;

Ou même directement avec Text::Unaccent.

--
Jedaï

[gorgonite]

text::unaccent correspond au module que j'allais me faire...



joyeux noël