[Cascavel-pm] Conversao para minusculo de caracteres acentuados
Igor Sutton
igor.sutton em gmail.com
Sexta Outubro 6 10:20:50 PDT 2006
2006/10/6, Joenio Marques <joenio em gmail.com>:
>
> Senao me engano ao utilizar encoding=utf8 vc está informando que suas
> entradas e saídas estão em UTF8... No meu problema, a entrada está em
> latin1 (num arquivo externo).
>
Testei aqui e funcionou:
encoding-test.pl
---cut---
#!perl
use encoding 'utf8';
# abre o arquivo com encoding iso-8859-1
open my $fh, "<:encoding(iso-8859-1)", "latin1.txt" or die $!;
# pega todo o conteudo do arquivo de uma vez
my $contents = do {
local $/ = undef;
chomp( $_ = <$fh> );
$_;
};
close $fh;
print $contents;
print lc $contents;
---cut---
--
Igor Sutton Lopes <igor.sutton em gmail.com>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20061006/63fdd03f/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm