Desculpem.<br><br><span class="q"></span>while(&lt;&gt;) {<span>s/$key/$dictionary{$_}/g</span><span> for keys%dictionary;</span><span>print}</span><br><span></span><br><div><span class="gmail_quote">Em 13/07/07, <b class="gmail_sendername">
Fernando Oliveira</b> &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt; escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
pq não?<br><br>&lt;code&gt;<br><div style="direction: ltr;">while(&lt;&gt;) {<span>$var =~ s/$key/$dictionary{$_}/g</span><span> for keys%dictionary;</span><span>print$var}</span></div>&lt;/code&gt;
<br><br><div><span class="gmail_quote">Em 13/07/07, <b class="gmail_sendername">Eden Cardim</b> &lt;<a href="mailto:edencardim@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">edencardim@gmail.com
</a>&gt; escreveu:</span><div><span class="e" id="q_113c0632ff39245e_1"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On 7/13/07, Solli Honorio &lt;<a href="mailto:shonorio@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">shonorio@gmail.com</a>&gt; wrote:<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; my $bytes_read = read( INPUT, $var ,$length );
<br>&gt;<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp; while ( $bytes_read &gt; 0 ) {<br>
&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach my $key ( keys (%dictionary) ) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$var =~ s/$key/$dictionary{$key}/g;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&gt;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print OUTPUT $var;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $bytes_read = read(INPUT, $var, $length);
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br><br>essa parte pode ser simplificada para:<br><br>while( read INPUT, $var, $length ) {<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach my $key ( keys (%dictionary) ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$var =~ s/$key/$dictionary{$key}/g;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print OUTPUT $var;<br>}<br><br>Golfe alguém? ;)<br><br>--<br>Eden Cardim<br>Instituto Baiano de Biotecnologia<br>Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas<br>Laboratório de Bioinformática
<br>_______________________________________________<br>SaoPaulo-pm mailing list<br><a href="mailto:SaoPaulo-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">SaoPaulo-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://mail.pm.org/mailman/listinfo/saopaulo-pm
</a><br></blockquote></span></div></div><span class="sg"><br><br clear="all"><br>-- <br>[]&#39;s Fernando
</span></blockquote></div><br><br clear="all"><br>-- <br>[]&#39;s Fernando