[SP-pm] Problema com encoding

[Wendel Scardua]

On 7/11/07, Henrique Fleming <hfleming38 em gmail.com> wrote:
>
> Alguém sabe como fazer isso?
>
> Grato,
>
> Henrique
>
>
> --------------------------------------------------------------------------------
> #!/usr/bin/perl
> #
> # Usar um Hash para dirigir um pattern replacement
> # Files are invoked at the command line
> #
> # use encoding "latin1";
> %dictionary = (
>        ç   => "\\c{c}",
>        á   => "\\'a",
>        í   => "\\'{\\i}",
>        é   => "\\'e",
>        ó   => "\\'o",
>        ú   => "\\'u",
>        ã   => "\\~a",
>        õ   => "\\~o",
>        â   => "\\^a",
>        ê   => "\\^e",
>        ô   => "\\^o",
>        ü   => '\\"u',
> );
>


O Nelson já te sugeriu um módulo pronto, mas só pra você ver onde estava seu
problema, que tal isso ?

%dictionary = (
       'ç'   => "\\c{c}",
       'á'   => "\\'a",
       'í'   => "\\'{\\i}",
       'é'   => "\\'e",
       'ó'   => "\\'o",
       'ú'   => "\\'u",
       'ã'   => "\\~a",
       'õ'   => "\\~o",
       'â'   => "\\^a",
       'ê'   => "\\^e",
       'ô'   => "\\^o",
       'ü'   => '\\"u',
);

Perl está sendo bem bonzinho em deixar você usar strings sem aspas como
chaves de hash, mas a gente não pode abusar dessa bondade :-)

Barewords (essas strings "nuas", sem aspas) precisam ser identificadoes
válidos, então você não pode usar coisas como ç . Se você usar aspas tudo
fica ok.

[]s
Wendel
-- 
"Não ajustar o auto-ajuste" - http://wendel.scardua.net/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070711/30293f4c/attachment.html