Voce precisa fazer sorte baseado nos acentos? se não, voce pode tirar todos os acentos/caracteres estranhos da linha e fazer sort.<br>"mas eu vou perder o conteudo da linha.."<br>Não vai não, olha que legal ;)<br>
foreach my $linha (@entrada){<br> my $linha_alterada = $linha;<br> $linha_alterada =~ tr/ÄÅÆÇÈÒÉÜÓÊæÝÔËðçÞÕÌúñèßÖÍûòéàÎüóêáØÏýôëâÙÐþõìãÚÑÿöíäÛÀîåÁøïÂùô/AAACEOEUOEaYOEecTOIunesOIuoeaIuoeaOIyoeaUEtoiaUNyoiaUAiaAoiAuA /;
<br> $linha_alterada = lc($linha_alterada);<br> if ($linha_alterada =~ /pao de acuca/){<br> push(@saida,$linha); #eu faco o que eu quiser com a $linha_alterada que eu sei que não vai ter acento, e quando preciso da linha imprimo a $linha que á a linha sem alteração, entendeu?
<br> }<br>}<br><br>Se fui muito confuso na minha explicação, pode falar que eu respondo sua duvida...<br><div><span class="gmail_quote">On 1/26/06, <b class="gmail_sendername">Roberto Maluhy Junior</b> <
<a href="mailto:maluhy@gmail.com">maluhy@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Ola,<br><br>Como faco para a funcao 'sort' e alguns tokens utilizados em regular
<br>expressions (como \w) utilizarem acentos?<br>Ja tentei:<br>---<br>use locale;<br>use POSIX (locale_h);<br>setlocale(LC_CTYPE, "en_US.iso88591");<br>---<br>mas nenhuma modificacao ocorre.<br>O que estou fazendo de errado?
<br><br>A saida da linha de comando 'locale -a' fornece:<br>C<br>POSIX<br>en_US<br>en_US.iso88591<br><br>E a variavel 'LC_CTYPE' contem o valor 'POSIX' como padrao. Como<br>observacao, estou utilizando Debian Sarge e Perl
5.8.4.<br><br>Grato pelo ajuda,<br>Roberto<br>_______________________________________________<br>SaoPaulo-pm mailing list<br><a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">
http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Lorn <br>- Slackware Linux<br><a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a>