[Cascavel-pm] Conversao para minusculo de caracteres acentuados

[Igor Sutton]

>
> Isso aqui também funcionou, só não sei como adaptar isso ao minha
> situação real aqui... nao sei em que encoding a entrada virá, a
> entrada vem de uma requisição GET/POST.
>

É por isso que existe o Encode::Guess :-) Aí vai uma nova versão:

---cut---
#!perl

use strict;
use warnings;

use Encode;
use Encode::Guess qw/iso-8859-1 utf8/;
use encoding 'utf8';

# abre o arquivo com encoding iso-8859-1
open my $fh, "<", "latin1.txt" or die $!;

# pega todo o conteudo do arquivo de uma vez
my $contents = do {
    local $/ = undef;
    chomp( $_ = <$fh> );
    $_;
};
close $fh;

unless ( utf8::is_utf8($contents) ) {
    $contents = decode( "Guess", $contents );
}
print $contents;
print lc $contents;
---cut---

Maiores informações em "perldoc Encode::Guess".

-- 
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/7e18e12c/attachment.html