On 7/11/07, <b class="gmail_sendername">Henrique Fleming</b> &lt;<a href="mailto:hfleming38@gmail.com">hfleming38@gmail.com</a>&gt; 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 &quot;latin1&quot;;
<br>%dictionary = (<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ç&nbsp;&nbsp; =&gt; &quot;\\c{c}&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; á&nbsp;&nbsp; =&gt; &quot;\\&#39;a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; í&nbsp;&nbsp; =&gt; &quot;\\&#39;{\\i}&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; é&nbsp;&nbsp; =&gt; &quot;\\&#39;e&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ó&nbsp;&nbsp; =&gt; &quot;\\&#39;o&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ú&nbsp;&nbsp; =&gt; &quot;\\&#39;u&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ã&nbsp;&nbsp; =&gt; &quot;\\~a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; õ&nbsp;&nbsp; =&gt; &quot;\\~o&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; â&nbsp;&nbsp; =&gt; &quot;\\^a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ê&nbsp;&nbsp; =&gt; &quot;\\^e&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ô&nbsp;&nbsp; =&gt; &quot;\\^o&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ü&nbsp;&nbsp; =&gt; &#39;\\&quot;u&#39;,<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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ç&#39; &nbsp; =&gt; &quot;\\c{c}&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;á&#39; &nbsp; =&gt; &quot;\\&#39;a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;í&#39; &nbsp; =&gt; &quot;\\&#39;{\\i}&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;é&#39; &nbsp; =&gt; &quot;\\&#39;e&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ó&#39; &nbsp; =&gt; &quot;\\&#39;o&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ú&#39; &nbsp; =&gt; &quot;\\&#39;u&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ã&#39; &nbsp; =&gt; &quot;\\~a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;õ&#39; &nbsp; =&gt; &quot;\\~o&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;â&#39; &nbsp; =&gt; &quot;\\^a&quot;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ê&#39; &nbsp; =&gt; &quot;\\^e&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ô&#39; &nbsp; =&gt; &quot;\\^o&quot;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;ü&#39; &nbsp; =&gt; &#39;\\&quot;u&#39;,<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 &quot;nuas&quot;, 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>&quot;Não ajustar o auto-ajuste&quot; - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>