[SP-pm] Digest SaoPaulo-pm, volume 16, assunto 23

[Roberto Maluhy Junior]

Olá Alceu,
Obrigado pela dica.

Estou utilizando a função assim:
---
@ordenada = sort alfabeticamente @nao_ordenada;
---
e já modifiquei ela, no lugar de um monte de substituições, estou
usando tr/// como sugerido pelo "Lorn".

Vou tentar depois tamber utilizar as regras num hash, mas acho que não
vai ficar tão simples quanto o tr///.

Abraços e obrigado,
Roberto

> Date: Mon, 30 Jan 2006 17:08:54 -0300 (ART)
> From: "Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br>
> Subject: Re: [SP-pm] expressões regulares e Locale
> To: saopaulo-pm em pm.org
> Message-ID: <20060130200854.8629.qmail em web30804.mail.mud.yahoo.com>
> Content-Type: text/plain; charset=iso-8859-1
>
> Oi Roberto,
>
> --- saopaulo-pm-request em pm.org escreveu:
>
> > From: Roberto Maluhy Junior <maluhy em gmail.com>
> > Subject: Re: [SP-pm] Digest SaoPaulo-pm, volume 16,
> > assunto 21
> > Ficou mais ou menos assim:
> > ---
> > use locale;
> > use POSIX qw(locale_h);
> > setlocale(LC_CTYPE, "en_US.iso88591");
> >
> > sub alfabeticamente {
> >   my $tmpa = $a;
> >   my $tmpb = $b;
> >
> >   $tmpa = "a" if ($a =~ /[áàâãä]/);
> >   $tmpa = "e" if ($a =~ /[éèêë]/);
> >   $tmpa = "i" if ($a =~ /[íìîï]/);
>
> # um monte de código depois
>
> >   unless ("\l$tmpa" cmp "\l$tmpb") {
> >     $tmpa cmp $tmpb;
> >   }
> > }
> > ---
> >
> > Bom, não é nada elegante mas funcionou.
> > Quanto às expressões regulares, o \w reconhece
> > caracteres acentuados
> > após o setlocale(...).
>
> Você pode usar um hash para amazenar essas suas
> regras. Se sua função for chamada mais de uma vez,
> você só tem que iterar sobre o hash.
>
> []'s
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em yahoo.com.br
> http://www.imortais.cjb.net
> -----------------------------------------------------------------------
> A well-used door needs no oil on its hinges.
> A swift-flowing stream does not grow stagnant.
> Neither sound nor thoughts can travel through a vacuum.
> Software rots if not used.
> These are great mysteries -- The Tao Of Programming, 5.1