On 7/11/07, <b class="gmail_sendername">Henrique Fleming</b> <<a href="mailto:hfleming38@gmail.com">hfleming38@gmail.com</a>> wrote:<div><span class="gmail_quote"></span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Alguém sabe como fazer isso?<br><br>Grato,<br><br>Henrique
<br><br>--------------------------------------------------------------------------------<br>#!/usr/bin/perl<br>#<br># Usar um Hash para dirigir um pattern replacement<br># Files are invoked at the command line<br>#<br># use encoding "latin1";
<br>%dictionary = (<br> ç => "\\c{c}",<br> á => "\\'a",<br> í => "\\'{\\i}",<br> é => "\\'e",<br> ó => "\\'o",
<br> ú => "\\'u",<br> ã => "\\~a",<br> õ => "\\~o",<br> â => "\\^a",<br> ê => "\\^e",<br> ô => "\\^o",
<br> ü => '\\"u',<br>);<br></blockquote></div><br><br>O Nelson já te sugeriu um módulo pronto, mas só pra você ver onde estava seu problema, que tal isso ?<br><br>%dictionary = (<br> 'ç' => "\\c{c}",
<br> 'á' => "\\'a",<br> 'í' => "\\'{\\i}",<br> 'é' => "\\'e",<br> 'ó' => "\\'o",
<br> 'ú' => "\\'u",<br> 'ã' => "\\~a",<br> 'õ' => "\\~o",<br> 'â' => "\\^a",<br> 'ê' => "\\^e",
<br> 'ô' => "\\^o",
<br> 'ü' => '\\"u',<br>);<br><br>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 :-)<br><br>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.
<br><br>[]s<br>Wendel<br>-- <br>"Não ajustar o auto-ajuste" - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>