[Cascavel-pm] Conversao para minusculo de caracteres acentuados

[Igor Sutton]

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