Usando utf8
es posible usar operadores
como tr
y expresiones regulares sobre cadenas UTF-8:
lhp@nereida:~/Lperl/src/testing$ cat -n useutf8.pl 1 #!/usr/local/bin/perl -w 2 use strict; 3 use utf8; 4 binmode(STDOUT, ':utf8'); 5 6 my $x = 'áéíóúñ€'; 7 print "$x\n"; 8 print length($x)."\n"; 9 10 my$y = $x; 11 $y =~ tr/áéíóúñ€/aeioun$/; 12 print "$y\n"; 13 14 $y = $x; 15 $y =~ m/áéíóúñ(€)/; 16 print "$1\n";Al ejecutar, este programa produce la salida:
lhp@nereida:~/Lperl/src/testing$ useutf8.pl áéíóúñ€ 7 aeioun$ €
Casiano Rodríguez León