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

[Wendel Scardua]

Eu costumo usar o seguinte tr (que não é de minha autoria ^^;;; ) pra
tirar acentos (ele é sempre copypasteado de um script para outro
^^;;;;; )   tr/ÄÅÆÇÈÒÉÜÓÊæÝÔËðçÞÕÌúñèßÖÍûòéàÎüóêáØÏýôëâÙÐþõìãÚÑÿöíäÛÀîåÁøïÂùÃ/AAACEOEUOEaYOEecTOIunesOIuoeaIuoeaOIyoeaUEtoiaUNyoiaUAiaAoiAuA/;

On 1/31/06, Roberto Maluhy Junior <maluhy em gmail.com> wrote:
> 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
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>


--
[]s
Wendel
--
"Or think of Perl as a bigger hammer.  It lets you treat everything
like a nail,
and get away with it most of the time.  But sometimes not."
-- Larry Wall